# Plot the position of aircrafts currently flying over an area covering
# Switzerland.
if(interactive()){
vectors <- getSingleTimeStateVectors(minLatitude=45.8389, maxLatitude=47.8229,
minLongitude=5.9962, maxLongitude=10.5226)
plotPlanes(vectors)
}
Run the code above in your browser using DataLab