# NOT RUN {
tau <- 30
x <- I( 0:10 / 10 )
H <- H.omega.sincos( x, c( 1*pi, 4*pi ) )
xs <- SS.sim( 0.99, H, 1, 2, tau, rep(0, ncol(H)) )
# }
# NOT RUN {
for(i in 1:nrow(xs$Z)) {
plot(x, xs$Z[ i, ], ylim=range(xs$Z), main=i)
Sys.sleep(1/10)
}
# }
Run the code above in your browser using DataLab