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

---

852: 05/25(日)10:38 ID:P4nhnL8B(6/6)調 AAS
HDI_discrete <- function(prob_data, credMass) {
x = prob_data[, 1]
p = prob_data[, 2]
n = length(x)

sp = sort(p, index.return = TRUE)
i = sp$ix[seq(n, 1, -1)]

ps = p[i]
xs = x[i]

cp = cumsum(ps)

ii = 1:n
j = ii[cp >= credMass]
j = j[1]

achieved_credMass = cp[j]
hdi_set = sort(xs[1:j])

v = list(credMass = achieved_credMass, set = hdi_set)
return(v)
}

---

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

---

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

---

ぬこの手 ぬこTOP 0.021s