# NOT RUN {
data(Ebola)
nVar = dim(Ebola$KL)[2]
pMax = dim(Ebola$KL)[1]
dMax = p2dMax(nVar, pMax)
outLyapFD <- NULL
outLyapFD$Wolf <- lyapFDWolf(outLyapFD$Wolf, nVar= nVar, dMax = dMax,
coeffF = Ebola$KL,
tDeb = 0, dt = 0.01, tFin = 2,
yDeb = Ebola$yDeb)
# }
Run the code above in your browser using DataLab