Update script/statistics.R