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

---

836: 05/15(木)15:07 ID:vFdoSXtm(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
836: [sage] 2025/05/15(木) 15:07:47.91 ID:vFdoSXtm rm(list=ls()) library(PropCIs) noninferior.pitfall <- function(r0,n0, r1,n1, r2,n2, r3,n3, nim_coef, alpha=0.05, yates=FALSE) { delta <- (r0/n0 - r1/n1) * nim_coef if (min(r0, r1, r2, r3) < 5) { p1 <- fisher.test(matrix(c(r1, n1-r1, r0, n0-r0), 2, 2))$p.value p2 <- fisher.test(matrix(c(r2, n2-r2, r0, n0-r0), 2, 2))$p.value ci_upper <- diffscoreci(r2, n2, r3, n3, conf.level=1-2*alpha)$conf.int[2] } else { p1 <- prop.test(c(r1, r0), c(n1, n0), correct=yates)$p.value p2 <- prop.test(c(r2, r0), c(n1, n0), correct=yates)$p.value ci_upper <- prop.test(c(r2, r1), c(n2, n1), conf.level=1-2*alpha, correct=yates)$conf.int[2] } all( r1 < r0 && p1 < alpha, p2 > alpha, ci_upper < delta ) } noninferior.pitfall(16,201,6,202,7,203,6,204,0.684) http://rio2016.5ch.net/test/read.cgi/math/1723152147/836

---

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

---

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

---

ぬこの手 ぬこTOP 0.022s