Nothing
## ----setup, include=FALSE, echo=FALSE-----------------------------------------
knitr::opts_chunk$set(
echo = TRUE,
warning = FALSE,
message = FALSE,
comment = "# >"
)
## ----texture, fig.align="center"----------------------------------------------
library(envalysis)
data(clayloam)
print(clayloam)
tex <- texture(reading ~ blank + time + temperature, data = clayloam)
print(tex)
plot(tex)
## ----soiltexture_package------------------------------------------------------
library(soiltexture)
## ----soiltexture_convert------------------------------------------------------
germansoil <- as_tridata(tex, which = "din")
ussoil <- as_tridata(tex, which = "usda")
## ----soiltexture_classify-----------------------------------------------------
TT.points.in.classes(germansoil, class.sys = "DE.BK94.TT")
TT.points.in.classes(ussoil, class.sys = "USDA.TT")
## ----soiltexture_plot, echo = -1, fig.align="center"--------------------------
par(cex = 0.75, cex.lab = 0.5, cex.axis = 0.5, cex.main = 1)
TT.plot(class.sys = "DE.BK94.TT", tri.data = germansoil)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.