TABLE OF CONTENTS

methodsUni/print.summary.unirec [ Functions ]

NAME

    print.summary.unirec --- S3 method to print summary.unirec objects

SYNOPSIS

296 print.summary.unirec <- function(x, ...)

INPUTS

    x      an objet of class summary.unirec

SOURCE

299 {
300     processname <- attr(x, "processname")
301     dots <- x$dots
302     sreg <- x$summary.reg
303     sdisp <- x$summary.disp
304     colnames(sreg)[1:3] <- paste(processname, c("coef", "sd", "pval"), sep = ".")
305     cat("\nSummary of regression coefficients: \n")
306     sreg <- cbind(sreg, "")
307     colnames(sreg)[4] <- " "
308     pval1 <- as.numeric(sreg[, 3])
309     sreg[, 4] <- paste(ifelse(pval1<.1, "*", ""), ifelse(pval1<.05, "*", ""), ifelse(pval1<.01, "*", ""), sep = "")
310     sreg[pval1 < 1e-4, 3] <- "<1e-4"
311     print(sreg, ...)
312     cat("\nSummary of dispersion coefficients: \n")
313     sdisp <- data.frame(sdisp);colnames(sdisp) <- " "
314     rownames(sdisp) <- paste("var", processname, c("clust", "subj"), sep = ".")
315     print(sdisp, ...)
316     invisible(x)
317 }