## ----wofost_crop1-------------------------------------------------------------
library(Rwofost)
crops <- wofost_crop()
cat(crops, "\n")


## ----wofost_crop10------------------------------------------------------------
crop <- wofost_crop("barley")


## ----wofost_crop12------------------------------------------------------------
class(crop)
length(crop)
str(crop[1:5])


## ----wofost_crop14------------------------------------------------------------
crop$FOTB


## ----wofost_crop18------------------------------------------------------------
crop <- wofost_crop("barley", describe=TRUE)


## ----wofost_crop_20, echo=FALSE-----------------------------------------------
params <- read.csv("croppars.csv")
params[,4] <- gsub("-1", "^-1^", params[,4])
params[,4] <- gsub("2", "^2^", params[,4])
p <- params[params[,1] == "emergence", -1]
rownames(p) <- NULL
knitr::kable(p)


## ----wofost_crop_22-----------------------------------------------------------
crop$TSUMEM
crop$TEFFMX
crop$TBASEM


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


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


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


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


## ----wofost_crop_70, echo=FALSE-----------------------------------------------
p <- params[params[,1] == "conversion of assimilates into biomass", -1]
rownames(p) <- NULL
knitr::kable(p)


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


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


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


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


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


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