# NOT RUN {
data(landcover)
landcover[landcover[]>1] <- 0
plot(osc.buffer(landcover, 6))
plot(osc.buffer(landcover, 6, return.width = TRUE))
plot(osc.buffer(landcover, return.width = TRUE, complete = TRUE))
# }
Run the code above in your browser using DataLab