- 844 名前：１３２人目の素数さん mailto:sage [2023/12/10(日) 15:34:45.57 ID:sL8cv9M7.net]
- >>807
Rで関数化しておもちゃ箱に入れておこう。
AE はadverse effectの意
# 1-(1-p)^n=conf.level
AE=\(p=NULL,n=NULL,conf.level=NULL){
if(is.null(p)) {
p=1-(1-conf.level)^(1/n)
re=list(p=p,'1/p'=1/p)
}
if(is.null(n)){
re=list(n=log(1 - conf.level)/log(1-p))
}
if(is.null(conf.level)){
re=list(conf.level=1-(1-p)^n)
}
return(re)
}
AE(p=1/1000,n=NULL,conf=0.95)
AE(p=NULL,n=828,conf=0.99)
AE(p=1/1000,n=828)
