powered by
get.soil.texture
get.triprop
get.soil.texture(use.percentages=FALSE,cnames=c("sand","silt","clay"))
soil.texture
if(dev.interactive()) { newsp<-get.soil.texture() # show the soil triangle soil.texture() # now plot the observations show.soil.texture(newsp) }
Run the code above in your browser using DataLab