cum = data.frame(V = sapply(1:v, function(x){sum(cumsum(runif(10)) < 1 ) + 1}))因为你用print,不是把值回传这是一个模拟,算inf_k (unif(0,1) k个和>1)根据蒙提卡罗法应该可以得到是exp(1)数学证明:
http://tinyurl.com/7n5dtzj以前硕班机率论有证过大于1的case应该是在随机过程的部分,N(t)~sum of uniform dist那个证明是满难的 for general case如果是> 1的话 我记得积分没几行