本文为本科课程整理
五一应该会做一个大概的纸质版的笔记整理。
#纯随机性检验
white_noise <- rnorm(500)
white_noise2 <- rnorm(500,mean = 2,sd = 0.2)
white_noise <- ts(white_noise)
plot(white_noise)
acf(white_noise,ylim=c(-1,1))
#LBQ检验
LBQ <- Box.test(white_noise,lag = 6,type = "Ljung-Box")
help(Box.test)
LBQ$p.value
#for循环
for (i in 1:2) print(Box