# Load acrylic data set
data(acrylic)
# Build a semi-gSEM model
ans <- netSEMm(acrylic)
# Subset dataset with different cutoff
res <- subsetData(ans,cutoff=c(0.2))
res <- subsetData(ans,cutoff=c(0.2,0.5))
res <- subsetData(ans,cutoff=c(0.2,0.5,0.8))
Run the code above in your browser using DataLab