R/dnormR.R

Defines functions dnormR

dnormR <- function(x, mu=0, s=1, log. = FALSE)  {

   out <- -(log(2*pi*s*s) + ((x - mu)/s)^2)/2
   ifelse(log., out, exp(out))
   }
   

   
  
   
John-R-Wallace-NOAA/JRWToolBox documentation built on June 1, 2024, 4:35 p.m.