如何解决投币并生成图形
有人可以生成那些图表,或者至少可以帮助我吗?我想产生这种不确定的翻转次数来获得正面和反面的可能性。实际上不是那样,而是考虑像这样pthetaGivenData
并检查我的代码。也许您会知道我想要得到什么。这是我到目前为止所做的:
虽然没有工作。我无法将每个硬币结果的结果都存储在add中,因此也将pthetaGivenData
存储在存储中。我试图生成前五个数据图,然后再做其他五个图,然后将它们制成矩阵。
只是为了以防万一我们在诸如TTT或HHHHH之类的首发比赛中获得重复的成绩。
主要公式为pthetaGivenData = theta^nHeads * (1-theta)^nTails
theta = 1
storage = numeric()
add = numeric()
y = 0
nHeads = 0
nTails = 0
z = 0
while(nHeads == 0 || nTails == 0){
Data = sample(c("H","T"),1)
if(Data == "H"){
x=1
}else{
x=0
}
append(add,x)
nHeads = sum( add == 1 )
nTails = sum( add == 0 )
y <- 0
while(nTails==0 && y==0){
pthetaGivenData = (theta)^nHeads
append(storage,pthetaGivenData)
theta = pthetaGivenData
y <- y+1
}
while(nHeads==0 && y==0){
pthetaGivenData = (1-theta)^nTails
append(storage,pthetaGivenData)
theta = pthetaGivenData
y <- y+1
}
z <- z+1
}
for(i in z+1:5){
pthetaGivenData = theta^nHeads * (1-theta)^nTails
storage[i] <- pthetaGivenData[i]
theta = pthetaGivenData
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。