高校数学の質問スレ（医者・東大卒専用） Part438 (899ﾚｽ)
上下前次1-新

---

853: 05/29(木)17:36 ID:WPcwJ6cn(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
853: [sage] 2025/05/29(木) 17:36:18.23 ID:WPcwJ6cn " サイコロを50回なげて4回１の目がでた。 １の目のでる確率は1/6である仮説が正しい確率を求めよ。 計算に必要なモデルは適宜設定してよい。 例：サイコロを投げる前のこの仮説が正しい確率は一様分布に従う。 a/(a+b)=p a=p(a+b) (1-p)a=pb b=a*(1-p)/p a=b*p/(1-p) a/b=p/(1-p) " rm(list=ls()) p=1/6 n=50 y=4 pbinom(y,n,p) dbinom(y,n,p) fn <- function(prob){ sub <-function(alpha) pbetat(p,prob,c(1,(1-p)/p)*alpha,c(y,n-y))$post optimize(sub,c(1,100))$objective } fn = Vectorize(fn) fn(0.5) prior.probs=runif(1e6) post.probs=fn(prior.probs) summary(post.probs) HDInterval::hdi(post.probs) source("plotpost.R") plotpost(post.probs,col="lightcoral") lines(density(post.probs)) http://rio2016.5ch.net/test/read.cgi/math/1723152147/853
サイコロを回なげて回１の目がでた １の目のでる確率はである仮説が正しい確率を求めよ 計算に必要なモデルは適宜設定してよい 例サイコロを投げる前のこの仮説が正しい確率は一様分布に従う

---

上下前次1-新書関写板覧索設栞歴

---

あと 46 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.022s