if (FALSE) {
# Using default method
x <- rnorm(100)
s1 <- stateSpaceMethod(x, E=3, tau=2)
# Using custom method
custom_space <- function(x, E, tau) {
list(matrix=embed(x, E))
}
s2 <- stateSpaceMethod(x, E=3, tau=2, method=custom_space)
}
Run the code above in your browser using DataLab