# NOT RUN {
## colwiseProd
X <- matrix(1:16, nrow=4)
v <- 1:4
t(v * t(X))
colwiseProd(v, X)
# }
# NOT RUN {
system.time(for (ii in 1:100000) t(v * t(X)))
system.time(for (ii in 1:100000) colwiseProd(v, X))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab