0

当我尝试使用包中.rnw指定的模型编译文件时，我不断收到错误消息。不喜欢中的逗号。specifyModel()semknitrF1 -> X1, lam1, NA

这是一个重现错误的示例： 

\documentclass{article}

\begin{document}

<<specify, include=FALSE, tidy=FALSE>>=
# Simple CFA Model
  # from: http://www.statmethods.net/advstats/factor.html
    library(sem)
    model.mydata <- specifyModel() 
      F1 ->  X1, lam1, NA
      F1 ->  X2, lam2, NA 
      F1 ->  X3, lam3, NA 
      F2 ->  X4, lam4, NA 
      F2 ->  X5, lam5, NA 
      F2 ->  X6, lam6, NA 
      X1 <-> X1, e1,   NA 
      X2 <-> X2, e2,   NA 
      X3 <-> X3, e3,   NA 
      X4 <-> X4, e4,   NA 
      X5 <-> X5, e5,   NA 
      X6 <-> X6, e6,   NA 
      F1 <-> F1, NA,    1 
      F2 <-> F2, NA,    1 
      F1 <-> F2, F1F2, NA

    model.mydata
# end
@

\end{document}

这是错误：

#Quitting from lines 5-27 (test.rnw) 
#Error in parse(text = x, srcfile = src) : <text>:5:16: unexpected ','
#5:     model.mydata <- specifyModel() 
#6:       F1 ->  X1,

有什么想法吗？

4

1 回答 1

1

如果您未在其中指定文件，specifyModel它将尝试从标准输入流 ( stdin) 中读取 - 虽然这可能在knitr我认为从文件中读取模型规范会更容易。

例如

model <- readLines(con = textConnection('F1 ->  X1, lam1, NA
F1 ->  X2, lam2, NA 
F1 ->  X3, lam3, NA 
F2 ->  X4, lam4, NA 
F2 ->  X5, lam5, NA 
F2 ->  X6, lam6, NA 
X1 <-> X1, e1,   NA 
X2 <-> X2, e2,   NA 
X3 <-> X3, e3,   NA 
X4 <-> X4, e4,   NA 
X5 <-> X5, e5,   NA 
X6 <-> X6, e6,   NA 
F1 <-> F1, NA,    1 
F2 <-> F2, NA,    1 
F1 <-> F2, F1F2, NA'))
cat(model, file = 'model.spec', sep = '\n')
model.mydata <- specifyModel(file = 'model.spec')

或者，您可以简单地创建model.spec文件并将其读入。

于 2013-10-09T01:56:09.053 回答