This function generates plots illustrating how the change in effect size is influenced by switching or replacing outcomes in a 2x2 table. It produces two plots: one showing all possibilities (switching) and another zoomed in the area for positive RIR (Relative Impact Ratio).
Usage
tkonfound_fig(
a,
b,
c,
d,
thr_p = 0.05,
switch_trm = TRUE,
test = "fisher",
replace = "control"
)Arguments
- a
Number of cases in the control group with unsuccessful outcomes.
- b
Number of cases in the control group with successful outcomes.
- c
Number of cases in the treatment group with unsuccessful outcomes.
- d
Number of cases in the treatment group with successful outcomes.
- thr_p
P-value threshold for statistical significance, default is 0.05.
- switch_trm
Whether to switch the two cells in the treatment or control row, default is TRUE (treatment row).
- test
Type of statistical test used, either "Fisher's Exact Test" (default) or "Chi-square test".
- replace
Indicates whether to use the entire sample or just the control group for calculating the base rate, default is "control".
Value
Returns two plots showing the effect of hypothetical case switches on the effect size in a 2x2 table.
Examples
tkonfound_fig(14, 17, 6, 25, test = "chisq")
#> Warning: `aes_string()` was deprecated in ggplot2 3.0.0.
#> ℹ Please use tidy evaluation idioms with `aes()`.
#> ℹ See also `vignette("ggplot2-in-packages")` for more information.
#> ℹ The deprecated feature was likely used in the konfound package.
#> Please report the issue at
#> <https://github.com/konfound-project/konfound/issues>.
#> [[1]]
#> Warning: Use of `meta$pdif` is discouraged.
#> ℹ Use `pdif` instead.
#> Warning: Use of `meta$RIR` is discouraged.
#> ℹ Use `RIR` instead.
#> Warning: Use of `meta$pdif` is discouraged.
#> ℹ Use `pdif` instead.
#> Warning: Use of `meta$current` is discouraged.
#> ℹ Use `current` instead.
#> Warning: Use of `meta$sigpoint` is discouraged.
#> ℹ Use `sigpoint` instead.
#> Warning: Use of `meta$RIR` is discouraged.
#> ℹ Use `RIR` instead.
#> Warning: Use of `meta$currentlabel` is discouraged.
#> ℹ Use `currentlabel` instead.
#> Warning: Use of `meta$RIR` is discouraged.
#> ℹ Use `RIR` instead.
#> Warning: Use of `meta$pdif` is discouraged.
#> ℹ Use `pdif` instead.
#>
#> [[2]]
#> [1] "A bend in line indicates switches from the control \n row because the treatment row was exhausted."
#>
#> [[3]]
#>