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

Description Usage Arguments Value Author(s) References See Also Examples

View source: R/Tabu_addparam.R

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

1
2
3
4
5
6
7
8
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

https://doi.org/10.1080/10705511.2017.1409074

See Also

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

Examples

 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
## 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 March 26, 2020, 7:47 p.m.