summary.GSAfisher <-
function(object, ...) {
cat("Fisher combined method","\n")
cat("\n")
cat("Imput data:", object$DataName,"\n")
cat("X:",object$FisherCombinedStatistic, "Df:", object$Degreesoffreedom, "P.value", object$p.value, "\n")
cat("Alternative Hypotesis: There is no global effect, ","\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.