check_zeros: A function to check for multiple zeroes in a sample
In BriceonWiley/IntegratedLikelihood.R:

1	check_zeros(samples)

samples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (samples)
{
    samples %<>% rowid_to_column()
    bad <- filter(samples, n10 == 0 & n11 == 0)
    good <- setdiff(samples, bad)
    bad %>% mutate(n10 = 0.1, n11 = 0.1) %>% union(good) %>%
        arrange(rowid) %>% select(-rowid)
  }