R语言 limite

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

<br>
limite.central<-function(r=runif, distpar=c(0,1), m=.5, s=1/sqrt(12), n=c(1,3,10,30), N=1000) {<br>
  for(i in n){<br>
    if(length(distpar)==2){<br>
      x <- matrix(r(i*N, distpar[1], distpar[2]), nc=i)<br>
    }else{<br>
      x <- matrix(r(i*N, distpar), nc=i)<br>
    }<br>
    <br>
    x<-(apply(x, 1, sum) - i*m )/(sqrt(i)*s)<br>
    hist(x, col='light blue', probability=T,main=paste("n=",i),<br>
    ylim=c(0,max(.4, density(x)$y)))<br>
    lines(density(x), col='red', lwd=3)<br>
    curve(dnorm(x), col='blue', lwd=3, lty=3, add=T)<br>
  <br>
    if( N>100 ){<br>
      rug(sample(x,100))<br>
    }else{<br>
      rug(x)<br>
    }<br>
  }<br>
}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：limit IMI Lim MIT R语言

18835937885 发表于 2021-10-13 08:21
<br>
limite.central<-function(r=runif, distpar=c(0,1), m=.5, s=1/sqrt(12), n=c(1,3,10,30),  ...

1

18835937885 发表于 2021-10-13 08:21
<br>
limite.central<-function(r=runif, distpar=c(0,1), m=.5, s=1/sqrt(12), n=c(1,3,10,30),  ...

2

18835937885 发表于 2021-10-13 08:21
<br>
limite.central<-function(r=runif, distpar=c(0,1), m=.5, s=1/sqrt(12), n=c(1,3,10,30),  ...

3

18835937885 发表于 2021-10-13 08:21
<br>
limite.central<-function(r=runif, distpar=c(0,1), m=.5, s=1/sqrt(12), n=c(1,3,10,30),  ...

7