Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
require(stats) # for spline
require(graphics)
xx <- -9:9
plot(xx, sqrt(abs(xx)), col = "red")
lines(spline(xx, sqrt(abs(xx)), n=101), col = "pink")
# }
Run the code above in your browser using DataLab