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