if (FALSE) {
# Build the Takens vector for the Henon map using the x-coordinate time series
h = henon(n.sample= 3000,n.transient= 100, a = 1.4, b = 0.3,
start = c(0.73954883, 0.04772637), do.plot = FALSE)
takens = buildTakens(h$x,embedding.dim=2,time.lag=1)
# using the x-coordinate time series we are able to reconstruct
# the state space of the Henon map
plot(takens)}
Run the code above in your browser using DataLab