In lebebr01/metaRmat: Synthesis of Correlation Matrices

library(metaRmat)

Br <-  matrix(c(1.00000000, -0.09773331, -0.1755029,  0.3186775,
              -0.09773331,  1.00000000,  0.5271873, -0.4175596,
              -0.17550292,  0.5271872,  1.0000000, -0.4006848,
              0.31867753, -0.41755963, -0.4006848,  1.0000000), 
              nrow = 4, byrow = TRUE) 

colnames(Br) <- c("Performance",  "Self_confidence",  "Cognitive", "Somatic" )

rownames(Br) <- colnames(Br)


## Proposed path model

model <- "## Regression paths
          Performance ~  Self_confidence  + Cognitive  + Somatic
          Self_confidence ~ Cognitive + Somatic "


find_B(model, Br)
c_mat_ft(model, Br) # the same results with lavaan ML


N <- 573
model_fit(model, R = Br, method_mat  = "lavaan", 
          method_null = "sem", N)
model_fit(model, R = Br, method_mat  = "loehlin", 
          method_null = "sem", N )