In [1]:
options(OutDec = ",")
#==============================================================================
# Lendo os dados do arquivo vinho.txt
# Vendas de vinho tinto australiano, 1980-1991
#==============================================================================
dados <- scan("../dados/vinho.txt")
In [2]:
#==============================================================================
# Salvando como objeto de series temporais do R e colocando na escala de
# milhares de litros
#==============================================================================
y <- ts(dados/1000,frequency=12,start=c(1980,1),end=c(1991,10))
In [3]:
#==============================================================================
# Vendas mensais em milhares de litros
#==============================================================================
par(mfrow=c(1,1),lwd=2,cex.lab=1.5,cex.axis=1.5,lab=c(10,10,5),
mar=c(4,5,2,2),xpd=T,bty="n")
plot(y,lwd=2,xlab="Mês",ylab="Milhares de Litros",ylim=c(0,3))
points(y,pch=16,cex=1.5)
In [4]:
#==============================================================================
# Logaritmo das vendas mensais em milhares de litros
#==============================================================================
z <- log(y)
par(mfrow=c(1,1),lwd=2,cex.lab=1.5,cex.axis=1.5,lab=c(10,8,5),
mar=c(4,5,2,2),xpd=T,bty="n")
plot(z,lwd=2,xlab="Mês",ylab="Milhares de Litros",ylim=c(-1,1.2))
points(z,pch=16,cex=1.5)
