sigview: Easy viewing of sig objects~

In trinker/DIFdetect: This package assists in performing quantitative discourse analysis

Usage

sigview(logDIFobject, sigsobject, sigtype = "inter.vs.null")

Arguments

logDIFobject
sigsobject
sigtype

Examples

##---- 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 (logDIFobject, sigsobject, sigtype = "inter.vs.null") 
{
    ns <- switch(sigtype, inter.vs.null = which(sigsobject[, 
        "DIF_DETECTED"]), all.sig = {
        Y <- c("DIF_DETECTED", "UNIFORM_DIF", "NONUNIFORM_DIF")
        sort(unlist(unique(sapply(Y, function(i) which(sigsobject[, 
            i])))))
    })
    names.s <- as.character(sigsobject[ns, "item"])
    sig.mods <- lapply(ns, function(i) logDIFobject[[i]])
    names(sig.mods) <- names.s
    return(sig.mods)
  }

trinker/DIFdetect documentation built on May 31, 2019, 8:40 p.m.