R语言模拟抛硬币试验
【摘要】 模拟抛硬币后正面向上的比例。rm(list = ls())z<-function(N) { a<-sample(0:1,N,replace = TRUE) b<-c() for(i in 1:N){ b[i]<-mean(a[1:i]) } return(b)}n<-1000w<-z(n)x<-z(n)y<-z(n)plot(w,ylim=c(0,1),type='l')line...
模拟抛硬币后正面向上的比例。
rm(list = ls()) z<-function(N) { a<-sample(0:1,N,replace = TRUE) b<-c() for(i in 1:N){ b[i]<-mean(a[1:i]) } return(b) } n<-1000 w<-z(n) x<-z(n) y<-z(n) plot(w,ylim=c(0,1),type='l') lines(x,col='red') lines(y,col='green')
观察结果:
只有1000次,但可以看出取向与0.5,更多次数,10万次结果:
【版权声明】本文为华为云社区用户原创内容,转载时必须标注文章的来源(华为云社区)、文章链接、文章作者等基本信息, 否则作者和本社区有权追究责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱:
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论(0)