# NOT RUN {
set.seed(100)
n <- 500
x <- sample(1:100, n, replace=TRUE)
x[25] <- 200
x[320] <- 270
df <- data.frame(timestamp=1:n, value=x)
plot(ts(df$value))
out <- uv_tsout_ens(x)
out
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab