[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

865: 06/04(水)07:49 ID:n75lIIio(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
865: [sage] 2025/06/04(水) 07:49:17.80 ID:n75lIIio set.seed(123) solve = function(x,k=1e5){ f = function(x) runif(1,x-0.5,x+0.5) y=replicate(k,mean(sapply(x,f))) quantile(y,p=c(0.025,0.975)) } solve(c(9,10,11,11,12)) set.seed(123) # 再現性のため solve2 <- function(x, k = 1e5) { # 各x_iに対して一様乱数を生成し、平均を計算（ブートストラップ） bootstrap_means <- replicate(k, { x_true <- runif(length(x), x - 0.5, x + 0.5) mean(x_true) }) # 95%信頼区間を計算 quantile(bootstrap_means, probs = c(0.025, 0.975)) } # 実行例 x_rounded <- c(9, 10, 11, 11, 12) solve2(x_rounded) http://rio2016.5ch.net/test/read.cgi/math/1723152147/865
再現性のため 各に対して一様乱数を生成し平均を計算ブートストラップ 信頼区間を計算 実行例

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s