library(readxl)
## Warning: package 'readxl' was built under R version 4.1.3
nacimientos <- read.csv(file.choose())
summary(nacimientos)
## X x
## Min. : 1.00 Min. :20.00
## 1st Qu.: 42.75 1st Qu.:23.28
## Median : 84.50 Median :24.96
## Mean : 84.50 Mean :25.06
## 3rd Qu.:126.25 3rd Qu.:26.88
## Max. :168.00 Max. :30.00
nacimientos1 <- nacimientos$x
ts_NacimientosMensuales <- ts(nacimientos1,frequency=12,start=1)
plot(decompose(ts_NacimientosMensuales))
En la tendencia podemos observar una tendencia a la alta
En el componente estacional se pueden oberservar periodos medianamente elevados
Por el lado del componente random, se observan pocos periodos lo que indica que tiende
a ser aleatorio