R/check_td.R

check_td <- function (x, id) {
    !all(sapply(split(x, id), function (z) all(z == z[1])))
}
drizopoulos/JMbayes documentation built on Feb. 2, 2021, 12:34 a.m.