if (FALSE) {
set.seed(123)
x <- rnorm(100)
## To call strongest period based on coefficient of variation:
NNS.seas(x, plot = FALSE)$best.period
## Using modulos for logical seasonal inference:
NNS.seas(x, modulo = c(2,3,5,7), plot = FALSE)
}
Run the code above in your browser using DataLab