r <- 1.5 n <- 100000 hist.sample <- hist(log(rexp(n, rate = r)), 50) plot(hist.sample) y <- hist.sample$mids dy <- (max(y) - min(y)) / (length(y) - 1) lines(y, r * exp(y - r * exp(y)) * n * dy)むろん R は何でもアリ, なんで極値分布 (extreme distribution) を直接あつかう package が CRAN にある.