Structural Equation Model

By Harjito

image from Structural Equation Model

Penyusunan item-item pengukuran sosial tidaklah mudah, mengingat variabel yang diukur tidak bisa diukur secara langsung (latent). Oleh sebab itu instrumen perlu diuji apakah konstruksi yang dibangun valid atau tidak. Ketika item-item disusu berdasarkan sebuah kajian teori, maka item disusun sedemikian rupa dalam domaij-domain. Pengujian ini dimaksudkan apakah konstruksi instrumen cukup konsisten atau tidak.

Apakah SEM itu?

SEM: Structural Equation Model adalah analisis statistik secara simultan bertingkat. SEM didasarkan pada analisis covarians sehingga lebih akurat dibanding regresi linear. Beberapa aplikasi yang biasa digunakan untuk analisis SEM adalah AMOS dan LISREL. Analisis ini dapat dilakukan dengan R dengan package lavaan.

Package yang dibutuhkan

  • lavaan, panduan dapat diunduh di sini
  • Sudah menginstall R-Base versi 3.5++
  • Sudah menginstall VS-Code
  • Sudah menginstall extension R untuk VS-Code Panduan instalasi dapat dibaca di Analsis Statistik Dengan R

Contoh Impementasi

Persiapan

  • Buat folder kerja
  • Anda dapat menyalin data di tautan ini
  • Simpan dengan nama sample.csv di folder kerja
  • buat file baru dengan nama run.R

Install package

  • Buka VSCode
  • Buat file Baru, simpan di folder kerja dengan nama run.R
  • Arahkan terminal ke folder kerja
  • Ketikkan baris merintah berikut
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()
}

for(p in c('lavaan')){
  if(!require(p,character.only = TRUE)) install.packages(p)
  library(p,character.only = TRUE)
}
  • Jalankan dengan perintah: Rscript run.R
  • Tekan enter
  • Akan muncul proses instalasi dan load package lavaan

Membaca Data

  • Tuliskan perintah berikut
myData = read.csv('sample.csv')
myData
  • Jalankan kembali dengan perintah: Rscript run.R
  • Tekan enter
  • akan menampilkan data dari sample.csv

Menyusun Model SEM

Model disusun berdasarkan hipotesis yang kita susun, perhatikan gambar berikut cfa

  • Terdapat 3 domain yaitu : ind60, dem60 dan dem65
  • Masing masing domain memiliki item sebagai berikut: x1-x3 untuk ind60, y1-y4 untuk dem60 dan y5 + y6 + y7 + y8 untuk dem65
  • ind60 merupakan faktor dari dem60, sementara ind60 dan dem60 merupakan faktor dari dem65
  • y1 berkorelasi dengan y5, y2 berkorelasi dengan y4 dan y6, y3 berkorelasi dengan y7, y4 berkorelasi dengan y8, serta y6 berkorelasi dengan y8
  • Berdasarkan konstruksi instrumen maka disusun model sebagai berikut
myModel <- '
  # measurement model
    ind60 =~ x1 + x2 + x3
    dem60 =~ y1 + y2 + y3 + y4
    dem65 =~ y5 + y6 + y7 + y8
  # regressions
    dem60 ~ ind60
    dem65 ~ ind60 + dem60
  # residual correlations
    y1 ~~ y5
    y2 ~~ y4 + y6
    y3 ~~ y7
    y4 ~~ y8
    y6 ~~ y8
'

Analisis SEM

  • Ketikkan perintah berikut
fit <- sem(model = myModel, data = myData)
summary(fit, fit.measures = TRUE)
  • Jalankan kembali dengan perintah: Rscript run.R

Program selengkapnya dapat disalin dari sini

Citation

Jika anda menggunakan package lavaan untuk publikasi, anda dapat menyertakan sitasi berikut.

 @Article{,
    title = {{lavaan}: An {R} Package for Structural Equation
      Modeling},
    author = {Yves Rosseel},
    journal = {Journal of Statistical Software},
    year = {2012},
    volume = {48},
    number = {2},
    pages = {1--36},
    url = {http://www.jstatsoft.org/v48/i02/},
  }

Ikuti terus tutorial saya di e-Project dan channel saya di