logDIF <-
function(items, group, digits=3, output = "bare"){
dat <- data.frame(items)
total <- rowSums(dat)
MODS <- lapply(seq_along(dat), function(i) logDIFh(dat[, i], total=total,
group=group, digits=digits, output = output))
names(MODS) <- paste0("ITEM_", 1:length(MODS))
return(MODS)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.