Ｒでのプロット d=4 y=20 df=rep(d,y) byb=1 ncp=seq(from=0,to=y,by=byb) cols=c(heat.colors(y+1)[1:y+1] ) lw=4 x=seq(0,y*2,length=700) plot(x,pchisq(q=x,df=df[1],ncp=ncp[1]),type="l",lwd=lw,col=cols[1],xlab="",ylab="",ylim=c(0,1),cex.axis=1.5…