R/unif.mh.R

Defines functions unif.mh

Documented in unif.mh

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 Dec. 8, 2019, 1:07 a.m.