Update initialRscript.R

online modification; simulated collaborator.:>