WangEngels_prediction(10, params = list("xmin_value"=1,
"xopt_value"=25,
"xmax_value"=35,
"r_value"=0.5))
# visualization
WangEngels <- lapply(seq(0, 40, 0.1),
WangEngels_prediction,
list("xmin_value"=1,
"xopt_value"=25,
"xmax_value"=35,
"r_value"=0.5))
plot(seq(0, 40, 0.1), WangEngels)
Run the code above in your browser using DataLab