Load Packages

haven

Import and export SPSS, STATA, and SAS files

if(!require(haven)){
  install.packages("haven", dependencies = TRUE)
  library(haven)
}

tidyverse

A collection of packages that makes it easier to tidy, clean, and work with data

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_1 ~ CoinFlip,
       data = dataset,
       var.equal = FALSE)

    Welch Two Sample t-test

data:  FFM_1 by CoinFlip
t = -2.419, df = 76.753, p-value = 0.01793
alternative hypothesis: true difference in means between group 1 and group 2 is not equal to 0
95 percent confidence interval:
 -1.0412385 -0.1009527
sample estimates:
mean in group 1 mean in group 2 
       3.307692        3.878788 
LS0tCnRpdGxlOiAiTGVhcm4gUjogdC10ZXN0cyIgCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRoZW1lOiBzcGFjZWxhYgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzIAogIAotLS0KCiMgTG9hZCBQYWNrYWdlcyB7LnRhYnNldH0KIyMjIGhhdmVuCgpJbXBvcnQgYW5kIGV4cG9ydCBTUFNTLCBTVEFUQSwgYW5kIFNBUyBmaWxlcyAKCmBgYHtyfQppZighcmVxdWlyZShoYXZlbikpewogIGluc3RhbGwucGFja2FnZXMoImhhdmVuIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICBsaWJyYXJ5KGhhdmVuKQp9CmBgYAoKCiMjIyB0aWR5dmVyc2UKCkEgY29sbGVjdGlvbiBvZiBwYWNrYWdlcyB0aGF0IG1ha2VzIGl0IGVhc2llciB0byB0aWR5LCBjbGVhbiwgYW5kIHdvcmsgd2l0aCBkYXRhCgpgYGB7cn0KaWYgKCFyZXF1aXJlKHRpZHl2ZXJzZSkpewogIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgbGlicmFyeSh0aWR5dmVyc2UpCn0KYGBgCgojIEltcG9ydCBEYXRhIHsudGFic2V0fQoKYGBge3J9CmRhdGFzZXQgPC0gcmVhZF9zYXYoIkhhcnJ5IFBvdHRlciBEYXRhLnNhdiIpCmBgYAoKIyB0LXRlc3Qgey50YWJzZXR9CgpgYGB7cn0KdC50ZXN0KGZvcm11bGEgPSBGRk1fMSB+IENvaW5GbGlwLAogICAgICAgZGF0YSA9IGRhdGFzZXQsCiAgICAgICB2YXIuZXF1YWwgPSBGQUxTRSkKCmBgYAoKCg==