if (FALSE) {
inputdir <- system.file("extdata", package = "secrlinear")
silverstreammask <- read.linearmask(file = paste0(inputdir,"/silverstream.shp"),
spacing = 50)
par(mar = c(1,1,1,1))
plot(silverstreammask)
}
Run the code above in your browser using DataLab