asymptotic_prediction(5,list("Asym_value"=0.5,
"lrc_value"=0.2,
"c0_value"=4))
# visualization
asymptote <- lapply(seq(0, 10, 0.1),
asymptotic_prediction,
list("Asym_value"=0.5, "lrc_value"=0.2, "c0_value"=4))
plot(seq(0, 10, 0.1), asymptote)
Run the code above in your browser using DataLab