R语言。求解释code

Question

> poissonproc <- function () { #这function做什么的？设值吗？
+ N <- rpois (1, 1.5 * 10) #题目里没有10，不明白为什么*10，而且这是做什么的。
+ P <- runif ( N, max=10)
+ return ( sum ( 4 <= P & P<=5))
+}
>counts <- replicate (10000, poissonproc())

Answer 1

function 是定义一个函数，这个函数的名字是poissonproc，感脚上是个泊松过程吧；
rpois是按照泊松分布生成随机数rpois(n, lambda)，生成n个；
runif是按照均匀分布生成随机数runif(n, min=0, max=10), 生成n个，这个n是之前的结果，最大值是10，最小值默认为0；
返回的 均匀分布的随机数中，[4, 5]之间的个数；

最后一句：上述过程重复10000次；