setwd("/Users/lawrencehouston/Library/CloudStorage/OneDrive-UniversityOfHouston/DSE Study Data & Syntax (11.18.24)/Diversity Advocacy Study/JOM R&R Materials/Content Validation Study")

# Load Data
library(haven)
CV_data <- read_sav("Content Validation Study - Connect.sav")

# Remove participants who failed attention checks (n=12)
CV_data <- CV_data[CV_data$Excluded != 1, ]

Leader Diversity Advocacy: Definitional Correspondence and Distinctiveness from Inclusive Leadership Definitions

# Leader Diversity Advocacy
CV_data$LDA <- rowMeans(CV_data[, c("LDA_2", "LDA_3", "LDA_4")], na.rm = TRUE)
LDA_mean <- mean(CV_data$LDA)

# Nembhard and Edmondson's (2006) Definition
CV_data$NE_construct <- rowMeans(CV_data[, c("nembhard_1", "nembhard_2", "nembhard_3", "nembhard_4")], na.rm = TRUE)
NE_mean <- mean(CV_data$NE_construct)

# Carmeli et al.'s (2010) Definition
CV_data$Carmeli_construct <- rowMeans(CV_data[, c("carmeli_1", "carmeli_2", "carmeli_3", "carmeli_4")], na.rm = TRUE)
Carmeli_mean <- mean(CV_data$Carmeli_construct)

cat("Mean for Leader Diversity Advocacy Definition:", LDA_mean, "\n")

## Mean for Leader Diversity Advocacy Definition: 6.297189

cat("Mean for Nembhard and Edmondson's (2006) Inclusive Leadership Definition:", NE_mean, "\n")

## Mean for Nembhard and Edmondson's (2006) Inclusive Leadership Definition: 5.146084

cat("Mean for Carmeli et al.'s (2010) Inclusive Leadership Definition:", Carmeli_mean, "\n\n")

## Mean for Carmeli et al.'s (2010) Inclusive Leadership Definition: 4.826807

htc <- LDA_mean/7
cat("Hinkin Tracey correspondence:", htc, "\n")

## Hinkin Tracey correspondence: 0.8995984

htd <- (((LDA_mean-NE_mean)+(LDA_mean-Carmeli_mean))/2)/6
cat("Hinkin Tracey distinctiveness:", htd, "\n")

## Hinkin Tracey distinctiveness: 0.2184572

Bias-Awareness Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

# Bias-Awareness Items

## Bias-Awareness Definition
CV_data$BAdef_BAitems <- rowMeans(
  CV_data[, c("Awareness_1", "Awareness_2", "Awareness_3")],
  na.rm = TRUE
)
BAdef_BAitems_mean <- mean(CV_data$BAdef_BAitems)


## Self-Regulation Definition 
CV_data$SRdef_BAitems <- rowMeans(
  CV_data[, c("self_regulation_BA1", "self_regulation_BA2", "self_regulation_BA3")],
  na.rm = TRUE
)
SRdef_BAitems_mean <- mean(CV_data$SRdef_BAitems)

## Intergroup-Management Definition 
CV_data$IMdef_BAitems <- rowMeans(
  CV_data[, c("management_BA1", "management_BA2", "management_BA3")],
  na.rm = TRUE
)
IMdef_BAitems_mean <- mean(CV_data$IMdef_BAitems)

cat("Mean for Bias-Awareness Self-Efficacy Definition:", BAdef_BAitems_mean, "\n")

## Mean for Bias-Awareness Self-Efficacy Definition: 5.927711

cat("Mean for Self-Regulation Self-Efficacy Definition:", SRdef_BAitems_mean, "\n")

## Mean for Self-Regulation Self-Efficacy Definition: 3.636546

cat("Mean for Integroup-Management Self-Efficacy Definition:", IMdef_BAitems_mean, "\n\n")

## Mean for Integroup-Management Self-Efficacy Definition: 4.379518

htc <- BAdef_BAitems_mean/7
cat("Hinkin Tracey correspondence (Bias-Awareness Self-Efficacy Items):", htc, "\n")

## Hinkin Tracey correspondence (Bias-Awareness Self-Efficacy Items): 0.8468158

