{# \donttest{
### Use the sample data "wd2"
data(wd2)
ch=convhulln(as.matrix(wd2),'Fx')
chlist=as.list(ch)
chvertices = unique(do.call(c,chlist))
aa=archetypal(wd2, 3)
out=kappa_tools(aa , df = wd2, numBins = 100, chvertices, verbose = T )
plot(out)
# }
}
Run the code above in your browser using DataLab