# NOT RUN {
data(Ebola)
nVar = dim(Ebola$KL)[2]
pMax = dim(Ebola$KL)[1]
dMax = p2dMax(nVar, pMax)
outLyapFD <- NULL
outLyapFD$Grond <- lyapFDGrond(outLyapFD$Grond, 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