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
#I apologise for doing this, but did not know you should not do so. If anyone knows of a guide of such rules of DOs and DONTs
#for when sharing R code, please let me know.
#rm(list=ls(all=T))