R/summary.gdina.wald.R

Defines functions summary.gdina.wald

Documented in summary.gdina.wald

## File Name: summary.gdina.wald.R
## File Version: 0.07

##############################################################
# summary method
summary.gdina.wald <- function(object, digits=3,
        vars=c("X2", "p", "sig", "RMSEA", "wgtdist"), ...){
        stats <- object$stats
        cn <- colnames(stats)
        cn <- cn[-1]
        sels <- c("NAttr")
        for ( rule in object$cdm_rules){
            sels <- c( sels, paste0( rule, "_", vars ) )
                    }
        stats <- stats[, sels ]
        cn <- colnames(stats)
        cn <- cn[ - c( 1, grep("_sig", cn) ) ]
        for (vv in cn){
                stats[,vv] <- round(stats[,vv],digits)
                        }
        rownames(stats) <- paste(object$stats$item)
        print(stats)
            }
###############################################################

Try the CDM package in your browser

Any scripts or data that you put into this service are public.

CDM documentation built on Aug. 25, 2022, 5:08 p.m.