ShortForm (version 0.5.6)

add.param: Adds a parameter to the given search table. Checks whether parameter is involved in any (in)equality constraints in a fitted lavaan model

Description

Adds a parameter to the given search table. Checks whether parameter is involved in any (in)equality constraints in a fitted lavaan model

Usage

add.param(
  fitted.model,
  ptab,
  syntax,
  nullval = NULL,
  free = NULL,
  block = NULL
)

Value

A data.frame with lavaan-formatted parameter values.

Arguments

fitted.model

fitted lavaan model

ptab

search table

syntax

model.syntax specifying the parameter to add to the current table

nullval

optional numeric value specifying what the parameter should be fixed to (when fixed)

free

optional logical value specifying whether the parameter should initially be set free (or not)

block

optional numeric value specifying the group number to which the parameter corresponds

Author

Carl F. Falk

References

tools:::Rd_expr_doi("10.1080/10705511.2017.1409074")

See Also

Other Tabu Search: refit.model(), search.prep()

Examples

if (FALSE) {
# load simulation data and select columns used in this example
data(simulated_test_data)
tabuData <- simulated_test_data[, c(1:10)]

# specify an improper model (improper because data is unidimensional)
tabuModel <- "
Ability =~ Item1 + Item2 + Item3 + Item4
FakeAbility =~ Item5 + Item6 + Item7 + Item8
Ability ~ Outcome
FakeAbility ~ 0*Outcome"

# run the initial misspecified model for Tabu

init.model <- lavaan::lavaan(
  model = tabuModel, data = tabuData,
  auto.var = TRUE, auto.fix.first = FALSE, std.lv = TRUE, auto.cov.lv.x = TRUE
)

# Use search.prep to prepare for the Tabu search
ptab <- search.prep(fitted.model = init.model, loadings = TRUE, fcov = TRUE, errors = FALSE)

# add an additional (mispecified) parameter
additional.param <- "Item1 ~~ 0.5*Item3"
ptab <- add.param(fitted.model = init.model, ptab = ptab, syntax = additional.param)

# Perform Tabu Search
trial <- tabu.sem(init.model = init.model, ptab = ptab, obj = AIC, niter = 2, tabu.size = 5)
}