library(soiltexture)
newtxt=textureinput
# \donttest{
texturedata=createTexturedata(newtxt$clay, newtxt$silt, newtxt$sand)
newtxt1=appendTextureclass(as.data.frame(texturedata), method = "USDA")
levels(as.factor(newtxt1$TEXCLASS))
# }
Run the code above in your browser using DataLab