## ----wofost_ctrl10------------------------------------------------------------
library(Rwofost)
ctrl <- wofost_control()


## ----wofost_ctrl_20, echo=FALSE-----------------------------------------------
params <- read.csv("controlpars.csv", fileEncoding = "UTF-8")
p <- params[params[,1] == "site", -1]
rownames(p) <- NULL
knitr::kable(p)


## ----wofost_ctrl_30, echo=FALSE-----------------------------------------------
p <- params[params[,1] == "siteopt", -1]
rownames(p) <- NULL
knitr::kable(p)


## ----wofost_ctrl_40, echo=FALSE-----------------------------------------------
p <- params[params[,1] == "timing", -1]
rownames(p) <- NULL
knitr::kable(p)


## ----wofost_ctrl_50, echo=FALSE-----------------------------------------------
p <- params[params[,1] == "water", -1]
rownames(p) <- NULL
knitr::kable(p)