#' @export
print.powerByFactor <- function(x, ...) {
results <- do.call(cbind, x$result)
final <- data.frame(Samples = x$nSample, results)
print(final)
invisible(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.