RinAction - T-Tests

gistfile1.r

########################################################
########################################################
# --------------------  T-Test       ----------------- #
########################################################
########################################################

# Group comparisons, assuming continuous outcome variable and normal distribution

#####################
## independent t-test
#####################
           
library(MASS)

t.test(Prob ~ So, data=UScrime) # by default assume unequal variance
t.test(Prob ~ So, data=UScrime, var.equal=TRUE)
t.test(Prob ~ So, data=UScrime, alternative="greater")
t.test(Prob ~ So, data=UScrime, alternative="two.sided")
t.test(Prob ~ So, data=UScrime, alternative="less")
          
#####################
## dependent t-test
#####################
library(MASS)
sapply(UScrime[c("U1", "U2")], function(x) (c(mean = mean(x), 
                                     sd = sd(x))))
with(UScrime, t.test(U1, U2, paired = TRUE))