こんなコードを紹介した。
x <- 1:20
curve(dnorm, -4, 4, col = 2, lty = 2, lwd = 2)
my.dt <- function(x) dt(x, 19)
curve(my.dt, -4, 4, add = T, col = 5, lty= 3, lwd = 2)
legend(-4, .4, legend= c("正規分布", "t分布"),
col = c(2,5), lty = c(2,3), lwd = 2)
R_正規分布のプロット図もみてください。