if (FALSE) {
library(tibble)
library(lpjmlkit)
model_path <- "./LPJmL_internal"
sim_path <-"./my_runs"
# Basic usage
my_params <- tibble(
sim_name = c("scen1", "scen2"),
random_seed = c(12, 404),
pftpar.1.name = c("first_tree", NA),
param.k_temp = c(NA, 0.03),
new_phenology = c(TRUE, FALSE)
)
config_details <- write_config(
x = my_params,
model_path = model_path,
sim_path = sim_path
)
check_config(x = config_details,
model_path = model_path,
sim_path = sim_path,
return_output = FALSE
)
}
Run the code above in your browser using DataLab