yywan0913 发表于 2018-1-19 13:58 
首先感谢你的解答!
按照你的程序,数据处理好像没问题,当用这些数据时(我想用lavaan包做结构方程模型)会提示以下信息
> a1[,2:15]<-lapply(2:15,function(x)ordered(a1[,x]))
> library(lavaan)
> au.model<-
+ '
+ expr1=~rex+patent+sinov
+ lc=~gwage+welfare+train+security
+ expr1~lc+cfin+intype+inculture
+ lc~mw+rmw+informal
+ '
> fit<-sem(au.model,data=a1,estimator="PML")
Error in X[[g]][, idx2] : 下标出界
此外: Warning message:
In lav_data_full(data = data, group = group, cluster = cluster, :
lavaan WARNING: exogenous variable(s) declared as ordered in data: cfin intype inculture rmw informal
> summary(fit,fit.measures=TRUE)
Error in summary(fit, fit.measures = TRUE) : 找不到对象'fit'
又是提示下标出界!后面的程序好像无法进行,还请多指教,谢谢了!