Create statistics.r