Get extra outputs from a simulation result object (SimResult
). Users can ask this package to extra output from the lavaan
object in each iteration by setting the outfun
argument (in the sim
function). See the example below.
getExtraOutput(object, improper = TRUE, nonconverged = FALSE)
A list of extra outputs
SimResult
that have the extra output extracted by the function defined in the outfun
argument (in the sim
function)
Specify whether to include the information from the replications with improper solutions
Specify whether to include the information from the nonconvergent replications
Sunthud Pornprasertmanit (psunthud@gmail.com)
sim
A function to run a Monte Carlo simulation
if (FALSE) {
loading <- matrix(0, 6, 1)
loading[1:6, 1] <- NA
LY <- bind(loading, 0.7)
RPS <- binds(diag(1))
RTE <- binds(diag(6))
CFA.Model <- model(LY = LY, RPS = RPS, RTE = RTE, modelType="CFA")
# Write a function to extract the modification index from lavaan object
outfun <- function(out) {
result <- inspect(out, "mi")
}
# We will use only 5 replications to save time.
# In reality, more replications are needed.
Output <- sim(5, n=200, model=CFA.Model, outfun=outfun)
# Get the modification index of each replication
getExtraOutput(Output)
}
Run the code above in your browser using DataLab