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=