R/burt.R

Defines functions burt

Documented in burt

burt <- function(data) {
    disj <- dichotom(data,out='numeric')
    res <- as.matrix(t(disj)) %*% as.matrix(disj)
    return(res)
    }

Try the GDAtools package in your browser

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

GDAtools documentation built on Oct. 6, 2023, 5:07 p.m.