# NOT RUN {
mydata <- generate.panel.1order(time = 0:130,
excitation = c(rep(0,30),rep(1,50),rep(0,51)),
nind = 5,
internoise = 0.2,
intranoise = 100)
myres<- optimum_param (data = mydata,
id = "id",
input ="excitation",
time = "time",
signal = "signal",
model = "1order",
dermethod = "gold",
pmin = 3,
pmax = 11,
pstep = 2)
plot(myres)
# }
Run the code above in your browser using DataLab