R/print.csummarytables.dmm.R

In dmm: Dyadic Mixed Model for Pedigree Data

print.csummarytables.dmm <-
function(x,...)
# print.csummarytables.dmm()  -  format a csummarytables.dmm object for printing
{
  for(i in 1: length(x$ctables)) {
    print(x$ctables[[i]],digits=x$digits)
    cat("\n")
  }
}