print.summary.rm5 <- function(x, ...) {
  
  ##
  ##
  ## (1) Check for summary.rm5 object
  ##
  ##
  chkclass(x, "summary.rm5")
  
  
  n <- 1
  for (i in 1:length(x)) {
    if (n > 1)
      cat("\n*****\n\n")
    print(x[[i]])
    n <- n + 1
  }
  
  
  invisible(NULL)
}