# Example usage
plot_fn(
fn = "fn_lin_plat",
params = c(t1 = 34.9, t2 = 61.8, k = 100),
interval = c(0, 100),
n_points = 1000
)
plot_fn(
fn = "fn_lin_pl_lin",
params <- c(t1 = 38.7, t2 = 62, t3 = 90, k = 0.32, beta = -0.01),
interval = c(0, 100),
n_points = 1000,
base_size = 12
)
Run the code above in your browser using DataLab