Update datacopyGUI.R

typo