Nothing
#'
#'@importFrom "stats" "var"
#'
utils::globalVariables(c('var'
))
sciStdDiff<-function (variable, group, binary = FALSE, na.rm = TRUE) {
means <- tapply(variable, group, mean, na.rm = na.rm)
vars<-NULL
if (binary) {
vars <- means * (1 - means)
}
else {
vars <- tapply(variable, group, var, na.rm = na.rm)
}
meanDiffs <- outer(X = means, Y = means, FUN = "-")
varMeans <- outer(X = vars, Y = vars, FUN = "+")/2
out <- meanDiffs/sqrt(varMeans)
out[is.na(out) & !is.na(meanDiffs) & (meanDiffs == 0) & !is.na(varMeans) &
(varMeans == 0)] <- 0
abs(out[lower.tri(out)])
}
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.