R/BIC.R

`BIC` <-
function(res){

     bic<--2*res[[1]]$versem_max+(res[[1]]$n_coeff*log(res[[1]]$numindiv))
     bic

}

Try the BayHap package in your browser

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

BayHap documentation built on May 2, 2019, 12:44 a.m.