Update psem model object with additional values.
# S3 method for psem
update(object, ...)a psem object
additional arguments to update
mod <- psem(
lm(rich ~ cover, data = keeley),
lm(cover ~ firesev, data = keeley),
lm(firesev ~ age, data = keeley),
data = keeley
)
update(mod, firesev ~ age + cover)
#> Structural Equations of x :
#> lm: rich ~ cover
#> lm: cover ~ firesev
#> lm: firesev ~ age + cover
#>
#> Data:
#> distance elev abiotic age hetero firesev cover rich
#> 1 53.40900 1225 60.67103 40 0.757065 3.50 1.0387974 51
#> 2 37.03745 60 40.94291 25 0.491340 4.05 0.4775924 31
#> 3 53.69565 200 50.98805 15 0.844485 2.60 0.9489357 71
#> 4 53.69565 200 61.15633 15 0.690847 2.90 1.1949002 64
#> 5 51.95985 970 46.66807 23 0.545628 4.30 1.2981890 68
#> 6 51.95985 970 39.82357 24 0.652895 4.00 1.1734866 34
#> ...with 84 more rows
#>
#> [1] "class(psem)"