## plot prior probabilities:
library(sp)
data(USDA.TT.im)
gridded(USDA.TT.im) <- ~s1+s2
spplot(USDA.TT.im["v"])
## Not run: library(soiltexture)
# ## convert textures by hand to sand, silt and clay:
# TEXMHT <- c("CL","C","SiL","SiL","missing")
# x <- TT2tri(TEXMHT)
# x
# ## End(Not run)
Run the code above in your browser using DataLab