triplot()
x <- cbind(c(0.9, 0.05, 0.05), c(0.8, 0.1, 0.1), c(0.1, 0.9, 0), c(0, 0.9, 0.1))
tripoints(x, lwd=2, col=crayons(c("Black","Blue","Red","Green")), pch=16)
trilines(x, lwd=2, col=crayons("Orange"))
y <- cbind(c(0.05, 0.05, 0.9), c(0.25, 0.25, 0.5))
triarrow(y, col=crayons("Blue"), lwd=2, len=0.1)
Run the code above in your browser using DataLab