```
# 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)
if (FALSE) {
# 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=DescTools::hred, main="Skye",
lbl=c("A Sodium", "F Iron", "M Magnesium"))
}
```

Run the code above in your browser using DataLab