Statistics background
R script