devtools::run_examples()
#> ℹ Updating ClinicoPath documentation
#> ℹ Loading ClinicoPath
#> Writing NAMESPACE
#> Writing NAMESPACE
#> ── Running 96 example files ───────────────────────────────────── ClinicoPath ──
#> ℹ Loading ClinicoPath
#>
#> > dat <- data.frame(`1st survey` = c("Approve", "Approve",
#> + "Disapprove", "Disapprove"), `2nd survey` = c("Approve",
#> + "Disapprove", "Approve", "Disapprove"), Counts = c(794, 150,
#> + 86, 570), check.names = FALSE)
#>
#> > contTablesPaired(formula = Counts ~ `1st survey`:`2nd survey`,
#> + data = dat)
#>
#> PAIRED SAMPLES CONTINGENCY TABLES
#>
#> Contingency Tables
#> ────────────────────────────────────────────────
#> 1st survey Approve Disapprove Total
#> ────────────────────────────────────────────────
#> Approve 794 150 944
#> Disapprove 86 570 656
#> Total 880 720 1600
#> ────────────────────────────────────────────────
#>
#>
#> McNemar Test
#> ─────────────────────────────────────
#> Value df p
#> ─────────────────────────────────────
#> χ² 17.35593 1 0.0000310
#> N 1600.000
#> ─────────────────────────────────────
#>
#>
#> > contTablesPaired(formula = ~`1st survey`:`2nd survey`,
#> + data = dat)
#>
#> PAIRED SAMPLES CONTINGENCY TABLES
#>
#> Contingency Tables
#> ────────────────────────────────────────────────
#> 1st survey Approve Disapprove Total
#> ────────────────────────────────────────────────
#> Approve 1 1 2
#> Disapprove 1 1 2
#> Total 2 2 4
#> ────────────────────────────────────────────────
#>
#>
#> McNemar Test
#> ─────────────────────────────────────
#> Value df p
#> ─────────────────────────────────────
#> χ² 0.000000 1 1.0000000
#> N 4
#> ─────────────────────────────────────
#> ℹ Loading ClinicoPath