Create mySGLModel.R

R5 class