#Pengaktifan Library

library(tseries)
## Warning: package 'tseries' was built under R version 3.6.3
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
library(forecast)
## Warning: package 'forecast' was built under R version 3.6.3

Import data

library(readxl)
Harga_Beras <- beras<-read_excel("Harga Beras.xlsx")

Plot data

rice<-beras$Harga.Beras

ts.plot(rice,col='blue', main= "Plot Data Harga Beras")

Bisa dilihat bahwa data Total Harga Beras mengalami perubahan yang signifikan dengan adanya covid-19

Uji Stasioneritas

Dilakukan uji ADF untuk menguji stasioner data dengan hipotesis H0 = Data Stasioner H1 = Data Tidak Stasioner tingkat signifikasi = 5%

adf.test(rice)
## 
##  Augmented Dickey-Fuller Test
## 
## data:  rice
## Dickey-Fuller = -2.876, Lag order = 3, p-value = 0.2336
## alternative hypothesis: stationary

Dari uji KPPS di dapatkan p-value 0.2336 dimana nilai p-value lebih besar dari a = 0,05 yang berarti tolak H0 yang artinya data stasioner.

Uji ACF dan PACF

par(mfrow=c(1,2))
Acf(rice,lag.max=34)
Pacf(rice,lag.max=34)

persebaran data berada di antara mean sehingga dapat disimpulkan bahwa data sudah stasioner.