set up for github pages & re-run to check

Readme.md

@@ -2,7 +2,9 @@
 
 And the various confusions that arise...
 
- * [Latest paper .Rmd](paper/weGotThePowerDraftPaper.Rmd) code (mostly stats & notes, little text)
+ * Latest draft: 
+   * [.Rmd](paper/weGotThePowerDraftPaper.Rmd) code (mostly stats & notes, little text)
+   * [.html]() output (as above)
 
 Structured as an [R package](http://r-pkgs.had.co.nz/) for re-producability.
 

pages/readme.md

+# We Got The Power: Analysis for a short paper on statistical power & statistical significance
+
+And the various confusions that arise...
+
+ * Latest draft: 
+   * [.Rmd](https://github.com/dataknut/weGotThePower/blob/master/paper/weGotThePower.Rmd) code (mostly stats & notes, little text)
+   * [.html](weGotThePower.html) output (as above)

paper/makePages.R

+# knit the .Rmd to an html file in the pages/ directory 
+library(markdown)
+library(bookdown)
+library(dkUtils)
+
+myParams$repoLoc <- dkUtils::findParentDirectory("weGotThePower")
+
+rmdFile <- paste0(myParams$repoLoc, "/paper/weGotThePower.Rmd")
+rmarkdown::render(input = rmdFile,
+                  output_format = "html_document2",
+                  output_file = paste0(myParams$repoLoc, "/pages/weGotThePower.html")
+)
\ No newline at end of file