# simulates an example time series and estimates its trend and evolutionary wavelet spectrum
spec <- matrix(0, nrow = 10, ncol = 2^10)
spec[1, ] <- seq(from = 1, to = 10, length = 1024)
trend <- sin(pi * (seq(from = 0, to = 4, length = 1024)))
set.seed(1)
x <- TLSWsim(trend = trend, spec = spec)
x.TLSW <- TLSW(x)
summary(x.TLSW)
Run the code above in your browser using DataLab