Sl <- SpatialLines(list(Lines(list(Line(cbind(sin(seq(-4,4,0.4)),
seq(1,21,1)))), "1")), proj4string=CRS("+proj=longlat +ellps=WGS84"))
summary(Sl)
nwSL <- nowrapSpatialLines(Sl)
summary(nwSL)
Run the code above in your browser using DataCamp Workspace