if (FALSE) {
landscape <- landscapeTEST1
croptypes <- data.frame(sample.int(3, length(landscape), replace = TRUE))
allocation <- SpatialPolygonsDataFrame(landscape, croptypes, match.ID = TRUE)
plot_allocation(allocation, 1,
title = "Simulated landscape", subtitle = "Year 1",
filename = paste(getwd(), "/landscape.png", sep = "")
)
}
Run the code above in your browser using DataLab