Printing a prcalc_compare object.

Description

Printing a prcalc_compare object.

Usage

## S3 method for class 'prcalc_compare'
print(x, subset = NULL, prop = FALSE, use_gt = FALSE, digits = 3, ...)

Arguments

x	a prcalc_compare object.
subset	a
prop	a
use_gt	Use gt packages? Default is FALSE.
digits	the number of decimal places. Default is 3.
…	ignored.

Examples

library("PRcalc")

data(jp_upper_2019)

pr_obj1 <- prcalc(jp_upper_2019, m = 50, method = "dt")
pr_obj2 <- prcalc(jp_upper_2019, m = 50, method = "dt", threshold = 0.025)
pr_obj3 <- prcalc(jp_upper_2019, m = 50, method = "dt", threshold = 0.05)

compare(list("t = 0%" = pr_obj1, "t = 2.5%" = pr_obj2, "t = 5%" = pr_obj3))

       Party t = 0% t = 2.5% t = 5%
1      Jimin     18       19     20
2      Komei      7        7      7
3   Ritsumin      8        9      9
4      Ishin      5        5      5
5     Kyosan      5        5      5
6    Kokumin      3        3      4
7      Reiwa      2        2      0
8     Shamin      1        0      0
9        NHK      1        0      0
10 Anrakushi      0        0      0
11    Kofuku      0        0      0
12     Olive      0        0      0
13   Rodosha      0        0      0

list("t = 0%"   = pr_obj1,
     "t = 2.5%" = pr_obj2,
     "t = 5%"   = pr_obj3) |>
  compare() |>
  print()

       Party t = 0% t = 2.5% t = 5%
1      Jimin     18       19     20
2      Komei      7        7      7
3   Ritsumin      8        9      9
4      Ishin      5        5      5
5     Kyosan      5        5      5
6    Kokumin      3        3      4
7      Reiwa      2        2      0
8     Shamin      1        0      0
9        NHK      1        0      0
10 Anrakushi      0        0      0
11    Kofuku      0        0      0
12     Olive      0        0      0
13   Rodosha      0        0      0

list("t = 0%"   = pr_obj1,
     "t = 2.5%" = pr_obj2,
     "t = 5%"   = pr_obj3) |>
  compare() |>
  print(subset = c("自民", "公明", "立憲", "共産", "維新"))

[1] Party    t = 0%   t = 2.5% t = 5%  
<0 rows> (or 0-length row.names)