# say you have some list
list1 = list(1:5, runif(3), rnorm(4))
# get the product of all elements in list1
prodlist(list1)
# say you have missing data
list2 = list(c(1:4, NA), runif(3), rnorm(4))
# get the prod of all elements in list2 removing NAs
prodlist(list2, na.rm=TRUE)
Run the code above in your browser using DataLab