Family Economic Deprivation and Self-esteem among Preschoolers

[ben-domingue]

Family Economic Deprivation and Self-esteem among Preschoolers

https://www.sciencedirect.com/science/article/pii/S002209652400153X?casa_token=frUv3Kl3eTIAAAAA:YYuVvzzbk5DFpvFlUAO2XvfWd3qnt6ToOT46ExDaabGezuZsA4-MWgt_stLyebZaZ6EUrsIq

[KingArthur0205]

This paper includes a dataset of 232 participants. However, according to the paper, "the final database we included 198 children". The children that didn't finish the PSIAT test(c_PSIAT == NA) and didn't provide ages were excluded. There were 25 children that didn't finish PSIAT and 11 that didn't provide their ages, with 2 children that didn't provide either.

Deleting the 34 participants from 232, we get 198 participants which is identical to the number in the paper.

[ben-domingue]

excellent

[KingArthur0205]

@ben-domingue The paper does not explicitly mention re-tests (or additional trials) for certain scales or questionnaires, yet data from these are available. Should we include this data? I have a strong intuition that we should not do so.

[ben-domingue]

i trust you.

[KingArthur0205]

The following scales are examined in the paper. The first 2 are responded by parents, and the last 2 are responded by their children.

1. Personal Relative Depression(PRD): 5 items on a 6-point scale that "evaluate parents’ self-reported personal relative deprivation".
2. Material and Social Deprivation Index(SMSD): 13 items on a 4-point scale that assesses "to what extent their household’s financial situation allowed them to fulfill life needs".
3. Pictorial Scale of Perceived Competence and Social Acceptance(PSPCA): 12 items on a 4 point scale that "measure explicit self-esteem".
4. Money Knowledge(MonKnow): 2 items on a 4-point scale that assesses children's knowledge about money.

[KingArthur0205]

Zipped Datasets(CSV and Rdata): FEDSP_Trzcinska_2023_CSV.zip FEDSP_Trzcinska_2023_Rdata.zip

Individual Datasets: FEDSP_Trzcinska_2023_MonKnow.csv FEDSP_Trzcinska_2023_PRD.csv FEDSP_Trzcinska_2023_PSPCSA.csv FEDSP_Trzcinska_2023_SMSD.csv

Code:

# Paper: https://www.sciencedirect.com/science/article/pii/S002209652400153X?casa_token=frUv3Kl3eTIAAAAA:YYuVvzzbk5DFpvFlUAO2XvfWd3qnt6ToOT46ExDaabGezuZsA4-MWgt_stLyebZaZ6EUrsIq
# Data: https://osf.io/sa87b/
library(haven)
library(dplyr)
library(tidyr)

df <- read_sav("data-3.sav")
df <- df |>
  rename(id = number)
df <- df[!is.na(df$child_age_in_months) & !is.na(df$c_PSIAT), ]
df[] <- lapply(df, function(col) { # Remove column labels for each column
  attr(col, "label") <- NULL
  return(col)
})

# ------ Process PRD Dataset ------
prd_df <- df |>
  select(id, starts_with("p_personal_rel_dep"), -ends_with("R"))
prd_df <- pivot_longer(prd_df, cols=-id, names_to="item", values_to="resp")

save(prd_df, file="FEDSP_Trzcinska_2023_PRD.Rdata")
write.csv(prd_df, "FEDSP_Trzcinska_2023_PRD.csv", row.names=FALSE)

# ------ Process PSPCSA Dataset ------
pspcsa_df <- df |>
  select(id, starts_with("c_PSPCSA"), -c_PSPCSA)
pspcsa_test_df <- pspcsa_df |>
  select(-ends_with("r"))
pspcsa_retest_df <- pspcsa_df |>
  select(id, ends_with("r"))
colnames(pspcsa_retest_df) <- gsub("r", "", colnames(pspcsa_retest_df))

pspcsa_test_df <- pivot_longer(pspcsa_test_df, cols=-id, names_to="item", values_to="resp")
pspcsa_retest_df <- pivot_longer(pspcsa_retest_df, cols=-id, names_to="item", values_to="resp")
pspcsa_test_df$wave <- 0
pspcsa_retest_df$wave <- 1

pspcsa_df <- rbind(pspcsa_test_df, pspcsa_retest_df)

save(pspcsa_df, file="FEDSP_Trzcinska_2023_PSPCSA.Rdata")
write.csv(pspcsa_df, "FEDSP_Trzcinska_2023_PSPCSA.csv", row.names=FALSE)

# ------ Process SMSD Dataset ------
smsd_df <- df |>
  select(id, starts_with("p_SMSD"), -ends_with("R"), -ends_with("total"))
smsd_df <- pivot_longer(smsd_df, cols=-id, names_to="item", values_to="resp")

save(smsd_df, file="FEDSP_Trzcinska_2023_SMSD.Rdata")
write.csv(smsd_df, "FEDSP_Trzcinska_2023_SMSD.csv", row.names=FALSE)

# ------ Process MonKnow Dataset ------
monknow_df <- df |>
  select(id, starts_with("c_MonKnow_"))
monknow_df <- pivot_longer(monknow_df, cols=-id, names_to="item", values_to="resp")

save(monknow_df, file="FEDSP_Trzcinska_2023_MonKonw.Rdata")
write.csv(monknow_df, "FEDSP_Trzcinska_2023_MonKnow.csv", row.names=FALSE)

[ben-domingue]

looks good. PR?

[KingArthur0205]

PR for this issue: https://github.com/ben-domingue/irw/pull/470