こんなコードを紹介した。
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_正規分布のプロット図もみてください。