# スチューデントのt分布

# パラメータ
nu <- 3

# 確率密度関数のグラフ
tmin <- -5
tmax <- 5
title <- sprintf("t(%d)", nu)
curve(dt(x, nu), from = tmin, to = tmax, xlab = "t", ylab = "f", main = title)