pot <- ecocropPars("potato")
m <- ecocrop(pot)
crop(m) <- cbind(clay = c(0, 10, 30, 40))
removeParameters(m, "ph")
dynamicPredictors(m) <- cbind(tavg=rep(15,12), prec=rep(100, 12))
removePredictor(m, "tavg")
Run the code above in your browser using DataLab