abs(x) sqrt(x)
Arithmetic
log
sin
Special
xx <- -9:9 plot(xx, sqrt(abs(xx)), col = "red") lines(spline(xx, sqrt(abs(xx)), n=101), col = "pink")