Block Banner

Loading Packages

haven

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

Loading required package: haven

tidyverse

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

Loading required package: tidyverse

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.0
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

psych

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

Loading required package: psych

Attaching package: 'psych'

The following objects are masked from 'package:ggplot2':

    %+%, alpha

summarytools

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

Loading required package: summarytools

Warning in fun(libname, pkgname): couldn't connect to display ":0"

system might not have X11 capabilities; in case of errors when using dfSummary(), set st_options(use.x11 = FALSE)

Attaching package: 'summarytools'

The following object is masked from 'package:tibble':

    view

##Import Data

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

T-test

t.test(formula = FFM_21 ~ CoinFlip,
       data = dataset,
       var.equal = FALSE)

    Welch Two Sample t-test

data:  FFM_21 by CoinFlip
t = 1.0977, df = 67.432, p-value = 0.2762
alternative hypothesis: true difference in means between group 1 and group 2 is not equal to 0
95 percent confidence interval:
 -0.2243141  0.7727012
sample estimates:
mean in group 1 mean in group 2 
       3.500000        3.225806