R script for graphical modeling using covariance selection