R/print.srmRRrelVars.R

In DLEIVA/nonindependence: Measuring nonindependence in dyadic designs

print.srmRRrelVars <- function(x,digits=max(4,getOption("digits")-4),...)
{
  cat("\n")
  cat("SRM Relative Variances: Round Robin Design")
  cat("\n\n")
  T <- dim(x$actor.variance)[1]
  G <- dim(x$actor.variance)[2]
  times <- unlist(dimnames(x$actor.variance)[1])
  groups <- unlist(dimnames(x$actor.variance)[2])
  group <- rep(groups,T)
  time <- rep(times,G)
  actor <- array(x$actor.variance)
  partner <- array(x$partner.variance)
  relationship <- array(x$relationship.variance)
  results<-data.frame(group,time,actor,partner,relationship)
  rownames(results) <- ''
  print(results)
  cat("\n\n")
  invisible(x)
}