UAS 3

---

1 Box-Pierce test

Data     <- read_excel("total_kunjungan_mancanegara.xlsx")
Visitors <- Data$Visitors

#conduct Box-Pierce test
Box.test(Visitors, lag = 3, type = c("Box-Pierce"))

## 
##  Box-Pierce test
## 
## data:  Visitors
## X-squared = 55.919, df = 3, p-value = 4.372e-12