R/f_convenience_simplestructure.R

In SachaEpskamp/psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

Defines functions simplestructure

Documented in simplestructure

simplestructure <- function(x){
  factors <- sort(unique(x))
  nVar <- length(x)
  nFact <- length(factors)
  lambda <- matrix(0,nVar,nFact)

  for (i in seq_along(x)){
    lambda[i,x[i]==factors] <- 1
  }
  colnames(lambda) <- factors
  return(lambda)
}