# NOT RUN {
{
require(raster)
# read field data
data(fieldData)
# derive plots
g <- derivePlots(fieldData, 1000)
# compare original data and output
plot(fieldData)
plot(g, border="red", add=TRUE)
}
# }
Run the code above in your browser using DataLab