Fitting Differential Equations to Time Series Data

univariate second-order differential equation

library(deFit)
data('example1')
model1 <- '
X =~ myX
time =~ myTime
X(2) ~ X(1) + X
'
result1 <- defit(data = example1, model = model1,plot=TRUE)