R/cramer.R
, R/phi.R
, R/xtab_statistics.R
crosstable_statistics.Rd
This function calculates various measure of association for contingency tables and returns the statistic and p-value. Supported measures are Cramer's V, Phi, Spearman's rho, Kendall's tau and Pearson's r.
cramer(tab, ...)
# S3 method for formula
cramer(
formula,
data,
ci.lvl = NULL,
n = 1000,
method = c("dist", "quantile"),
...
)
phi(tab, ...)
crosstable_statistics(
data,
x1 = NULL,
x2 = NULL,
statistics = c("auto", "cramer", "phi", "spearman", "kendall", "pearson", "fisher"),
weights = NULL,
...
)
xtab_statistics(
data,
x1 = NULL,
x2 = NULL,
statistics = c("auto", "cramer", "phi", "spearman", "kendall", "pearson", "fisher"),
weights = NULL,
...
)
A table
or ftable
. Tables of class
xtabs
and other will be coerced to ftable
objects.
Other arguments, passed down to the statistic functions
chisq.test
, fisher.test
or
cor.test
.
A formula of the form lhs ~ rhs
where lhs
is a
numeric variable giving the data values and rhs
a factor giving the
corresponding groups.
A data frame or a table object. If a table object, x1
and
x2
will be ignored. For Kendall's tau, Spearman's rho
or Pearson's product moment correlation coefficient, data
needs
to be a data frame. If x1
and x2
are not specified,
the first two columns of the data frames are used as variables
to compute the crosstab.
Scalar between 0 and 1. If not NULL
, returns a data
frame including lower and upper confidence intervals.
Number of bootstraps to be generated.
Character vector, indicating if confidence intervals should be
based on bootstrap standard error, multiplied by the value of the
quantile function of the t-distribution (default), or on sample
quantiles of the bootstrapped values. See 'Details' in boot_ci()
.
May be abbreviated.
Name of first variable that should be used to compute the
contingency table. If data
is a table object, this argument
will be irgnored.
Name of second variable that should be used to compute the
contingency table. If data
is a table object, this argument
will be irgnored.
Name of measure of association that should be computed. May
be one of "auto"
, "cramer"
, "phi"
, "spearman"
,
"kendall"
, "pearson"
or "fisher"
. See 'Details'.
Name of variable in x
that indicated the vector of
weights that will be applied to weight all observations. Default is
NULL
, so no weights are used.
For phi()
, the table's Phi value. For cramer()
, the
table's Cramer's V.
For crosstable_statistics()
, a list with following components:
estimate
the value of the estimated measure of association.
p.value
the p-value for the test.
statistic
the value of the test statistic.
stat.name
the name of the test statistic.
stat.html
if applicable, the name of the test statistic, in HTML-format.
df
the degrees of freedom for the contingency table.
method
character string indicating the name of the measure of association.
method.html
if applicable, the name of the measure of association, in HTML-format.
method.short
the short form of association measure, equals the statistics
-argument.
fisher
logical, if Fisher's exact test was used to calculate the p-value.
The p-value for Cramer's V and the Phi coefficient are based
on chisq.test()
. If any expected value of a table cell is
smaller than 5, or smaller than 10 and the df is 1, then fisher.test()
is used to compute the p-value, unless statistics = "fisher"
; in
this case, the use of fisher.test()
is forced to compute the
p-value. The test statistic is calculated with cramer()
resp.
phi()
.
Both test statistic and p-value for Spearman's rho, Kendall's tau
and Pearson's r are calculated with cor.test()
.
When statistics = "auto"
, only Cramer's V or Phi are calculated,
based on the dimension of the table (i.e. if the table has more than
two rows or columns, Cramer's V is calculated, else Phi).
# Phi coefficient for 2x2 tables
tab <- table(sample(1:2, 30, TRUE), sample(1:2, 30, TRUE))
phi(tab)
#> [1] 0.08183171
# Cramer's V for nominal variables with more than 2 categories
tab <- table(sample(1:2, 30, TRUE), sample(1:3, 30, TRUE))
cramer(tab)
#> [1] 0.2384917
# formula notation
data(efc)
cramer(e16sex ~ c161sex, data = efc)
#> [1] 0.05258249
# bootstrapped confidence intervals
cramer(e16sex ~ c161sex, data = efc, ci.lvl = .95, n = 100)
#> cramer conf.low conf.high
#> 1 0.05258249 -0.009241116 0.1238655
# 2x2 table, compute Phi automatically
crosstable_statistics(efc, e16sex, c161sex)
#>
#> # Measure of Association for Contingency Tables
#>
#> Chi-squared: 2.2327
#> Phi: 0.0526
#> df: 1
#> p-value: 0.135
#> Observations: 900
# more dimensions than 2x2, compute Cramer's V automatically
crosstable_statistics(efc, c172code, c161sex)
#>
#> # Measure of Association for Contingency Tables
#>
#> Chi-squared: 4.1085
#> Cramer's V: 0.0699
#> df: 2
#> p-value: 0.128
#> Observations: 841
# ordinal data, use Kendall's tau
crosstable_statistics(efc, e42dep, quol_5, statistics = "kendall")
#>
#> # Measure of Association for Contingency Tables
#>
#> z: -9.5951
#> Kendall's tau: -0.2496
#> df: 75
#> p-value: < .001***
#> Observations: 896
# calcilate Spearman's rho, with continuity correction
crosstable_statistics(efc,
e42dep,
quol_5,
statistics = "spearman",
exact = FALSE,
continuity = TRUE
)
#>
#> # Measure of Association for Contingency Tables
#>
#> S: 157974157.4198
#> Spearman's rho: -0.3177
#> df: 75
#> p-value: < .001***
#> Observations: 896