Load Packages

haven

# Check if haven is already installed and if it is, load it.
if (!require(haven)){
  # If it's not installed, 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(tidyverse)){
  install.packages("tidyverse", dependencies = TRUE)
  library(tidyverse)
}

Import data

dataset <- read_sav("https://osf.io/download/kd4ej/")

Codebook

#First select the variables you'd like to summarize
dataset %>%
  select (CoinFlip, FFM_2, Potter2) -> exampleDF  

t-test

# Assuming "FFM_2" is the name of your dependent variable column in the dataset.
# Replace "CoinFlip" with the actual column name.
t.test(formula = FFM_2 ~ CoinFlip,
       data = dataset,
       var.equal = FALSE)

    Welch Two Sample t-test

data:  FFM_2 by CoinFlip
t = -0.10873, df = 70.386, p-value =
0.9137
alternative hypothesis: true difference in means between group 1 and group 2 is not equal to 0
95 percent confidence interval:
 -0.5036667  0.4515834
sample estimates:
mean in group 1 mean in group 2 
       2.640625        2.666667 
LS0tCnRpdGxlOiAiTGVhcm4gUiAtIFQtVGVzdHMiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRoZW1lOiBwYXBlcgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCi0tLQoKIyBMb2FkIFBhY2thZ2VzIHsudGFic2V0fQoKIyMgaGF2ZW4KYGBge3J9CiMgQ2hlY2sgaWYgaGF2ZW4gaXMgYWxyZWFkeSBpbnN0YWxsZWQgYW5kIGlmIGl0IGlzLCBsb2FkIGl0LgppZiAoIXJlcXVpcmUoaGF2ZW4pKXsKICAjIElmIGl0J3Mgbm90IGluc3RhbGxlZCwgdGhlbiB0ZWxsIFIgdG8gaW5zdGFsbCBpdC4KICBpbnN0YWxsLnBhY2thZ2VzKCJoYXZlbiIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgIyBPbmNlIGl0J3MgaW5zdGFsbGVkLCB0ZWxsIFIgdG8gbG9hZCBpdC4KICBsaWJyYXJ5KGhhdmVuKQp9CmBgYCAgIAoKIyMgdGlkeXZlcnNlCgpgYGB7cn0KaWYgKCFyZXF1aXJlKHRpZHl2ZXJzZSkpewogIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgbGlicmFyeSh0aWR5dmVyc2UpCn0KYGBgIAoKIyBJbXBvcnQgZGF0YSB7LnRhYnNldH0KCmBgYHtyfQpkYXRhc2V0IDwtIHJlYWRfc2F2KCJodHRwczovL29zZi5pby9kb3dubG9hZC9rZDRlai8iKQpgYGAgIAojIENvZGVib29rCgpgYGB7cn0KI0ZpcnN0IHNlbGVjdCB0aGUgdmFyaWFibGVzIHlvdSdkIGxpa2UgdG8gc3VtbWFyaXplCmRhdGFzZXQgJT4lCiAgc2VsZWN0IChDb2luRmxpcCwgRkZNXzIsIFBvdHRlcjIpIC0+IGV4YW1wbGVERiAgCgpgYGAgIAojIHQtdGVzdApgYGB7cn0KIyBBc3N1bWluZyAiRkZNXzIiIGlzIHRoZSBuYW1lIG9mIHlvdXIgZGVwZW5kZW50IHZhcmlhYmxlIGNvbHVtbiBpbiB0aGUgZGF0YXNldC4KIyBSZXBsYWNlICJDb2luRmxpcCIgd2l0aCB0aGUgYWN0dWFsIGNvbHVtbiBuYW1lLgp0LnRlc3QoZm9ybXVsYSA9IEZGTV8yIH4gQ29pbkZsaXAsCiAgICAgICBkYXRhID0gZGF0YXNldCwKICAgICAgIHZhci5lcXVhbCA9IEZBTFNFKQoKYGBgICA=