次元で丸くするかボンフェロニか df1<-1 df2s<-1:5 pdf1<-10^(-9:-1) pp<-matrix(0,length(df2s),length(pdf1)) for(i in 1:length(df2s)){ df2<-df2s[i] probs<-pchisq(qchisq(pdf1,df1,lower.tail=FALSE),df2,lower.tail=FALSE) plot(probs) probs plot(pr…