Contents

1 蠏 豢
2 觜 豢


1 蠏 豢 #

螳 譟郁唄 襷譟燕る 覲 蠍磯 朱? --> 11蟇
  • |覲誤蠏 - 覈蠏| <= 30
  • 覈譴ク谿 = 50
  • 襤郁規螳 = 0.95

d <- 30 #れ姶螻(覲誤蠏螻 覈蠏螻殊 谿)
sigma <- 50 #覈譴ク谿
conf_lv <- 0.95 #襤郁規螳
n <-ceiling((qnorm(1 - (1-conf_lv)/2) * sigma / d)^2)
n #11


2 觜 豢 #

螳 譟郁唄 襷譟燕る 覲 蠍磯 朱? --> 11蟇
  • |覲碁 - 覈觜| <= 0.05 (5%)
  • 企 螻 觜 = 0.45 (襯 れ, 煙 ′一 45%)
  • 襤郁規螳 = 0.95

d <- 0.05 #れ姶螻(覲誤蠏螻 覈蠏螻殊 谿)
conf_lv <- 0.95 #襤郁規螳
p <- 0.45 #覈襯企 0.5
n <-ceiling((p*(1-p))*((qnorm(1 - (1-conf_lv)/2) / d)^2))
n #381