Prints a summary of results from hypothesis comparison.

Usage

# S3 method for opaGroupComparison
print(x, ...)

Arguments

x: an object of class "opaHypothesisComparison".
...: ignored

Value

No return value, called for side effects.

Examples

dat <- data.frame(group = c("a", "b", "a", "b"),
                  t1 = c(9, 4, 8, 10),
                  t2 = c(8, 8, 12, 10),
                  t3 = c(8, 5, 10, 11))
dat$group <- factor(dat$group, levels = c("a", "b"))
h <- hypothesis(1:3)
opamod <- opa(dat[,2:4], h, group = dat$group)
z <- compare_groups(opamod, "a", "b")
print(z)
#> ********* Group Comparison **********
#> Group 1: a 
#> Group 2: b 
#> Group 1 PCC: 33.33333 
#> Group 2 PCC: 66.66667 
#> PCC difference: 33.33333 
#> cval: 0.384 
#> Comparison type: two-tailed