https://github.com/cran/robCompositions
Tip revision: bea0f6203c78ee704dca8deb7c74cc48e13ee950 authored by Matthias Templ on 15 May 2012, 15:35:41 UTC
version 1.6.0
version 1.6.0
Tip revision: bea0f62
ternaryDiagPoints.R
ternaryDiagPoints <- function(x, ...){
s <- rowSums(x)
if (any(s <= 0))
stop("rowSums of the input data x must be positive.")
x <- x/s
top <- sqrt(3)/2
xp <- x[, 2] + x[, 3]/2
yp <- x[, 3] * top
points(xp, yp, ...)
}