Update SGL_demo.R

under construction: workflow for SGSR(particularly SGLasso)