R/rootFct.R

rootFct <- function(x, alpha, n, d, MSr, MSe){

    Fa <- qf(1 - alpha, df1 = d - 1, df2 = (n - 1) * (d - 1), ncp = x)
    res <- Fa - MSr / MSe
    return(res)
}

Try the biostatUZH package in your browser

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

biostatUZH documentation built on May 2, 2019, 6:06 p.m.