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
Harry Potter Data
dataset <- read_sav("https://osf.io/download/kd4ej/")
t-test
t.test(formula = FFM_3 ~ CoinFlip,
data = dataset,
var.equal = FALSE)
Welch Two Sample t-test
data: FFM_3 by CoinFlip
t = 0.6653, df = 57.312, p-value = 0.5085
alternative hypothesis: true difference in means between group 1 and group 2 is not equal to 0
95 percent confidence interval:
-0.2415295 0.4819141
sample estimates:
mean in group 1 mean in group 2
4.307692 4.187500
LS0tCnRpdGxlOiAibGVhcm5pbmcgdG8gcnVuIHQtdGVzdHMiCm91dHB1dDoKICBodG1sX25vdGVib29rOgogICAgdGhlbWU6IGRhcmtseQogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6IHRydWUKLS0tCgojIExvYWQgUGFja2FnZXMgey50YWJzZXR9CgojIyBoYXZlbgoKYGBge3J9CmlmICghcmVxdWlyZShoYXZlbikpewppbnN0YWxsLnBhY2thZ2VzKCJoYXZlbiIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCmxpYnJhcnkoaGF2ZW4pCn0KYGBgCgojIyB0aWR5dmVyc2UKCmBgYHtyfQppZiAoIXJlcXVpcmUodGlkeXZlcnNlKSl7Cmluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCmxpYnJhcnkodGlkeXZlcnNlKQp9CmBgYAoKIyBJbXBvcnQgRGF0YSB7LnRhYnNldH0KCiMjIEhhcnJ5IFBvdHRlciBEYXRhCmBgYHtyfQpkYXRhc2V0IDwtIHJlYWRfc2F2KCJodHRwczovL29zZi5pby9kb3dubG9hZC9rZDRlai8iKQpgYGAKCiMgdC10ZXN0CmBgYHtyfQp0LnRlc3QoZm9ybXVsYSA9IEZGTV8zIH4gQ29pbkZsaXAsCmRhdGEgPSBkYXRhc2V0LAp2YXIuZXF1YWwgPSBGQUxTRSkKYGBgCgo=