if (FALSE) {
# AIC
spec.ic(soi)
spec.ic(sunspotz, method='burg', col=4)
# BIC after detrending on log scale
spec.ic(soi, BIC=TRUE, detrend=TRUE, log='y')
# plot AIC and BIC without spectral estimate
tsplot(0:30, spec.ic(soi, plot=FALSE)[[1]][,2:3], type='o', xlab='order', nxm=5)
}
Run the code above in your browser using DataLab