Load Packages
haven
# Check if haven is already installed and if it is, load it.
if (!require(haven)){
# If it's not intalled, then tell R to install it.
install.packages("haven", dependencies = TRUE)
# Once it's installed, tell R to load it.
library(haven)
}
tidyverse
if (!require()){
install.packages("", dependencies = TRUE)
library()
}
Import Data
dataset <- read_sav("https://osf.io/kd4ej/download")
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
LS0tCnRpdGxlOiAiTGVhcm4gUiAtIHQtdGVzdHMiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRoZW1lOiBwYXBlcgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCi0tLQojIExvYWQgUGFja2FnZXMgey50YWJzZXR9CgojIyBoYXZlbgoKYGBge3J9CiMgQ2hlY2sgaWYgaGF2ZW4gaXMgYWxyZWFkeSBpbnN0YWxsZWQgYW5kIGlmIGl0IGlzLCBsb2FkIGl0LgppZiAoIXJlcXVpcmUoaGF2ZW4pKXsKICAjIElmIGl0J3Mgbm90IGludGFsbGVkLCB0aGVuIHRlbGwgUiB0byBpbnN0YWxsIGl0LgogIGluc3RhbGwucGFja2FnZXMoImhhdmVuIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICAjIE9uY2UgaXQncyBpbnN0YWxsZWQsIHRlbGwgUiB0byBsb2FkIGl0LgogIGxpYnJhcnkoaGF2ZW4pCn0KYGBgCgojIyB0aWR5dmVyc2UKCmBgYHtyfQppZiAoIXJlcXVpcmUoKSl7CiAgaW5zdGFsbC5wYWNrYWdlcygiIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICBsaWJyYXJ5KCkKfQpgYGAKCgojIEltcG9ydCBEYXRhIAoKYGBge3J9CmRhdGFzZXQgPC0gcmVhZF9zYXYoImh0dHBzOi8vb3NmLmlvL2tkNGVqL2Rvd25sb2FkIikgCmBgYAoKCgoKCiMgdC10ZXN0CgpgYGB7cn0KdC50ZXN0KGZvcm11bGEgPSBGRk1fMSB+IENvaW5GbGlwLAogICAgICAgZGF0YSA9IGRhdGFzZXQsCiAgICAgICB2YXIuZXF1YWwgPSBGQUxTRSkKYGBgCgoKCgoK