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/JRWToolBox documentation built on April 20, 2024, 9:31 p.m.