R/print.betadiversity.R

"print.betadiversity" <-
    function(x, ...)
{
    out <- rbind("Gradient" = x$x, "Betadiversity" = x$beta)
    print(out)
    invisible(x)
}
jarioksa/gravy documentation built on May 18, 2019, 3:47 p.m.