## ---- message=FALSE, eval=FALSE-----------------------------------------------
#  
#  ## Load the crack data set and preview column metadata
#  data(crack)
#  ?crack
#  
#  ## Run netSEMp1 model
#  ans1 <- netSEMp1(crack)
#  ## Plot the network model for principle 1
#  plot(ans1, cutoff = c(0.4, 0.5, 0.6))
#  
#  ## Run netSEMp2 model
#  ans2 <- netSEMp2(crack)
#  ## Plot the network model for principle 2
#  plot(ans2, cutoff = c(0.4, 0.5, 0.6))

## ---- out.width="675px", dpi=1000, echo=FALSE, fig.cap="Crack netSEMp1 model"----
knitr::include_graphics("crack1.png")

## ---- out.width="800px", dpi=1000, echo=FALSE, fig.cap="Crack netSEMp2 model"----
knitr::include_graphics("crack2.png")