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