# NOT RUN {
library(webglobe)
data(quakes) #Load up some data
wg <- webglobe(immediate=FALSE) #Make a webglobe
wg <- wg + wgbar(quakes$lat, quakes$lon, alt=1.5e6*quakes$mag/10) #Plot quakes
wg <- wg + wgcamcenter(-33.35, 142.96, 8000) #Move camera
wg
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab