## Not run:
# data(stiles)
# cat(stiles.model)
# stiles.trans <- stiles
# stiles.trans[, c("frag.area", "isolation", "mean.plant.density")] <-
# log(stiles.trans[, c("frag.area", "isolation",
# "mean.plant.density")])
# stiles.model.fit <- sem(stiles.model, data = stiles.trans)
# ## Bootstrapping
# boot.fit <- sem(stiles.model, sample.cov = cov(stiles.trans), sample.nobs =
# 22)
# stiles.boot <- boot.lavaan(boot.fit, n = 1000)
# ## End(Not run)
Run the code above in your browser using DataLab