# NOT RUN {
data(storms)
dim(storms)
plot(storms)
x = approxTracksCollection(storms, by = "30 min", FUN = spline)
plot(x, col = 'red', add = TRUE)
# }
# NOT RUN {
demo(storms) # regenerates these data from their source
# }
Run the code above in your browser using DataLab