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）