function (n, dist = c("normal", "uniform")) 
{
    dist <- match.arg(dist)
    stopifnot(n < 1000000)
    if (dist == "normal") {
        hist(rnorm(n))
    }
    if (dist == "uniform") {
        hist(runif(n))
    }
    invisible()
}
<bytecode: 0x55c87664d108>
<environment: namespace:appdemo>