crs <- "+proj=longlat +datum=NAD83 +no_defs +ellps=GRS80 +towgs84=0,0,0"
air.traj.lines <- Df2SpLines(air.traj, crs)
air.traj.linesDf <- Df2SpLinesDf(air.traj.lines, air.traj)
PlotTraj(air.traj.linesDf)
Run the code above in your browser using DataLab