# NOT RUN {
# some random data in three variables
c1 <- runif(25)
c2 <- runif(25)
c3 <- runif(25)
# basic plot
par(mfrow=c(1, 2))
PlotTernary(c1, c2, c3, args.grid=NA)
# }
# NOT RUN {
# plot with different symbols and a grid using a dataset from MASS
data(Skye, package="MASS")
PlotTernary(Skye[c(1,3,2)], pch=15, col=hred, main="Skye",
lbl=c("A Sodium", "F Iron", "M Magnesium"))
# }
Run the code above in your browser using DataLab