Update statisticsV4.R

Removed rm(list=ls(all=T)). As a beginner I did not know that sharing this is really going to bring a shitstorm