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