# NOT RUN {
# Drawing the graphs in Lin & Weng (2014) #
# FIGURE 2 #
GAIPE.RMSEA(rmsea=.05,df=30,width=c(.03,.04))
# FIGURE 3 #
GAIPE.RMSEA(rmsea=c(.05,.08),df=30,width=c(.03,.04))
# FIGURE 4 #
GAIPE.RMSEA(rmsea=.025,df=30,width=c(.03,.04),PA_method="not.close.fit",H0rmsea=0.05)
# FIGURE 5 #
GAIPE.RMSEA(rmsea=.05,df=30,width=c(.03,.04),PA_method="exact.fit",H0rmsea=0)
# }
Run the code above in your browser using DataLab