# NOT RUN {
## embed the beamchaos series in 10 dimensions
## using a time lag of 15.
z <- embedSeries(beamchaos, tlag=15, dim=10)
## plot the attractor in the phase space
# }
# NOT RUN {
plot(z)
# }
# NOT RUN {
## plot the embedding projected down to two
## dimensions
plot(z, dim=2)
# }
Run the code above in your browser using DataLab