Bootstrap

 
  RSTUDIO
  Tap 2x to all select
  Copy

library(readxl)

DATA<-read_excel("D:/Katabba/_DATA STATISTIK/Kopi di Indonesia/Data 2016-2025.xlsx")
DATA<-DATA[-(109:112),1]
head(DATA)
tail(DATA)
ts.plot(DATA)

library(tseries)
#Test Stasioneritas Data:
adf.test(ts(DATA))
boxplot(DATA)

ARIMAANN<-function arima="" as.ts="" checking="" data="" fitted="" fitting="" for="" from="" h="" hybrid="" if="" kk1="pp$fitted" kk="" model="" modelling="" obtained="" of="" p1="" pp="" residuals="" suitability="" summary="" the="" values="" w="terasvirta.test(x)#" x="">0.05){}

    Test_Result<- 2016-2025.xlsx="" adf.test="" ape="" arima="" arimaann="" as.ts="" ata="" atabba="" boxplot="" checking="" coefficients
    ="" data:="" data="" di="" else="" est="" est_result="" ff4="" fitted="" fitting=""
    for="" forecasted.values="" from="" function="" h="" head="" hybrid="" if="" indonesia="" is="" kk1="pp$fitted" kk="" library="" list="" lt="" model="" modelling="" not="" obtained="" of="" op
    i="" p1="" p2="" pp6="" pp="" pvalues="pvalues," read_excel="" readxl="" residuals="" return="" se="" stasioneritas="" statistik="" suitability
    ="" suitable="" summary="" tail="" test_result="" the="" ts.plot="" ts="" tseries="" values="" w="terasvirta.test(x)" x="" zz1=""> 0.05){}
    
    Test_Result <- ata="" code="" coefficients="" else="" est_result="" ff4="" fitted="" for="" forecasted.values="" hybrid="" is="" list=""
    mape="" modelling="" mse="" not="" p2="" pp6="" pvalues="pvalues," return="" suitable="" summary="" test_result="" zz1="">

<div>Contoh HTML</div>

<div>Contoh HTML</div>

<div>Contoh HTML</div>

<div>Contoh HTML</div>