09 Feb Participants
Posted at 18:01h
in Uncategorized
Particpants
Of the 126 people who participated,
six were excluded due to inconsistent
responses, leaving a final sample of N = 120
participants with 62 women (mean age 33 years,
range 18 to 65, SD 11 years). We recruited via
Amazon Mechanical Turk. Compensation was
$2 for an average duration of 22 min, range 7 to
56 min
# Load the demographics data
# Change this path to where your data lies
setwd("../4-Data") # Change to your data directory
d <- fread("demographics.csv", sep=";", select=c("i","staDat","endDat","age","fem"))
# Rejected participants
rejected <- fread("../4-Data/raw_data/rejected_workerIDs.csv", header = F)
nrow(rejected) # n = 6
d[, summary(age)] # Age
d[, table(fem)] # Gender
d[, range(as.Date(as.POSIXlt(staDat, format = c("%d.%m.%Y %H:%M"))))] # Timeframe
d[, summary(as.numeric(as.POSIXlt(endDat, format = c("%d.%m.%Y %H:%M")) - as.POSIXlt(staDat, format = c("%d.%m.%Y %H:%M"))))] # Duration