## ----wofost_soil1-------------------------------------------------------------
library(Rwofost)
soils <- wofost_soil()
cat(soils, "\n")


## ----wofost_soil10------------------------------------------------------------
soil <- wofost_soil("ec1")


## ----wofost_soil12------------------------------------------------------------
class(soil)
length(soil)
str(soil[1:5])


## ----wofost_soil14------------------------------------------------------------
soil$SMTAB


## ----wofost_soil_20, echo=FALSE-----------------------------------------------
params <- read.csv("soilpars.csv", stringsAsFactors=FALSE)
params[,4] <- gsub("-1", "^-1^", params[,4])
p <- params[params[,1] == "soil water retention", -1]
rownames(p) <- NULL
knitr::kable(p)


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


## ----wofost_soil_50, echo=FALSE-----------------------------------------------
p <- params[params[,1] == "Water infiltration and surface storage", -1]
rownames(p) <- NULL
knitr::kable(p)