# NOT RUN {
p1 <- data.frame(diag(3))
p1
colnames(p1) <- c("x", "y", "z")
geoAngle(p1)
geo <- data.frame( lat = c(30, 0, 20), lon = c(30, 60, 10))*(pi/180)
geo
p2 <- geo2sph(geo)
p2
geoAngle(p2)
# }
Run the code above in your browser using DataLab