
Extract one step from the sequential procedure.
getStep(object, step, slot)# S3 method for modelsearch2
getStep(object, step = nStep(object), slot = NULL)
a modelsearch2
object
[integer >0] which test should be extracted?
[character] the element from the modelsearch2 object that should be extracted.
if (FALSE) {
mSim <- lvm(Y~G+X1+X2)
addvar(mSim) <- ~Z1+Z2+Z3+Z4+Z5+Z6
df.data <- lava::sim(mSim, 1e2)
mBase <- lvm(Y~G)
addvar(mBase) <- ~X1+X2+Z1+Z2+Z3+Z4+Z5+Z6
e.lvm <- estimate(mBase, data = df.data)
res <- modelsearch2(e.lvm, method.p.adjust = "holm")
getStep(res)
getStep(res, slot = "sequenceTest")
getStep(res, step = 1)
}
Run the code above in your browser using DataLab