added stats.R