R/hist.add.distribution.curve.normal.simple.R

In burrm/lolcat: Miscellaneous Useful Functions

hist.add.distribution.curve.normal.simple <- function (
    mean = 0, 
    variance = 1,
    lwd = 3,
    col = "darkorange",
    plot.scale = 1,
    ...
) {
    lim <- par("usr")
    #xlim <- lim[1:2]
    #ylim <- lim[3:4]
    
    plot( 
        function(x) { 
            plot.scale*dnorm(x, mean = mean, sd=sqrt(variance)) 
        }, 
        lim[1], 
        lim[2], 
        add=TRUE, 
        lwd = lwd, 
        col = col,
        ...
    )
}