importacion de datos

datos3=scan("http://robjhyndman.com/tsdldata/data/fancy.dat")
datos2=scan("http://robjhyndman.com/tsdldata/data/nybirths.dat")
head(datos3)
## [1] 1664.81 2397.53 2840.71 3547.29 3752.96 3714.74
length(datos3)
## [1] 84

conversion de datos a ts

st3=ts(datos3,start = c(1987,1),frequency = 12)
plot(st3)

## interpretacion Las ventas mensuales de la tienda de recuerdos, Australia, entre enero de 1987 a diciembre de 1993 tiene una tendencia creciente

#library(writexl)
#d2=as.data.frame(datos2)
#d3=as.data.frame(datos3)
#write_xlsx(d2,"datos2_ex1.xlsx")
#write_xlsx(d3,"datos2_ex1.xlsx")

diferencia

st1d=diff(st3,1)
plot(st1d)

st1d12=diff(st1d,12)
plot(st1d12)