Description Usage Arguments Value Author(s) See Also Examples
View source: R/plotCutoffNonNested.R
This function will plot sampling distributions of the differences in fit indices between nonnested models. The users may add cutoffs by specifying the alpha
level.
1 2 
dat1Mod1 

dat1Mod2 

dat2Mod1 

dat2Mod2 

alpha 
A priori alpha level 
cutoff 
A priori cutoffs for fit indices, saved in a vector 
usedFit 
Vector of names of fit indices that researchers wish to plot the sampling distribution. 
useContour 
If there are two of sample size, percent completely at random, and percent missing at random are varying, the 
onetailed 
If 
NONE. Only plot the fit indices distributions.
Sunthud Pornprasertmanit (psunthud@gmail.com)
SimResult
for simResult that used in this function.
getCutoffNonNested
to find the difference in fit indices cutoffs for nonnested model comparison
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35  ## Not run:
# Model A: Factor 1 on Items 13 and Factor 2 on Items 48
loading.A < matrix(0, 8, 2)
loading.A[1:3, 1] < NA
loading.A[4:8, 2] < NA
LY.A < bind(loading.A, 0.7)
latent.cor < matrix(NA, 2, 2)
diag(latent.cor) < 1
RPS < binds(latent.cor, "runif(1, 0.7, 0.9)")
RTE < binds(diag(8))
CFA.Model.A < model(LY = LY.A, RPS = RPS, RTE = RTE, modelType="CFA")
# Model B: Factor 1 on Items 14 and Factor 2 on Items 58
loading.B < matrix(0, 8, 2)
loading.B[1:4, 1] < NA
loading.B[5:8, 2] < NA
LY.B < bind(loading.B, 0.7)
CFA.Model.B < model(LY = LY.B, RPS = RPS, RTE = RTE, modelType="CFA")
# The actual number of replications should be greater than 10.
Output.A.A < sim(10, n=500, model=CFA.Model.A, generate=CFA.Model.A)
Output.A.B < sim(10, n=500, model=CFA.Model.B, generate=CFA.Model.A)
Output.B.A < sim(10, n=500, model=CFA.Model.A, generate=CFA.Model.B)
Output.B.B < sim(10, n=500, model=CFA.Model.B, generate=CFA.Model.B)
# Plot cutoffs for both model A and model B
plotCutoffNonNested(Output.A.A, Output.A.B, Output.B.A, Output.B.B)
# Plot cutoffs for the model A only
plotCutoffNonNested(Output.A.A, Output.A.B)
# Plot cutoffs for the model A with onetailed test
plotCutoffNonNested(Output.A.A, Output.A.B, onetailed=TRUE)
## End(Not run)

Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.