In [1]:
options(OutDec = ",")
#==============================================================================
# Descricao da serie de vendas de carros nos EUA
#==============================================================================
# Vendas
# EUA, mensal,
# Janeiro de 1960 a dezembro de 1968
#
#==============================================================================
# Lendo os dados do arquivo carros.txt
#==============================================================================
dados <- scan("../dados/carros.txt")
print(head(dados))
print(tail(dados))
[1] 6,550 8,728 12,026 14,395 14,587 13,791 [1] 18,024 16,722 14,385 21,342 17,180 14,577
In [2]:
#==============================================================================
# Definindo como objeto series temporais do R
#==============================================================================
vendas <- ts(dados,frequency=12,start=c(1960,1))
In [3]:
#==============================================================================
# Grafico simples da serie temporal
#==============================================================================
par(mfrow=c(1,1),lwd=2.0,cex.lab=1.5,cex.axis=1.5,lab=c(9,9,5),
mar=c(5,5,2,2.5),xpd=T,cex.main=2.0,bty="n")
ts.plot(vendas,xlab="Mês",ylab="Vendas",ylim=c(4,28))
points(vendas,pch=15)
