# NOT RUN {
set.seed(1,kind="Mersenne-Twister")
a <- matrix(rnorm(100),nrow=5)
x <- rowProds(x=a, na.rm=TRUE)
# x
# [1] -3.359208e-07 -2.861043e-10 -2.831108e-08
# [4] -5.451996e-07 3.057436e-04
# }
Run the code above in your browser using DataLab