library(terra)
A <- TroublemakeR::Current |> terra::unwrap()
A <- A[[1]]
write_cell_param(Rasterparam = A, parameter = "Suitability", name = "Problem")
write_cell_param(Rasterparam = A, parameter = "Carbon", default = 1,
name = "Problem")
write_cell_param(Rasterparam = A, parameter = "Cost", default = 0,
name = "Problem")
file.remove("Problem.dat")
Run the code above in your browser using DataLab