Updated Data&Sample.R