Print results

Prints results in the style of htest.

Usage

# S3 method for class 'rdt'
print(x, digits = 3, ...)

# S3 method for class 'srt'
print(x, digits = 3, ...)

# S3 method for class 'rdpmedian'
print(x, digits = 3, ...)

# S3 method for class 'pmedian'
print(x, digits = 3, ...)

Arguments

x

Objects returned by:

• rdt() or rdt2()

• srt() or srt2()

• rdpmedian() or rdpmedian2()

• pmedian() or pmedian2()

digits

(Scalar integer: 3; [1, Inf))
The number of significant digits to use.

...

Unused additional arguments.

Value

invisible(x)

Examples

#----------------------------------------------------------------------------
# print() examples
#----------------------------------------------------------------------------
library(rankdifferencetest)

# Use example data from Kornbrot (1990)
data <- kornbrot_table1

rdt(
  data = data,
  formula = placebo ~ drug,
  conf_level = 0.95,
  alternative = "two.sided",
  distribution = "asymptotic",
  zero_method = "wilcoxon",
  correct = FALSE
) |>
  print()
#> Error in get_dep_data(data = x, formula = formula, single_term = FALSE,     agg_fun = agg_fun): unused argument (single_term = FALSE)

srt(
  data = data,
  formula = placebo ~ drug,
  conf_level = 0.95,
  alternative = "two.sided",
  distribution = "asymptotic",
  zero_method = "wilcoxon",
  correct = FALSE
) |>
  print()
#> Error in get_dep_data(data = x, formula = formula, single_term = TRUE,     agg_fun = agg_fun): unused argument (single_term = TRUE)

rdpmedian(
  data = data,
  formula = placebo ~ drug,
  conf_level = 0.95
) |>
  print()
#> Error in get_dep_data(data = x, formula = formula, single_term = FALSE,     agg_fun = agg_fun): unused argument (single_term = FALSE)

pmedian(
  data = data,
  formula = placebo ~ drug,
  conf_level = 0.95
) |>
  print()
#> Error in get_dep_data(data = x, formula = formula, single_term = TRUE,     agg_fun = agg_fun): unused argument (single_term = TRUE)