sm.sphere(lat, long, phi=0, theta=0, kappa=20, panel=F, hidden=F,
sphim=F, addpoints=F, ngrid=32)theta is set to 0, the origin of the
spherical scales lies in the middle of the right hand side of the plot.kappa is its scale parameter.
Larger values of kappa will produce smaller amounts of smoothing.sphim is set to T.sm.densitylat <- rnorm(50, 10, 15)
long <- c(rnorm(25, 300, 15), rnorm(25, 240, 15))
par(mfrow=c(1,2))
sm.sphere(lat, long)
sm.sphere(lat, long, sphim=T, kappa=15)
par(mfrow=c(1,1))Run the code above in your browser using DataLab