powered by
get.triprop
get.triprop(use.percentages=FALSE,cnames=c("1","2","3"))
triax.plot
soil.texture
if(dev.interactive()) { # get the default proportions for soil textures newsp<-get.triprop() # show the soil triangle soil.texture() # now plot the observations show.soil.texture(newsp) }
Run the code above in your browser using DataLab