Set a parameter with a new value
set_parameter_value(l, parameter, value)
A list with replaced value
the list of apsimx file
the name of parameter with APSIM NG specification
the new value
wheat <- read_apsimx(system.file("extdata/Wheat.json", package = "rapsimng"))
new_wheat <- set_parameter_value(wheat,
"[Structure].BranchingRate.PotentialBranchingRate.Reproductive.Zero.FixedValue",
1)
new_wheat2 <- search_path(new_wheat,
"[Structure].BranchingRate.PotentialBranchingRate.Reproductive.Zero")
new_wheat2$node$FixedValue
new_wheat <- set_parameter_value(
wheat,
"[Structure].HeightModel.WaterStress.XYPairs.Y",
"0.1,1.1")
new_wheat2 <- search_path(new_wheat,
"[Structure].HeightModel.WaterStress.XYPairs")
new_wheat2$node$Y
Run the code above in your browser using DataLab