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