Instrucciones encontrar y analizar un valor de p-value < 0.05 para que exista o no estacionariedad para verificar los patrones dentro de la grafica.

Datos

rainfall <- c(799,1174.8,865.1,1334.6,635.4,918.5,685.5,998.6,784.2,985,882.8,1071) x <- ts(rainfall,start = c(2012,1),frequency = 12)

plot(x) tseries::adf.test(x)

R//: En la presente grafica se puede visualizar que no hay estacionariedad por que el p-value > 0.05 por lo tanto no hay ningun patron dentro de la misma.

dx <- diff(x) plot(dx) tseries::adf.test(dx)

#R//: En la siguiente grafica si hay estacionariedad por que el p-value es <0.05 y no se oberva ningun patron o tendencia.

d2x <- diff(dx) plot(d2x) tseries::adf.test(d2x)

#R//: En este caso no es necesario

d3x <- diff(d2x) plot(d3x) tseries::adf.test(d3x)

#R//: En este caso no es necesario.