JWileymisc (version 0.3.1)

egltable: Function makes nice tables

Description

Give a dataset and a list of variables, or just the data in the vars. For best results, convert categorical variables into factors. Provides a table of estimated descriptive statistics optionally by group levels.

Usage

egltable(vars, g, idvar, data, strict = TRUE, parametric = TRUE,
  simChisq = FALSE, sims = 1e+06)

Arguments

vars

Either an index (numeric or character) of variables to access from the data argument, or the data to be described itself.

g

A variable used tou group/separate the data prior to calculating descriptive statistics.

idvar

A character string indicating the variable name of the ID variable. Not currently used, but will eventually support egltable supporting repeated measures data.

data

optional argument of the dataset containing the variables to be described.

strict

Logical, whether to strictly follow the type of each variable, or to assume categorical if the number of unique values is less than or equal to 3.

parametric

Logical whether to use parametric tests in the case of multiple groups to test for differences. Only applies to continuous variables. If TRUE, the default, uses one-way ANOVA, and a F test. If FALSE, uses the Kruskal-Wallis test.

simChisq

Logical whether to estimate p-values for chi-square test for categorical data when there are multiple groups, by simulation. Defaults to FALSE. Useful when there are small cells as will provide a more accurate test in extreme cases, similar to Fisher Exact Test but generalizing to large dimension of tables.

sims

Integer for the number of simulations to be used to estimate p-values for the chi-square tests for categorical variables when there are multiple groups.

Value

A data frame of the table.

Examples

# NOT RUN {
egltable(iris)
egltable(colnames(iris)[1:4], "Species", iris)
egltable(iris, parametric = FALSE)
egltable(colnames(iris)[1:4], "Species", iris,
  parametric = FALSE)
egltable(colnames(iris)[1:4], "Species", iris,
  parametric = c(TRUE, TRUE, FALSE, FALSE))
egltable(colnames(iris)[1:4], "Species", iris,
  parametric = c(TRUE, TRUE, FALSE, FALSE), simChisq=TRUE)

diris <- as.data.table(iris)
egltable("Sepal.Length", g = "Species", data = diris)
# }