add.param: Adds a parameter to the given search table. Checks whether...

View source: R/Tabu_addparam.R

add.paramR Documentation

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
)

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

Value

A data.frame with lavaan-formatted parameter values.

Author(s)

Carl F. Falk

References

\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1080/10705511.2017.1409074")}

See Also

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

Examples

## Not run: 
# 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)

## End(Not run)


ShortForm documentation built on June 22, 2024, 9:41 a.m.