cds1 <- rbind(c(-180,-20), c(-140,55), c(10, 0), c(-140,-60))
cds2 <- rbind(c(-10,0), c(140,60), c(160,0), c(140,-55))
cds3 <- rbind(c(-125,0), c(0,60), c(40,5), c(15,-45))
lines <- SpatialLines(list(Lines(list(Line(cds1)), "1"), Lines(list(Line(cds2)), "2"), Lines(list(Line(cds3)), "3") ))
r <- raster(ncols=90, nrows=45)
r <- linesToRaster(lines, r)
plot(r)
plot(lines, add=TRUE)
r <- linesToRaster(lines, r, overlap='count')
plot(r)
r[] = 1:ncell(r)
r <- linesToRaster(lines, r, mask=TRUE)
plot(r)
Run the code above in your browser using DataLab