# NOT RUN {
myresult <- analyze.1order(data = cardio[id==1],
id="id",
input = "load",
time = "time",
signal = "hr")
#Copying cardio into a new data frame and modifying the excitation column
new_exc <- cardio[id==1]
et <- generate.excitation(amplitude = 100,
nexc = 6,
duration = 2,
deltatf = 1,
tmax = 49,
minspacing = 2)
new_exc$load <- et$exc
new_exc$time <- et$t
predresult <- predict(myresult, newdata = new_exc)
# }
Run the code above in your browser using DataLab