R/print.nichelap.HOF.frame.R

"print.nichelap.HOF.frame" <-
    function(x, ...)
{
    out <- matrix(0, nrow=length(x), ncol = length(x[[1]]))
    for (i in 1:length(x))
        out[i, ] <- x[[i]]
    rownames(out) <- names(x)
    colnames(out) <- names(x[[1]])
    printCoefmat(out)
    invisible(x)
}
jarioksa/gravy documentation built on May 24, 2024, 4:52 a.m.