R Scripts for calculating descriptive statistics