1、
> a <- c(3, 2, 2, 4) ## 测试向量 > a [1] 3 2 2 4 > prod(a) ## 求所有向量的乘积 [1] 48 > cumprod(a) ## 向量元素累积求积 [1] 3 6 12 48