{stats}
generate random sample from normal distribution
{base}
return system date
{base}
concatenate character vectors with space between elements
{base}
convert to date
{base}
load R packages
{lubridate}
return the current date
{base}
randomly sample from vector
The end!