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)