メモ

Sratio<-function(df1=df1,df2=df2)gamma(df1/2)/gamma(df2/2)*pi^((df2-df1)/2)
pchiRatio<-function(df1=df1,df2=df2)gamma(df1/2)/gamma(df2/2)*(1/2)^((df2-df1)/2)
SratioPchiRatioRatio<-function(difdf)Sratio(1,1+difdf)/pchiRatio(1,1+difdf)
plot(dnorm(chi),dchisq(chi^2,1)*chi)