# NOT RUN {
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