R/utils.R

In pubprint: Printing Results of Statistical Computing in a Publishable Way

#############################################################################
# utils.R
#############################################################################

utils.symbols.replace <- function(x,
                                  replacements)
{
    index <- x %in% names(replacements)

    ifelse(index, replacements[x], x)
}

#########
# format functions
#########
utils.get.format <- function(x) UseMethod("utils.get.format")

utils.get.format.default <- function(x)
{
    return("object")
}

utils.get.format.character <- function(x)
{
    return("character")
}

utils.get.format.numeric <- function(x)
{
    return("numeric")
}

utils.get.format.htest <- function(x)
{
    switch(EXPR = x$method,
           "One Sample t-test" = "t.test",
           "Welch Two Sample t-test" = "t.test",
           "Fisher's Exact Test for Count Data" = "fisher",
           "Pearson's product-moment correlation" = "cor.test",
           "Spearman's rank correlation rho" = "cor.test",
           "Kendall's rank correlation tau" = "cor.test",
           "Pearson's Chi-squared test" = "chisq",
           "Shapiro-Wilk normality test" = "shapiro",
           "Bartlett test of homogeneity of variances" = "bartlett",
           "Friedman rank sum test" = "bartlett",
           "Two-sample Kolmogorov-Smirnov test" = "ks",
           "object")
}

utils.get.format.anova <- function(x)
{
    return("anova")
}

utils.get.format.summary.aov <- function(x)
{
    return("summary.aov")
}

utils.get.format.summary.aovlist <- function(x)
{
    return("summary.aovlist")
}

utils.get.format.summary.lm <- function(x)
{
    return("summary.lm.model")
}

utils.get.format.summary.lm.beta <- function(x)
{
    return("summary.lm.model")
}