# NOT RUN {
## The first ten values corresponding to the uniform embedding
## vectors set for m=5 and lag=1 are showed by simulating
## time series from the logistic equation.
data<-logistic.ts(u.min=4,u.max=4,B=100,doplot=FALSE)
ts<-data$`Logistic 100`$time.serie
embed<-embedding(ts,m=5,lag=1,timelapse="FIXED")
show(head(embed, 10))
# }
Run the code above in your browser using DataCamp Workspace