if (FALSE) {
#############################################################################
# EXAMPLE 1: Toy example for computation of sufficient statistics
#############################################################################
library(STARTS)
data(data.starts01b, package="STARTS")
dat <- data.starts01b
dat1 <- dat[, paste0("E",1:3)]
#-- compute sufficient statistics
res <- LAM::suff_stat_NA_pattern(dat1)
str(res)
}
Run the code above in your browser using DataLab