偽陽性率
である
K<-10 as<-0:(-K) lN<-0:K # 偽陽性率は10^as[i] # 検査件数は10^lN[j] res<-matrix(0,length(as),length(lN)) for(i in 1:length(as)){ p<-10^(as[i]) N<-10^lN res[i,]<-1-(1-p)^N } matplot(t(res),type="l")
である
K<-10 as<-0:(-K) lN<-0:K # 偽陽性率は10^as[i] # 検査件数は10^lN[j] res<-matrix(0,length(as),length(lN)) for(i in 1:length(as)){ p<-10^(as[i]) N<-10^lN res[i,]<-1-(1-p)^N } matplot(t(res),type="l")