Skip to content

Instantly share code, notes, and snippets.

@masaha03
Created May 4, 2012 19:12
Show Gist options
  • Save masaha03/2597095 to your computer and use it in GitHub Desktop.
Save masaha03/2597095 to your computer and use it in GitHub Desktop.
model.b1 <- update(model.a2)
add, 教育年数 <- 年齢 , b1, NA
add, 職業威信 <- 年齢 , c1, NA
add, 職業威信 <- 教育年数, c2, NA
add, 教育年数 <-> 教育年数, e2, NA
add, 職業威信 <-> 職業威信, e3, NA
sem.b <- sem(model.b1, cor.1, N=685, fixed.x="年齢")
summary(sem.b)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment