if (FALSE) {
require(Rfssa)
load_github_data("https://github.com/haghbinh/Rfssa/blob/master/data/Callcenter.RData")
D <- matrix(sqrt(Callcenter$calls), nrow = 240)
u <- seq(0, 1, length.out = 240) # Define domain of functional data
d <- 22 # number of basis elements
Y <- Rfssa::fts(list(D), list(list(d, "bspline")), list(u))
plot(Y)
Ytimes <- Y * Y # multiply the functional time series by itself
plot(Ytimes)
Ytimes2 <- Y * 2 # multiply every term in the fts by 2
plot(Ytimes2)
}
Run the code above in your browser using DataLab