####################################################################################################################################
# Paper title: Processing Unexpected Social Feedback in Depression: Differences in Feedback-Acceptance and "Immunizing" Cognition. #
# Kirchner et al. 2024 #
# Preprint @osf: https://doi.org/10.31234/osf.io/tvebd #
# Code by: Lukas Kirchner #
# Written: 16/02/24 #
# Statistic software: JASP (Version 0.17.1) #
####################################################################################################################################
####################################################################################################################################
# Run at a Windows 10 Computer, Version 22H2 (Build 19045.4046) #
# Hardware: Intel(R) Core(TM) i5-8350U CPU @ 1.70GHz 1.90 GHz, Intel UHD Graphics 620, 20LAS2F800 SDK0J40697 WIN #
####################################################################################################################################
# Install modules: jaspDescriptives::Descriptives, jaspRegression::RegressionLinear
# Please click on "show R syntax" within the respective module and insert the respective code (see below). Then press Ctrl + Enter to apply the code.
# Descriptice Statistics
jaspDescriptives::Descriptives(
version = "0.17.1",
formula = ~ gender + citizenship + legal_status + relationship_status + education + vocation + employement + migration + current_or_past_MDD + outpatient_psychological_treatment + inpatient_psychological_treatment + medication + age + weekly_working_time + household_members + average_net_houshold_income + disorder_onset + BSI_sum + BSI_sum_depr + BSI_sum_anx + BSI_sum_soma + DES_sum + DES_sum_rejection + DES_sum_social_support + DES_sum_mood_regulation + DES_sum_ability_to_perform + ASF_sum_overall_neg + ASF_sum_internality_neg + ASF_sum_stability_neg + ASF_sum_global_neg + ASF_sum_overall_pos + ASF_sum_internality_pos + ASF_sum_stability_pos + ASF_sum_global_pos + PTQ_sum + SIAS_sum + SPS_sum + after_nega + after_posi + acce_nega + acce_posi + immu_nega + immu_posi + distress_due_to_participation,
descriptivesTableTransposed = TRUE,
frequencyTables = TRUE,
maximum = FALSE,
minimum = FALSE,
missing = FALSE,
valid = FALSE)
## By Group (i.e., mental health issue vs. no mental health issue)
jaspDescriptives::Descriptives(
version = "0.17.1",
formula = ~ gender + citizenship + legal_status + relationship_status + education + vocation + employement + migration + current_or_past_MDD + outpatient_psychological_treatment + inpatient_psychological_treatment + medication + age + weekly_working_time + household_members + average_net_houshold_income + disorder_onset + BSI_sum + BSI_sum_depr + BSI_sum_anx + BSI_sum_soma + DES_sum + DES_sum_rejection + DES_sum_social_support + DES_sum_mood_regulation + DES_sum_ability_to_perform + ASF_sum_overall_neg + ASF_sum_internality_neg + ASF_sum_stability_neg + ASF_sum_global_neg + ASF_sum_overall_pos + ASF_sum_internality_pos + ASF_sum_stability_pos + ASF_sum_global_pos + PTQ_sum + SIAS_sum + SPS_sum + after_nega + after_posi + acce_nega + acce_posi + immu_nega + immu_posi + distress_due_to_participation,
frequencyTables = TRUE,
maximum = FALSE,
minimum = FALSE,
missing = FALSE,
splitBy = "mental_health_issue",
valid = FALSE)
# Manipulation Check
## Effect of Depressive Cognition on Surprise After Positive Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = after_posi ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
## Effect of Depressive Cognition on Surprise After Negative Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = after_nega ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
# Main Analyses
## Hypothesis 1
### Effect of Depressive Cognition on Acceptance After Positive Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = acce_posi ~ BSI_depr + SPS_mean + SIAS_mean + mental_health_issue + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
#### Adding SIAS-6 + SPS-6 as predictors to the null model
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = acce_posi ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
isNuisance = ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
### Effect of Depressive Cognition on Immunizing Cognition After Positive Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = immu_posi ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
#### Adding SIAS-6 + SPS-6 as predictors to the null model
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = immu_posi ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
isNuisance = ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
## Hypothesis 2
### Effect of Depressive Cognition on Acceptance After Negative Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = acce_nega ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
#### Adding SIAS-6 + SPS-6 as predictors to the null model
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = acce_nega ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
isNuisance = ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
### Effect of Depressive Cognition on Immunizing Cognition After Negative Social Feedback
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = immu_nega ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)
#### Adding SIAS-6 + SPS-6 as predictors to the null model
jaspRegression::RegressionLinear(
version = "0.17.1",
formula = immu_nega ~ mental_health_issue + BSI_depr + SPS_mean + SIAS_mean + DES_mean,
isNuisance = ~ mental_health_issue + BSI_depr + DES_mean,
covariates = list("DES_mean", "SIAS_mean", "SPS_mean", "BSI_depr"),
coefficientBootstrap = TRUE,
coefficientCi = TRUE,
collinearityDiagnostic = TRUE,
descriptives = TRUE,
marginalPlot = TRUE,
marginalPlotCi = TRUE,
partialResidualPlot = TRUE,
rSquaredChange = TRUE,
residualCasewiseDiagnostic = TRUE,
residualCasewiseDiagnosticType = "cooksDistance",
residualDurbinWatson = TRUE,
residualHistogramPlot = TRUE,
residualQqPlot = TRUE,
residualStatistic = TRUE,
residualVsFittedPlot = TRUE)