Chinese In North America(北美华人e网)

注册
发新话题 回复该主题

1#

有谁R function很强的?投硬币概率问题

出现head的概率是0.6, 投硬币投到连续三次出现head后停止,求扔的次数,仿真1000次, 求mean和variance
最后编辑dolphina 最后编辑于 2018-11-07 22:41:13
转发
TOP
0
4
2#

楼主你要是不知道怎么把题目翻译成中文可以把整段原题贴上来的……
TOP
0
0
3#

什么叫做“移动variance”
TOP
0
0
4#

是simulate 扔3次硬币的binomial distribution 吧?然后通过出现几次head和对应的frequency来算这个binomial distribution的mean和方差?

p = 0.6;
n = 3;
U = runif(n,min=0,max=1);
x =sum(U<p);

上面code用for loop一千次,x只能是0,1,2,3这4种可能,分别算出它们1000次中出现的frequency, 就能算出mean和方差了。
TOP
2
0
5#

楼主你要是不知道怎么把题目翻译成中文可以把整段原题贴上来的……
mayapple 发表于 11/7/2018 9:25:32 PM

re...lz的中文实在没看懂。。
TOP
0
0
6#

Find the mean and variance of consecutive three heads , run simulation for 1000, p=0.6

TOP
0
0
7#

楼上为啥用 runif不用rbinom


TOP
0
0
8#

my 2 cents:
set.seed(42)
N=1000
n=3
p=0.6

counter <- 1
coin <- sum(rbinom(n, 1, p)) # of heads
while(counter<n){
  coin <- c(coin, sum(rbinom(n, 1, p)))
  counter <- counter+1
}

sd(coin)
c <- data.table::data.table(coin)
c[coin==3,.N/nrow(c)]  # mean</n){
最后编辑bunny527 最后编辑于 2018-11-07 22:00:16
TOP
0
0
9#

Runif是uniform distribution不是binomial

TOP
0
0
10#

楼上的n=3感觉不太对

TOP
0
0
发新话题 回复该主题