df.soil <- data.frame(
"mat" = 1:4,
"upper" = c(0,13,60,101),
"lower" = c(13,60,101,135),
"texture" = c("Ls2", "Ls3", "Ls3", "Lts")
)
df <- df.soil
fnc_depth_disc(df = df.soil)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.