## split the SpatialLines object in a list with 8 SpatialLines objects
crs <- "+proj=longlat +datum=NAD83 +no_defs +ellps=GRS80 +towgs84=0,0,0"
air.traj.lines <- Df2SpLines(air.traj, crs)
lines.list <- SplitSpLines(air.traj.lines, 8)
Run the code above in your browser using DataLab