importacion de datos

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

conversion de datos a ts

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

## interprrtacion redactar:En la gráfica se puede ver que, desde 1987 hasta 1994 los valores van aumentando poco a poco con el paso de los años y que además, cada año se repite un pico alto en ciertos meses, lo que muestra que hay un patrón estacional claro. Esto significa que en un periodo del año siempre se da un aumento importante, posiblemente por alguna temporada de alta demanda. También se nota que a partir de 1993, los picos y los valores en general crecen mucho más rápido que antes, lo que podría deberse a un cambio importante en la situación o a que el fenómeno que se mide empezó a crecer más rápido. la serie combina un crecimiento constante con un patrón que se repite todos los años, pero con un aumento mucho más fuerte hacia el final del periodo.

library(writexl)
## Warning: package 'writexl' was built under R version 4.5.1
d2=as.data.frame(datos2)
d3=as.data.frame(datos3)
write_xlsx(d2,"datos2_ex1.xlsx")
write_xlsx(d3,"datos3_ex1.xlsx")

diferencias

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

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