Skip to content

Instantly share code, notes, and snippets.

@timcdlucas

timcdlucas/ttest.R

Created August 26, 2020 21:55
Show Gist options
  • Save timcdlucas/9bd9b8f60f4029c895436d10048f8d57 to your computer and use it in GitHub Desktop.
Save timcdlucas/9bd9b8f60f4029c895436d10048f8d57 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ttest.R
set.seed(10)
d <- data.frame(x = sample(c('a', 'b'), 30, replace = T),
y = rnorm(30))
anova(lm(y~x, d))
t.test(y~x, d, var.equal = TRUE)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment