# NOT RUN {
## We show below an example considering time series from the
## logistic equation. We have estimated the Lyapunov exponent
## spectrum considering the bootstrap sample for an embedding
## dimension (m=4). First of all, we need to estimates the
## partial derivatives of the jacobian.
data<-logistic.ts(u.min=4,u.max=4,B=100,doplot=FALSE)
ts<-data$`Logistic 100`$time.serie
jacob<-jacobi(ts,M0=4,M1=4,doplot=FALSE)
deriv<-jacob$Jacobian.net
lyapu<-lyapunov.spec(deriv,blocking="BOOT",B=10)
show(lyapu$Exponent)
# }
Run the code above in your browser using DataCamp Workspace