- RNorm = function(n,ave = 0,var = 1){
- mu = ave
- sigma = sqrt(var)
- r = c()
- for (i in 1:n) {
- r[i] = mu + sigma * (sum(c(runif(n))) - n / 2) / sqrt(n / 12)}
- return(r)
- }
- RNorm(1000)
|
楼主: Oxygen17
|
683
0
[新手尝试] R语言编程训练:用自己的函数实现正态随机数的生成 |
jg-xs1京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


