uniquePrim(c(1,2,3,2,1,2))
setdiffPrim(c(1,3,2), c(2,3,4,5))
unlistPrim(list(c(1,2),c(2,3)))
## colwiseProd
M <- matrix(1:16, nrow=4)
v <- 1:4
t(v*t(M))
colwiseProd(v,M)
system.time(for (ii in 1:100000) t(v*t(M)))
system.time(for (ii in 1:100000) colwiseProd(v,M))
Run the code above in your browser using DataLab