non_linear_prediction(1,list("base_value"=5,"slope_value"=1))
# visualization
non_linear <- lapply(seq(0, 10, 0.1),
non_linear_prediction,
list("base_value"=5,"slope_value"=1))
plot(seq(0, 10, 0.1), non_linear)
Run the code above in your browser using DataLab