SEM Zamiast MANOVA

Nov 25 2020

Nie mam wystarczającej reputacji, aby skomentować pytanie, więc mam nadzieję, że ten post jest do zaakceptowania.

Odnośnie zaakceptowanej odpowiedzi na to pytanie:

Jak wykonać prostą konfirmacyjną analizę fabryczną / SEM w R?

Powiedzmy, że mamy prosty SEM, który normalnie byłby analizowany przez MANOVA:

$$ y_{1} \sim a + b \\ y_{2} \sim a + b $$

gdzie $y_{i} \sim \mathcal{N}(0, \sigma^{2})$. Jednak heteroskedastyczność jest obecna w obu modelach, więc MANOVA może nie być odpowiednia. Czy test współczynnika prawdopodobieństwa między tym SEM a ortogonalnym SEM byłby akceptowalnym substytutem MANOVA?

AKTUALIZACJA: Przykładowe dane i analizy na wielu odmianach $p$-value (dziękuję, @JeremyMiles!)

library(lavaan)

offspring <- url("https://drive.google.com/uc?export=download&id=1yXXlcHUZSMZ3QGtxnmuqvrFy6g0o2QeN")

load(offspring)

close(offspring)

# You should now have a data frame called "OM.full"
# Two "treatment" levels: cues, nocues
# Two response variables: dispersed, total.weight

# Scale response variables to z-scores

OM.full$clutch.size <- scale(OM.full$dispersed)
OM.full$clutch.weight <- scale(OM.full$total.weight)

# Desaturate the model to obtain a multivariate p-value
OM.sem <- "clutch.size ~ 0 * treatment
          clutch.weight ~ 0 * treatment"

fit <- sem(OM.sem,
           estimator = "MLMVS",
           data = OM.full)

summary(fit)

lavaan 0.6-7 ended normally after 16 iterations

  Estimator                                         ML
  Optimization method                           NLMINB
  Number of free parameters                          3
                                                      
  Number of observations                           128
                                                      
Model Test User Model:
                                              Standard      Robust
  Test Statistic                                 2.085       1.984
  Degrees of freedom                                 2       1.993
  P-value (Chi-square)                           0.352       0.369
  Scaling correction factor                                  1.051
       mean and variance adjusted correction                      

Parameter Estimates:

  Standard errors                           Robust.sem
  Information                                 Expected
  Information saturated (h1) model          Structured

Regressions:
                   Estimate  Std.Err  z-value  P(>|z|)
  clutch.size ~                                       
    treatment         0.000                           
  clutch.weight ~                                     
    treatment         0.000                           

Covariances:
                   Estimate  Std.Err  z-value  P(>|z|)
 .clutch.size ~~                                      
   .clutch.weight     0.848    0.091    9.293    0.000

Variances:
                   Estimate  Std.Err  z-value  P(>|z|)
   .clutch.size       0.992    0.099   10.006    0.000
   .clutch.weight     0.992    0.097   10.180    0.000

Odpowiedzi

1 JeremyMiles Nov 25 2020 at 06:24

Tak, jeśli dobrze zrozumiałem, użycie SEM może rozluźnić założenie o homoskedastyczności - użycie solidnego estymatora (np. Satorra-Bentler) nie powoduje założenia homoskedastyczności (jest to estymator kanapkowy). (Ale nie jestem pewien, co masz na myśli przez „ten SEM i SEM prostopadły do ​​niego”).