R/cacc.R

Defines functions cacc

Documented in cacc

cacc <-
function(tb){
        n <- sum(tb)
        nr <- dim(tb)[1]+1
         logn <- 0
         if(nr>1)logn <- log(nr)
         yp <- chiSq(tb)
         val=sqrt(yp/(yp+n*logn))
         return(val)
}

Try the discretization package in your browser

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

discretization documentation built on June 9, 2022, 5:09 p.m.