renv project added

Author: Adam Kaplan

.Rhistory

@@ -0,0 +1,3 @@
+setwd("C:/Users/adamk/Dropbox (MIT)/Current/PML_Good_coding_practices_example")
+renv::init()
+renv::snapshot()

.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

PML_Good_coding_practices_example.Rproj

@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes

analysis/analysis.R

@@ -0,0 +1,39 @@
+# Libraries and setup #######
+#
+library(here)
+library(readr)
+library(stargazer)
+library(ggplot2)
+# Let `here` know what file this is using RELATIVE paths
+here::i_am("analysis/analysis.R")
+
+
+# Analysis ##################
+#
+# Can use here to access data using RELATIVE paths
+data <- readr::read_csv(here("data/simulated-data.csv"))
+# Run regression
+regression <- lm(y ~ x + 1, data = data)
+
+
+# Outputs ###################
+#
+## Save table ###############
+summary(regression)
+stargazer::stargazer(regression, out = here("report/tables/regression.tex"))
+
+
+## Plot results #############
+### Base R version ##########
+png(here("report/figures/regression.png"))
+plot(data$x, data$y)
+lines(data$x, predict(regression), col = "red")
+dev.off()
+
+### GGplot version ##########
+plotting_data <- data
+plotting_data$predictions <- predict(regression)
+ggplot2::ggplot(plotting_data, aes(x = x, y = y)) +
+  geom_point() +
+  geom_line(aes(y = predictions), color = "red")
+ggplot2::ggsave(here("report/figures/regression_ggplot.png"))