# NOT RUN {
  y <- tsmeasures(dat0, window = 48)
  # Add mean and variance to the "features" matrix
  avg <- colMeans(dat0)
  variance <- apply(dat0, 2, var)
  y <- cbind(y, avg, variance)
  class(y) <- c("features", "matrix")
# }
Run the code above in your browser using DataLab