# 2005 年 10 月 18 日作成
# To draw density of F-distribution
x<-seq(0,10,by=0.001)
plot(x,df(x,2,2),xlim=c(0,10),ylim=c(0,1.1),xlab="",ylab="",type="l",col="yellow")
par(new=T)
plot(x,df(x,12,2),xlim=c(0,10),ylim=c(0,1.1),xlab="",ylab="",type="l",col="red")
par(new=T)
plot(x,df(x,2,12),xlim=c(0,10),ylim=c(0,1.1),xlab="",ylab="",type="l",col="blue")