Create contro-survG.R