library(StatDA)
data(moss)
pdf("fig-6-15.pdf",width=9,height=4.5)
par(mfrow=c(1,2),mar=c(0.1,2,0.1,2))
x=moss[,c("Ni","Cu","Pb")]
ternary(x,grid=TRUE,pch=3,cex=0.7,col=1)
text(0.4,0.3,"97")
text(0.37,0.19,"40")
text(0.84,0.2,"38")
text(0.69,0.02,"907")
x=moss[,c("Al","Fe","Mn")]
ternary(x,grid=TRUE,pch=3,cex=0.7,col=1)
text(0.21,0.26,"563")
text(0.1,0.05,"726")
text(0.21,0.06,"325")
dev.off()