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的話 我記得積分沒幾行