Inferential Statistics W/o Low-Quality Data and Cognitive Trust Item 4

Load packages.

library(broom)
library(tidyverse)

library(flextable)

library(lavaan)
library(semTools)

Import data.

adhd.data <- readRDS(file.path("..", "data", "hq-data.rds"))

formatAsTable <- readRDS("format.rds")

H1: Main Effects of Disclosure

This hypothesis has three components, corresponding to the effects of disclosure on:

1. liking
2. affective trust
3. cognitive trust

# helper functions
regress <- function(..., data = adhd.data) {
  paste(..., sep = '\n') %>%
    sem(data)
}

paramTable <- function(fit) {
   fit %>%
    parameterEstimates %>%
    filter(!str_detect(rhs, "\\d")) %>%
    formatAsTable
}

H1a: Disclosure increases liking

# collapse lik1 categories
adhd.data <- adhd.data %>%
  mutate(lik1 = fct_collapse(lik1,
                             disagree = c("Strongly disagree",
                                          "Somewhat disagree")))

# measurement model for liking
lik <- 'lik =~ lik1 + lik2 + lik3.r + lik4.r'

# structural model for disclosure and liking
dis.lik <- "lik ~ disclose"

regress(lik, dis.lik) %>%
  paramTable

H1b: Disclosure increases affective trust

# measurement model for affective trust
aff <- 'aff =~ aff1 + aff2 + aff3 + aff4'

# structural model for disclosure and affective trust
dis.aff <- 'aff ~ disclose'

regress(aff, dis.aff) %>%
  paramTable

H1c: Disclosure decreases cognitive trust

# measurement model for cognitive trust
cog <- 'cog =~ cog1 + cog2 + cog3'

# structural model for disclosure and cognitive trust
dis.cog <- 'cog ~ disclose'

regress(cog, dis.cog) %>%
  paramTable

H2: Main effects of interdependence

As before, I will examine the effect of interdependence on:

1. liking
2. affective trust
3. cognitive trust

H2a: Interdependence increases liking

# structural model for interdependence and liking
int.lik <- 'lik ~ interdep'

regress(lik, int.lik) %>%
  paramTable

H2b: Interdependence increases affective trust

# structural model for interdependence and affective trust
int.aff <- 'aff ~ interdep'

regress(aff, int.aff) %>%
  paramTable

H2c: Interdependence increases cognitive trust

# structural model for interdependence and liking
int.cog <- 'cog ~ interdep'

regress(cog, int.cog) %>%
  paramTable

H3: Moderation by interdependence

Now I will introduce interdependence as a moderator of the relationship between disclosure and liking.

Before doing anything too fancy, I’m going to look at the mean predicted value of liking for each condition. If the hypotheses are to be supported we want to see something like the following ranking:

1. disclosure, non-interdependent
2. non-disclosure, interdependent
3. non-disclosure, non-interdependent
4. disclosure, interdependent

adhd.data <- adhd.data %>%
  mutate(likpred = lavPredict(cfa(lik, .)))

adhd.data %>%
  group_by(disclose, interdep) %>%
  summarise(liking = mean(likpred),
            t = t.test(likpred)$statistic,
            p = t.test(likpred)$p.value) %>%
  arrange(desc(liking))  %>%
  formatAsTable

In the next step, I will zero-center the elements of the product term, create the product term, and fit a regression model.

# create mean-centered product term
adhd.data <- adhd.data %>%
  mutate(discent = disclose - .5,
         intcent = interdep - .5,
         intdis = interdep * disclose)

# structural model for moderation by interdependence
dis.lik.int <- 'lik ~ disclose + interdep + intdis'

interact.fit <- regress(lik, dis.lik.int)

interact.fit %>%
  paramTable

Let’s look at the simple slopes. Recall that this is the effect of disclosure on liking either in or not in the context of interdependence.

params <- interact.fit %>%
  parameterEstimates %>%
  filter(op == '~') %>%
  select('est')

simple.effects <- tibble(
  independent = params[1,] + params[3,] * -.5,
  interdependent = params[1,] + params[3,] * .5
)

simple.effects %>%
  formatAsTable

H4: Mediation by trust

The final hypothesis has two components:

1. When interdependence is low, affective trust will mediate the positive effect of disclosure on liking.
2. When interdependence is high, cognitive trust will mediate the negative effect of disclosure on liking.

To evaluate these hypotheses, I need to subset the data into two sets: one where interdependence is low and one where it is high.

lo.int <- adhd.data %>%
  filter(interdep == 0)

hi.int <- adhd.data %>%
  filter(interdep == 1)

H4a: Mediation by affective trust when interdependence is low

fit.4a <- regress(aff, lik,
                  "lik ~ cprime*disclose",
                  "aff ~ a*disclose",
                  "lik ~ b*aff",
                  "ab := a*b",
                  "total := cprime + (a*b)",
                  data = lo.int)

fit.4a %>%
  paramTable

To show mediation, we want to see that the total effect (\(c\)), the effect on the mediator (\(a\)), and the effect of the mediator (\(b\)) are significantly different from 0 but that the main effect (\(c\prime\)) is zero.

H4b: Mediation by cognitive trust

fit.4b <- hi.int %>%
  regress(cog, lik,
          "lik ~ cprime*disclose",
          "cog ~ a*disclose",
          "lik ~ b*cog",
          "ab := a*b",
          "total := cprime + (a*b)",
          data = .)

fit.4b %>%
  paramTable

Just as in the previous analysis, to show mediation, we need to find that the total effect (\(c\)), \(a\), and \(b\) are significantly different from zero but that the main effect (\(c\prime\)) is equal to zero.

Complete Model

Finally, I will build a full, theory-based structural model of all the variables in the study.

Causal path model (so-called “boxes-and-arrows”) for this study.

med.fit <- regress(aff, cog, lik,
                   "cog ~ disclose + interdep + intdis",
                   "aff ~ disclose",
                   "lik ~ cog + aff + interdep")

med.fit %>%
  paramTable

---

Save data:

adhd.data %>%
  saveRDS(file.path("..", "data", "adhd-data.rds"))

adhd.data %>%
  write_csv(file.path("..", "data", "adhd-data.csv"))

adhd.data.hq %>%
  saveRDS(file.path("..", "data", "hq-data.rds"))

adhd.data.hq %>%
  write_csv(file.path("..", "data", "hq-data.rds"))

Output document:

options(knitr.duplicate.label = "allow")
rmarkdown::render("inferences-hq-nocog4.Rmd",
                  output_dir = file.path("..", "github", "thesis"))