R/hypothesisTest-methods.R

## print and show

setMethod("print", "hypothesisTest",
          function(x, ...) {
              cat(x@type, "\n")
              cat("***********\n")
              cat("The Null Hypothesis:\n")
              for (i in 1:length(x@hypothesis)) cat("\t", x@hypothesis[i], "\n")
              cat("Distribution: ", x@dist, " with ", x@df, " degrees of freedom\n", sep="")
              print(data.frame(Statistics=x@test, Pvalue=x@pvalue), ...)
          })

setMethod("show", "hypothesisTest", function(object) print(object))

#########

Try the gmm4 package in your browser

Any scripts or data that you put into this service are public.

gmm4 documentation built on Dec. 6, 2019, 3:01 a.m.