# NOT RUN {
#' Load the global model (here for Ebola Virus Diesease)
data(Ebola)
nVar = dim(Ebola$KL)[2]
pMax = dim(Ebola$KL)[1]
dMax = p2dMax(nVar, pMax)
#' Compute the time series of Lyapunov exponents
outLyapFD <- NULL
outLyapFD$Wolf <- lyapFDWolf(outLyapFD$Wolf, nVar= nVar, dMax = dMax,
coeffF = Ebola$KL,
tDeb = 0, dt = 0.01, tFin = 2,
yDeb = Ebola$yDeb)
#' estimate the Kaplan-Yorke dimension
DkyCalc(methodName = "Wolf", nVar= 3, lyapExp = outLyapFD$Wolf$lyapExpLoc)
# }
Run the code above in your browser using DataLab