Nothing
#############################################################################
# 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")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.