Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
library(smd)
## ----numeric------------------------------------------------------------------
set.seed(123)
xn <- rnorm(90)
gg2 <- rep(LETTERS[1:2], each = 45)
gg3 <- rep(LETTERS[1:3], each = 30)
smd(x = xn, g = gg2)
smd(x = xn, g = gg3)
smd(x = xn, g = gg2, std.error = TRUE)
smd(x = xn, g = gg3, std.error = TRUE)
## ----integer------------------------------------------------------------------
xi <- sample(1:20, 90, replace = TRUE)
smd(x = xi, g = gg2)
## ----character----------------------------------------------------------------
xc <- unlist(replicate(2, sort(sample(letters[1:3], 45, replace = TRUE)), simplify = FALSE))
smd(x = xc, g = gg2)
## ----factor-------------------------------------------------------------------
xf <- factor(xc)
smd(x = xf, g = gg2)
## ----logical------------------------------------------------------------------
xl <- as.logical(rbinom(90, 1, prob = 0.5))
smd(x = xl, g = gg2)
## ----matrix-------------------------------------------------------------------
mm <- cbind(xl, xl, xl, xl)
smd(x = mm, g = gg3, std.error = FALSE)
## ----list---------------------------------------------------------------------
ll <- list(xn = xn, xi = xi, xf = xf, xl = xl)
smd(x = ll, g = gg3)
## ----data.frame---------------------------------------------------------------
df <- data.frame(xn, xi, xc, xf, xl)
smd(x = df, g = gg3)
## ----dplyr--------------------------------------------------------------------
library(dplyr, verbose = FALSE)
df$g <- gg2
df %>%
summarize_at(
.vars = vars(dplyr::matches("^x")),
.funs = list(smd = ~ smd(., g = g)$estimate))
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.