R/f.test.R

f.test <-
function (x, m1, v1, m2, v2) 
{
    if (x == 1) {
        y = rnorm(1, m1, v1)
    }
    else {
        y = rnorm(1, m2, v2)
    }
    return(y)
}

Try the HSROC package in your browser

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

HSROC documentation built on Sept. 19, 2019, 9:05 a.m.