내가 semPaths {semPLot}와 Mplus에서 OUT 파일 provinent을 사용하여 R.</p> <p>임과 SEM의 경로를 그릴려고 semPaths {semPlot}

Question

에서 노드를 제외합니다.

분명히 작동하는 것처럼 보이지만 잠재적 인 변수를 제거하고 싶습니다. (이 합리적인 경우 그렇게하고 무시) https://www.dropbox.com/s/vo3oa5fqp7wydlg/questedMOD2.out?dl=0이

outfile1 <- "questedMOD.out" 
``` 

semPaths(outfile1,what="est", intercepts=FALSE, rotation=4, edge.color="black", sizeMan=5, esize=TRUE, structural="TRUE", layout="tree2", nCharNodes=0, intStyle="multi") 

Answer 1

이 작업을 수행하는 쉬운 방법이있을 수 있습니다 - 한 가지 방법을 : Mplus에서 아웃

:

나는 다음과 같은 구문을 사용하고 있습니다 이것을하기 위해서는 플로팅하기 전에 객체에서 노드를 제거해야합니다. semPaths에 위의 호출에서 귀하의 질문에 Rotate Edges in semPaths/qgraph

library(qgraph) 
library(semPlot) 
library(MplusAutomation) 

# This downloads an output file from Mplus examples 
download.file("http://www.statmodel.com/usersguide/chap5/ex5.8.out", 
             outfile <- tempfile(fileext = ".out")) 

# Unadjusted plot 
s <- semPaths(outfile, intercepts = FALSE) 

에서 Mplus의 예를 사용

, outfile 클래스 character의, 그래서 (semPaths에 대한 코드의 시작 근처) 라인

if (!"semPlotModel" %in% class(object)) 
        object <- do.call(semPlotModel, c(list(object), modelOpts)) 

에서 개체를 반환합니다.. 이것은 클래스 "semPlotModel"입니다.

그래서이 개체를 먼저 만들고 수정 한 다음이 개체를 semPaths에 전달해야합니다.

# Call semPlotModel on your Mplus file 
obj <- semPlot:::semPlotModel.mplus.model(outfile) 
# obj <- do.call(semPlotModel, list(outfile)) # this is more general/not just for Mplus 

# Remove one factor (F1) from object@Pars - need to check lhs and rhs columns 
idx <- apply(obj@Pars[c("lhs", "rhs")], 1, function(i) any(grepl("F1", i))) 
obj@Pars <- obj@Pars[!idx, ] 

class(obj) 

obj 클래스 "semPlotModel"의 지금과 semPaths

s <- semPaths(obj, intercepts = FALSE) 

당신은 이것의 구조는 객체를 돌려 볼 str(s)을 사용할 수 있습니다에 직접 전달 될 수 있습니다.