R/print.meanmat.hat.R

In HDTD: Statistical Inference about the Mean Matrix and the Covariance Matrices in High-Dimensional Transposable Data (HDTD)

#' @export
print.meanmat.hat <- function(x, ...) {
    cat("ESTIMATION OF THE MEAN MATRIX", "\n")
    cat("Sample size      =", x$N, "\n")
    cat("Row variables    =", x$n.rows, "\n")
    cat("Column variables =", x$n.cols, "\n")
    cat("\nEstimated mean matrix [1:5, 1:5] =\n")
    print(round(x$estmeanmat[1:min(5, x$n.rows),  1:min(5, x$n.cols)], 4))
}