powered by
combine.weight(p, w)
p <- matrix(runif(300),100,3) pc <- combine.weight(p,w=c(0.2,0.5,0.3))
Run the code above in your browser using DataLab