powered by
spherical.weight(x)
x <- seq( -2, 2, .01 ) y <- spherical.weight( x )
Run the code above in your browser using DataLab