Load Packages
haven
if (!require(haven)){
install.packages("haven", dependencies = TRUE)
library(haven)
}
tidyverse
if (!require(tidyverse)){
install.packages("tidyverse", dependencies = TRUE)
library(tidyverse)
}
Import Data
dataset <- read_sav("Harry Potter Data.sav")
T-Test
t.test(formula = FFM_13 ~ CoinFlip,
data = dataset,
var.equal = FALSE)
Welch Two Sample t-test
data: FFM_13 by CoinFlip
t = 1.4894, df = 57.347, p-value = 0.1419
alternative hypothesis: true difference in means between group 1 and group 2 is not equal to 0
95 percent confidence interval:
-0.08325698 0.56691082
sample estimates:
mean in group 1 mean in group 2
4.523077 4.281250
LS0tCnRpdGxlOiAiTGVhcm4gUjp0LXRlc3QiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRoZW1lOiBkYXJrbHkKLS0tCgojIExvYWQgUGFja2FnZXMgey50YWJzZXR9CgojIyBoYXZlbgoKYGBge3J9CmlmICghcmVxdWlyZShoYXZlbikpewogIGluc3RhbGwucGFja2FnZXMoImhhdmVuIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICBsaWJyYXJ5KGhhdmVuKQp9CmBgYAoKIyMgdGlkeXZlcnNlCgpgYGB7cn0KaWYgKCFyZXF1aXJlKHRpZHl2ZXJzZSkpewogIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgbGlicmFyeSh0aWR5dmVyc2UpCn0KYGBgCgojIEltcG9ydCBEYXRhCgpgYGB7cn0KZGF0YXNldCA8LSByZWFkX3NhdigiSGFycnkgUG90dGVyIERhdGEuc2F2IikKYGBgCgoKCiMgVC1UZXN0CgpgYGB7cn0KdC50ZXN0KGZvcm11bGEgPSBGRk1fMTMgfiBDb2luRmxpcCwKICAgICAgIGRhdGEgPSBkYXRhc2V0LAogICAgICAgdmFyLmVxdWFsID0gRkFMU0UpCmBgYAo=