cfa_program

vs = as.numeric(R.version$major)+as.numeric(R.version$minor)
if(vs < 3.5){
  cat(paste("Minimun version is 3.5. Your R version is", vs,"\n"))
  quit()
}

# Menginstall package
for(p in c('lavaan')){
  if(!require(p,character.only = TRUE)) install.packages(p)
  library(p,character.only = TRUE)
}

# Membaca data
myData = read.csv('sample.csv')
myData

# Menyusun Model
myModel <- '
      f1 =~ x1 + x2 + x3
      f2 =~ x4 + x5 + x6
      f3 =~ x7 + x8 + x9
'

Menjalankan analisis
fit <- cfa(model = myModel, data = myData)
summary(fit, fit.measures = TRUE)