The data set is a study of photodegradation of acrylic polymer. In this work, polymeric samples were exposed to different levels of light exposures and resulting optical changes were determined through optical spectroscopy. YI (yellowness index) is the main endogenous variable and all other columns in the data set IrradTot (total applied irradiance), IAD1, IAD2, IAD2p, and IAD3 are considered as exogenous variables, with fully consideration of the nonrecursive “feedback loop” relations.
## Load the acrylic data set data(acrylic) ?acrylic ## Run netSEMp1 model <- netSEMp1(acrylic) ans1 ## Plot the network model for principle 1 plot(ans1, cutoff = c(0.3,0.6,0.9)) ## Run netSEMp2 model <- netSEMp2(acrylic) ans2 ## Plot the network model for principle 2 plot(ans2, cutoff = c(0.3,0.6,0.9))
Myles P. Murray, Laura S. Bruckman, and Roger H. French “Photodegradation in a stress and response framework: poly(methyl methacrylate) for solar mirrors and lens,” Journal of Photonics for Energy 2(1), 022004 (19 November 2012). https://doi.org/10.1117/1.JPE.2.022004