The 10-Item Version Singelis’s Self-Construal Scale (SCS-Short Version) for Korean Adults: Psychometric Properties, Measurement Invariance with European Americans, and Associations with Social Anxiety

[ben-domingue]

https://osf.io/wsjkb/

https://link.springer.com/article/10.1007/s41811-024-00214-3

[ben-domingue]

We are pleased to grant you permission to modify the dataset as described and to include it in your repository under the terms of the CC BY 4.0 license.

[KingArthur0205]

Participants:
320 Koreans and 361 US undergrads. This aligns with the paper.

Methods:

1. Singelis Self-Construal Scale(SCS): 30 items on a 7-point Likert scale.
2. Social Phobia Scale and Social Interaction Anxiety Scale(SIAPS): 12 items on a 5-point Likert scale.(0-4) Only data from the US participants were provided.
3. Brief Fear of Negative-Evaluation Scale(BFNE): 12 items on a 5-point Likert scale.

[KingArthur0205]

Data:
SCS_Suh_2023.zip

Code:

# Data: https://osf.io/wsjkb/
# Paper: https://link.springer.com/article/10.1007/s41811-024-00214-3
library(haven)
library(dplyr)
library(tidyr)

ea_df <- read_sav("SCS EA dataset.sav")
korea_df <- read_sav("SCS Korean dataset.sav")

ea_df <- ea_df |>
  rename(id=ID)
korea_df <- korea_df |>
  rename(id=ID)

# ---------- Process SCS Dataset ----------
ea_scs <- ea_df |>
  select(id, starts_with("SCS"), -starts_with("SCS_Short"))
ea_scs <- pivot_longer(ea_scs, cols=-id, names_to="item", values_to="resp")
ea_scs$group <- "US"

korea_scs <- korea_df |>
  select(id, starts_with("SCS"))
korea_scs <- pivot_longer(korea_scs, cols=-id, names_to="item", values_to="resp")
korea_scs$group <- "Korea"

scs_df <- rbind(ea_scs, korea_scs)

save(scs_df, file="SCS_Suh_2023_SCS.Rdata")
write.csv(scs_df, "SCS_Suh_2023_SCS.csv", row.names=FALSE)

# ---------- Process SIAPS Dataset ----------
ea_siaps <- ea_df |>
  select(id, starts_with("SIAPS"), -ends_with("F2"), -ends_with("F1"))
ea_siaps[ea_siaps == 999] <- NA
ea_siaps <- pivot_longer(ea_siaps, cols=-id, names_to="item", values_to="resp")

save(ea_siaps, file="SCS_Suh_2023_SIAPS.Rdata")
write.csv(ea_siaps, "SCS_Suh_2023_SIAPS.csv", row.names=FALSE)

# ---------- Process BFNE Dataset ----------
ea_bfne <- ea_df |>
  select(id, starts_with("BFNE"), -ends_with("T"))
ea_bfne[ea_bfne == 999] <- NA
ea_bfne <- pivot_longer(ea_bfne, cols=-id, names_to="item", values_to="resp")
ea_bfne <- ea_bfne[!is.na(ea_bfne$resp),]
ea_bfne$group <- "US"

korea_bfne <- korea_df |>
  select(id, starts_with("BFNE"), -BFNE)
korea_bfne[korea_bfne == 999] <- NA
korea_bfne[korea_bfne == 0] <- NA
korea_bfne <- pivot_longer(korea_bfne, cols=-id, names_to="item", values_to="resp")
korea_bfne <- korea_bfne[!is.na(korea_bfne$resp),]
korea_bfne$group <- "Korea"

bfne_df <- rbind(korea_bfne, ea_bfne)

save(bfne_df, file="SCS_Suh_2023_BFNE.Rdata")
write.csv(bfne_df, "SCS_Suh_2023_BFNE.csv", row.names=FALSE)

[KingArthur0205]

@ben-domingue PR for issue: #718
Data entry is added into the dictionary

[ben-domingue]

email sent re permission

[ben-domingue]

yep my mistake @KingArthur0205 and i had meant to delete my comment not yours! sorry!

[KingArthur0205]

Haha that's fine! I didn't even notice