Normal Distribution in R Project

[microcell]

Пол часа вспоминал название функции в R, которая бы рассчитывала функцию нормального распределения. Так и не вспомнив, плюнул, и написал свою:

calc_normal <- function(x, m=0, std.dev=1) 1 / (std.dev * sqrt(2 * pi)) * exp(-(x - m) * (x - m) / (2 * std.dev * std.dev))

Наверное, не сильно отличается от оригинала.