Model1Fit <- cfa(model=Model1, data = dataset, orthogonal = FALSE, test = "Satorra-Bentler", std.lv = TRUE)
summary(Model1Fit, fit.measures=TRUE)
semPaths(Model1Fit)

Loglikelihood and Information Criteria:
  Loglikelihood user model (H0)                     NA
  Loglikelihood unrestricted model (H1)             NA
  Number of free parameters                         27
  Akaike (AIC)                                      NA
  Bayesian (BIC)                                    NA