## Not run:
# data = data.frame(
# a = runif(50),
# b = runif(50, 0, 1),
# c = runif(50, 0, 1),
# d = runif(50)
# )
#
# modelList = list(
# glm(b ~ a, family = "binomial", data),
# glm(c ~ a, family = "binomial", data),
# lm(d ~ b + c, data)
# )
#
# (basis.set = sem.basis.set(modelList))
#
# endogenous.reverse(basis.set, modelList)
# ## End(Not run)
Run the code above in your browser using DataLab