# NOT RUN {
mydata <- generate.panel.1order(time= 0:100,
excitation = sin(0:100),
y0 = 0,
t0 = 0,
tau = 2,
k = 1,
yeq = 0,
nind = 2,
internoise = 0.1,
intranoise = 8)
myresult <- analyze.1order(data = mydata,
id = "id",
input = "excitation",
time = "time",
signal = "signal")
plot(myresult)
# }
Run the code above in your browser using DataLab