วิเคราะห์โมเดลประชาธิปไตยทางการเมือง
ในแบบฝึกหัดสุดท้ายนี้ จะได้นำทุกขั้นตอนที่ผ่านมามารวมกันเพื่อสร้างโมเดลหนึ่งปัจจัย โดยจะตรวจสอบค่า standardized loadings และ fit indices ของโมเดลประชาธิปไตยทางการเมือง ซึ่งวิเคราะห์ด้วยฟังก์ชัน cfa() แล้ว ขั้นตอนต่อไปคือใช้ฟังก์ชัน summary() พร้อม argument standardized และ fit.measures เพื่อดูผลลัพธ์ทั้งหมดพร้อมกัน
ในคอลัมน์ Std.all ของค่า loadings จะพบว่าตัวชี้วัดแต่ละตัวสะท้อนถึงประชาธิปไตยทางการเมืองได้ดี โดยมีค่าสูงใกล้เคียงกับ 1 อย่างไรก็ตาม เมื่อดู fit indices จะพบว่ามีทั้งค่าที่ดีและค่าที่ยังไม่ดี ซึ่งเป็นผลลัพธ์ที่พบได้บ่อย และบ่งบอกว่าโมเดลอาจเหมาะสมกับข้อมูล แต่ยังมีช่องทางในการปรับปรุงเพิ่มเติม
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Structural Equation Modeling ด้วย lavaan ใน R
คำแนะนำการฝึกหัด
- ใช้ฟังก์ชัน
summary()กับโมเดลpolitics.fit - เพิ่ม argument ที่ใช้แสดงทั้ง standardized loadings และ fit indices
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Load the lavaan library
library(lavaan)
# Load the data and define model
data(PoliticalDemocracy)
politics.model <- 'poldemo60 =~ y1 + y2 + y3 + y4'
# Analyze the model with cfa()
politics.fit <- cfa(model = politics.model, data = PoliticalDemocracy)
# Summarize the model