data(CurrentLanduse)
CurrentLU <- terra::unwrap(CurrentLanduse)
TroublemakeR::create_budget(budget = 2,
Rastercurrentlanduse = CurrentLU,
landuses = c("Agriculture", "Forest", "Urban"),
name = "Problem",
verbose = TRUE)
# delete the file so the test on cran can pass this
file.remove("Problem.dat")
Run the code above in your browser using DataLab