get.triprop(use.percentages=FALSE,cnames=c("1st","2nd","3rd"))
if(dev.interactive()) {
# get some proportions
newsp<-get.triprop()
# show the triangle
triax.frame(main="Test triax.plot")
# now plot the observations
triax.points(newsp)
}
Run the code above in your browser using DataLab