R/unif.mh.R

unif.mh <-
function (n, center, sd) 
{
    w <- sd * sqrt(3)
    a <- center - w
    b <- center + w
    cat(a, b, "\n")
    x <- runif(1, a, b)
    return(x)
}

Try the widals package in your browser

Any scripts or data that you put into this service are public.

widals documentation built on April 4, 2025, 4:45 a.m.