{base}
return system date
{stats}
generate random sample from normal distribution
{utils}
load specific data set
{base}
load R packages
{lubridate}
return the current date
{base}
calculate mean of elements of vector
{base}
convert to date
The end!