##' ## Load the sample acrylic data set
data(acrylic)
## Run netSEM principle three
ans <- netSEMm(acrylic)
## Extract relations between IrradTot and IAD2
cf <- path(ans,from ="IAD2",to="IrradTot")
print(cf)
Run the code above in your browser using DataLab