Dealing with Data

Psy 313 Project Help

TODAY!!

  1. papaja teams
  • Other 2–3 group members work on Methods & Intro1
  1. Assignment #3 due 5/8
  • today we’ll build template approach with different data (STAI; FSS)
  • you will apply template to your data for assignment #3 (Kulas assists 5/1 & 5/8)

Sona Timeslots

  1. Log in to Sona
  2. Choose your study (My Studies)
  3. Click on Add A Timeslot
  4. Number of Participants = 200
  5. Researcher doesn’t matter – it’s online

Accessing data from Qualtrics

  1. find “Data” tab in Data & Analysis section
  2. export responses as “CSV”
  3. select “numeric values”

Control where it’s saved!!

Save the data within your papaja project folder:

Windows ()

Mac ()

SPSS

  1. Open SPSS
  2. File \(\rightarrow\) Import Data1
  3. Paste into a syntax file
  4. Save the syntax file within your papaja folder

papaja

  1. Create a “code chunk”:

  1. Paste the content
## Cynicism

library(dplyr)

data <- read.csv("Cynicism Project_April 29, 2025_16.35 2.csv")
names <- data[1,]
names(data) <- names
data <- data[-c(1:2),]

df <- mutate_all(data, function(x) as.numeric(as.character(x)))

reliability <- psych::alpha(df[c(18:31)])  ## 

apa_table(reliability$alpha.drop,
          caption="Our reliability analyses",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')
## Relationship well-being

library(dplyr)

data <- read.csv("Cynicism Project_April 29, 2025_16.35 2.csv")
names <- data[1,]
names(data) <- names
data <- data[-c(1:2),]

df <- mutate_all(data, function(x) as.numeric(as.character(x)))

reliability1 <- psych::alpha(df[c(43:60)])  ## 
reliability2 <- psych::alpha(df[c(43:45)])  ## 
reliability3 <- psych::alpha(df[c(46:48)])  ##
reliability4 <- psych::alpha(df[c(49:51)])  ##
reliability5 <- psych::alpha(df[c(52:54)])  ##
reliability6 <- psych::alpha(df[c(55:57)])  ##
reliability7 <- psych::alpha(df[c(58:60)])  ##

apa_table(reliability1$alpha.drop,
          caption="Our overall reliability analyses",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability2$alpha.drop,
          caption="Forgiveness subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability3$alpha.drop,
          caption="Conflict Resolution subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability4$alpha.drop,
          caption="Trust subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability5$alpha.drop,
          caption="Respect subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability6$alpha.drop,
          caption="Kindness subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')

apa_table(reliability7$alpha.drop,
          caption="Intimacy subscale",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')
## Sense of humor

library(dplyr)

data <- read.csv("Commitment to Social Change & Humor_April 24, 2025_17.03.csv")
names <- data[1,]
names(data) <- names
data <- data[-c(1:2),]

df <- mutate_all(data, function(x) as.numeric(as.character(x)))

reliability <- psych::alpha(df[c(34:57)])  ## combined -- different items in different surveys?

apa_table(reliability$alpha.drop,
          caption="Our reliability analyses",
          note="anything extra here",
          landscape=TRUE,
          font_size='tiny')
## Oppression based strain

library(dplyr)

data <- read.csv("Humor & Oppression-Based Strain_April 29, 2025_16.40.csv")
names <- data[1,]

names2 <- stringr::str_replace(names, "Rate the following statements to the best of your ability.","")

names(data) <- names2
data <- data[-c(1:2),]

df <- mutate_all(data, function(x) as.numeric(as.character(x)))

reliability1 <- psych::alpha(df[c(66:78)])  ## 

apa_table(reliability1$alpha.drop,
          caption="Our overall reliability analyses",
          note="anything extra here",
          landscape=TRUE,
          align = c("p{10cm}", rep("p{1cm}",8)),
          font_size='tiny')
## Commitment to Social Change

library(dplyr)

data <- read.csv("data.csv")
names <- data[1,]
names(data) <- names
data <- data[-c(1:2),]

df <- mutate_all(data, function(x) as.numeric(as.character(x)))

reliability1 <- psych::alpha(df[c(19:33)])  ## 

apa_table(reliability1$alpha.drop,
          caption="Our overall reliability analyses",
          note="anything extra here",
          landscape=TRUE,
          align = c("p{10cm}", rep("p{1cm}",8)),
          font_size='tiny')

SPSS Analyses

** Cynicism
** Relationship well-being
** Sense of humor
** Oppression based strain
** Commitment to Social Change

Peer Evaluations

Dimensions:

  • Responsibility – fully assuming role as team member & committing to all tasks that are a part of the project (k=5)
  • Communication – ability to communicate in a productive and timely manner (k=5)
  • Dependability – actions consistently matching words (k=5)
  • Flexibility – ability to adapt to changes throughout the project (k=5)
  • Teamwork – ability to compromise and/or successfully navigate disagreements when working as a group (k=5)

preview available here