Importacion de datos
datos2=scan("http://robjhyndman.com/tsdldata/data/nybirths.dat", skip = 3)
datos3=scan("http://robjhyndman.com/tsdldata/data/fancy.dat", skip = 3)
datos2
## [1] 24.740 25.806 24.364 24.477 23.901 23.175 23.227 21.672 21.870 21.439
## [11] 21.089 23.709 21.669 21.752 20.761 23.479 23.824 23.105 23.110 21.759
## [21] 22.073 21.937 20.035 23.590 21.672 22.222 22.123 23.950 23.504 22.238
## [31] 23.142 21.059 21.573 21.548 20.000 22.424 20.615 21.761 22.874 24.104
## [41] 23.748 23.262 22.907 21.519 22.025 22.604 20.894 24.677 23.673 25.320
## [51] 23.583 24.671 24.454 24.122 24.252 22.084 22.991 23.287 23.049 25.076
## [61] 24.037 24.430 24.667 26.451 25.618 25.014 25.110 22.964 23.981 23.798
## [71] 22.270 24.775 22.646 23.988 24.737 26.276 25.816 25.210 25.199 23.162
## [81] 24.707 24.364 22.644 25.565 24.062 25.431 24.635 27.009 26.606 26.268
## [91] 26.462 25.246 25.180 24.657 23.304 26.982 26.199 27.210 26.122 26.706
## [101] 26.878 26.152 26.379 24.712 25.688 24.990 24.239 26.721 23.475 24.767
## [111] 26.219 28.361 28.599 27.914 27.784 25.693 26.881 26.217 24.218 27.914
## [121] 26.975 28.527 27.139 28.982 28.169 28.056 29.136 26.291 26.987 26.589
## [131] 24.848 27.543 26.896 28.878 27.390 28.065 28.141 29.048 28.484 26.634
## [141] 27.735 27.132 24.924 28.963 26.589 27.931 28.009 29.229 28.759 28.405
## [151] 27.945 25.912 26.619 26.076 25.286 27.660 25.951 26.398 25.565 28.865
## [161] 30.000 29.261 29.012 26.992 27.897
length(datos2)
## [1] 165
combercion de datos a ts
st2=ts(datos2,start = c(1946,2),frequency = 12)
plot(st2)
INTERPETACION
esta grafica tiene una tendencia acendente, tambien es de
factor estacional ciclica haci mismo es multiplicativo
Exportar el conjunto de datos
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_examen.xlsx")
write_xlsx(d3,"datos3_examen.xlsx")
diferencias
st2d=diff(st2,2)
plot(st2d)
st2d12=diff(st2d,12)
plot(st2d12)
