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