# カイ二乗分布

# パラメータ
nu <- 5

# 確率密度関数のグラフ
cmin <- 0
cmax <- nu * 3
title <- parse(text = sprintf("chi^2*(%d)", nu))
curve(dchisq(x, nu), from = cmin, to = cmax, main = title)