initial copy of the PowerofR.rmd