# Pure seasonal signal
t <- seq(0, 10, length.out = 500)
X <- matrix(sin(2 * pi * t / 2), nrow = 1)
fd <- fdata(X, argvals = t)
result <- classify.seasonality(fd, period = 2)
print(result$classification) # "StableSeasonal"
Run the code above in your browser using DataLab