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