change to basic_statistics.R