Create SGL_demo.R