R/pflat.biso.R

`pflat.biso` <- function(obj,...){
  M <- obj$m
  draws <- obj$postdraws
  mean(rowSums(draws[,1:M])==0)
  }

Try the bisoreg package in your browser

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

bisoreg documentation built on June 25, 2018, 9:03 a.m.