exploratory_component_analysis.R

library(seminr)

image_items <- multi_items("IMAG", 1:5)
exp_items <- multi_items("CUEX", 1:3)

items <- c(image_items, exp_items)

almost_items <-  items[-1]
  
eca_mm <- constructs(
  composite("IMG",      items),
  composite("EXP",      almost_items)
  # composite("loyalty",  multi_items("CUSL", 1:3))
)

eca_sm <- relationships(
  paths(from = c("IMG"), to = c("EXP"))
)

eca_pls <- estimate_pls(data = mobi,
                        measurement_model = eca_mm,
                        structural_model = eca_sm,
                        inner_weights = path_factorial)

summary(eca_pls)
plot_scores(eca_pls)