# NOT RUN {
x <- sort(rnorm(20, 5, 5))
y <- rnorm(20, 2, 2)
env <- new.env()
approx_with_spline(data.frame(x = x, y = y), "y", "x", env)
approx_with_monotonic_spline(data.frame(x = x, y = y), "y", "x", env, "up")
# }
Run the code above in your browser using DataLab