htd <- (((BAdef_BAitems_mean-SRdef_BAitems_mean)+(BAdef_BAitems_mean-IMdef_BAitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Bias-Awareness Self-Efficacy Items):", htd, "\n")

## Hinkin Tracey distinctiveness (Bias-Awareness Self-Efficacy Items): 0.3199465

Self-Regulation Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

# Self-Regulation Items

## Self-Regulation Definition 
CV_data$SRdef_SRitems <- rowMeans(
  CV_data[, c("self_regulation_1", "self_regulation_2", "self_regulation_3",
         "self_regulation_4", "self_regulation_5")],
  na.rm = TRUE
)
SRdef_SRitems_mean <- mean(CV_data$SRdef_SRitems)

## Bias-Awareness Definition 
CV_data$BAdef_SRitems <- rowMeans(
  CV_data[, c("Awareness_SR1", "Awareness_SR2", "Awareness_SR3",
         "Awareness_SR4", "Awareness_SR5")],
  na.rm = TRUE
)
BAdef_SRitems_mean <- mean(CV_data$BAdef_SRitems)

## Intergroup-Management Definition
CV_data$IMdef_SRitems <- rowMeans(
  CV_data[, c("management_SR1", "management_SR2", "management_SR3",
         "management_SR4", "management_SR5")],
  na.rm = TRUE
)
IMdef_SRitems_mean <- mean(CV_data$IMdef_SRitems)

cat("Mean for Self-Regulation Self-Efficacy Definition:", SRdef_SRitems_mean, "\n")

## Mean for Self-Regulation Self-Efficacy Definition: 5.797791

cat("Mean for Bias-Awareness Self-Efficacy Definition:", BAdef_SRitems_mean, "\n")

## Mean for Bias-Awareness Self-Efficacy Definition: 4.256627

cat("Mean for Integroup-Management Self-Efficacy Definition:", IMdef_SRitems_mean, "\n\n")

## Mean for Integroup-Management Self-Efficacy Definition: 4.654217

htc <- SRdef_SRitems_mean/7
cat("Hinkin Tracey correspondence (Self-Regulation Self-Efficacy Items):", htc, "\n")

## Hinkin Tracey correspondence (Self-Regulation Self-Efficacy Items): 0.8282559

htd <- (((SRdef_SRitems_mean-BAdef_SRitems_mean)+(SRdef_SRitems_mean-IMdef_SRitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Self-Regulation Self-Efficacy Items):", htd, "\n")

## Hinkin Tracey distinctiveness (Self-Regulation Self-Efficacy Items): 0.2237282

Intergroup-Management Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

# Intergroup-Management Items

## Intergroup-Management Definition
CV_data$IMdef_IMitems <- rowMeans(
  CV_data[, c("management_1", "management_2", "management_3",
         "management_4", "management_5")],
  na.rm = TRUE
)
IMdef_IMitems_mean <- mean(CV_data$IMdef_IMitems)

## Bias-Awareness Definition 
CV_data$BAdef_IMitems <- rowMeans(
  CV_data[, c("Awareness_IM1", "Awareness_IM2", "Awareness_IM3",
         "Awareness_IM4", "Awareness_IM5")],
  na.rm = TRUE
)
BAdef_IMitems_mean <- mean(CV_data$BAdef_IMitems)

# Self-Regulation Definition 
CV_data$SRdef_IMitems <- rowMeans(
  CV_data[, c("self_regulation_IM1", "self_regulation_IM2", "self_regulation_IM3",
         "self_regulation_IM4", "self_regulation_IM5")],
  na.rm = TRUE
)
SRdef_IMitems_mean <- mean(CV_data$SRdef_IMitems)

cat("Mean for Integroup-Management Self-Efficacy Definition:", IMdef_IMitems_mean, "\n")

## Mean for Integroup-Management Self-Efficacy Definition: 5.66506

cat("Mean for Bias-Awareness Self-Efficacy Definition:", BAdef_IMitems_mean, "\n")

## Mean for Bias-Awareness Self-Efficacy Definition: 4.996386

cat("Mean for Self-Regulation Self-Efficacy Definition:", SRdef_IMitems_mean, "\n\n")

## Mean for Self-Regulation Self-Efficacy Definition: 4.565663

htc <- IMdef_IMitems_mean/7
cat("Hinkin Tracey correspondence (Intergroup-Management Self-Efficacy Items):", htc, "\n")

## Hinkin Tracey correspondence (Intergroup-Management Self-Efficacy Items): 0.8092943

htd <- (((IMdef_IMitems_mean-BAdef_IMitems_mean)+(IMdef_IMitems_mean-SRdef_IMitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Intergroup-Management Self-Efficacy Items):", htd, "\n")

## Hinkin Tracey distinctiveness (Intergroup-Management Self-Efficacy Items): 0.1473394

Self-Efficacy Constructs: Definitional Correspondence and Distinctiveness from Relational and Organizational Ally Work

# Relational Ally Work Definition

## Bias-Awareness Items
CV_data$relallyDef__BAitems <- rowMeans(
  CV_data[, c("rel_ally_BA1", "rel_ally_BA2", "rel_ally_BA3")],
  na.rm = TRUE
)
relallyDef__BAitems_mean <- mean(CV_data$relallyDef__BAitems)

## Self-Regulation Items
CV_data$relallyDef_SRitems <- rowMeans(
  CV_data[, c("rel_ally_SR1", "rel_ally_SR2", "rel_ally_SR3",
         "rel_ally_SR4", "rel_ally_SR5")],
  na.rm = TRUE
)
relallyDef_SRitems_mean <- mean(CV_data$relallyDef_SRitems)

## Intergroup-Management Items
CV_data$relallyDef_IMitems <- rowMeans(
  CV_data[, c("rel_ally_IM1", "rel_ally_IM2", "rel_ally_IM3",
         "rel_ally_IM4", "rel_ally_IM5")],
  na.rm = TRUE
)
relallyDef_IMitems_mean <- mean(CV_data$relallyDef_IMitems)

# Organizational Ally Work Definition

## Bias-Awareness Items
CV_data$orgallyDef_BAitems <- rowMeans(
  CV_data[, c("org_ally_BA1", "org_ally_BA2", "org_ally_BA3")],
  na.rm = TRUE
)
orgallyDef_BAitems_mean <- mean(CV_data$orgallyDef_BAitems)

## Self-Regulation Items
CV_data$orgallyDef_SRitems <- rowMeans(
  CV_data[, c("org_ally_SR1", "org_ally_SR2", "org_ally_SR3",
         "org_ally_SR4", "org_ally_SR5")],
  na.rm = TRUE
)
orgallyDef_SRitems_mean <- mean(CV_data$orgallyDef_SRitems)

## Intergroup-Management Items
CV_data$orgallyDef_IMitems <- rowMeans(
  CV_data[, c("org_ally_IM1", "org_ally_IM2", "org_ally_IM3",
         "org_ally_IM4", "org_ally_IM5")],
  na.rm = TRUE
)
orgallyDef_IMitems_mean <- mean(CV_data$orgallyDef_IMitems)

htd_ba <- (((BAdef_BAitems_mean-orgallyDef_BAitems_mean)+(BAdef_BAitems_mean-relallyDef__BAitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Bias-Awareness Self-Efficacy Items):", htd_ba, "\n\n")

## Hinkin Tracey distinctiveness (Bias-Awareness Self-Efficacy Items): 0.4166667

htd_sr <- (((SRdef_SRitems_mean-relallyDef_SRitems_mean)+(SRdef_SRitems_mean-orgallyDef_SRitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Self-Regulation Self-Efficacy Items):", htd_sr, "\n\n")

## Hinkin Tracey distinctiveness (Self-Regulation Self-Efficacy Items): 0.3617805

htd_im <- (((IMdef_IMitems_mean-relallyDef_IMitems_mean)+(IMdef_IMitems_mean-orgallyDef_IMitems_mean))/2)/6
cat("Hinkin Tracey distinctiveness (Intergroup-Management Self-Efficacy Items):", htd_im, "\n\n")

## Hinkin Tracey distinctiveness (Intergroup-Management Self-Efficacy Items): 0.2370984

Content Validation

Anonymous

2026-01-26

Leader Diversity Advocacy: Definitional Correspondence and Distinctiveness from Inclusive Leadership Definitions

Bias-Awareness Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

Self-Regulation Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

Intergroup-Management Self-Efficacy: Definitional Correspondence and Distinctiveness from Other Self-Efficacy Definitions

Self-Efficacy Constructs: Definitional Correspondence and Distinctiveness from Relational and Organizational Ally Work