Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
x <- as.matrix(iris[, 1:3])
x <- x / rowSums(x)
a <- a.est(x)$best
m <- colMeans(alfa(x, a)$aff)
s <- cov(alfa(x, a)$aff)
alfa.contour(m, s, a)
# }
Run the code above in your browser using DataLab