Merge pull request #6 from malcolmbarrett/repo_cleanup

Repo cleanup

Author: malcolmbarrett

README.Rmd

@@ -21,6 +21,8 @@ knitr::opts_chunk$set(
 * [04 Using Propensity Scores](https://causal-inference-r-workshop.netlify.app/04-using-pscores.html)
 * [05 Checking Propensity Scores](https://causal-inference-r-workshop.netlify.app/05-pscore-diagnostics.html)
 * [06 Fitting the outcome model](https://causal-inference-r-workshop.netlify.app/06-outcome-model.html)
+* [07 G-Computation](https://causal-inference-r-workshop.netlify.app/07-g-computation.html)
+* [08 Tipping Point Sensitivity Analyses](https://causal-inference-r-workshop.netlify.app/08-tipr.html)
 
 ### Installing materials locally
 

README.md

@@ -5,28 +5,32 @@
 
 ### Slides
 
-  - [00
+-   [00
     Intro](https://causal-inference-r-workshop.netlify.app/00-intro.html)
-  - [01 Whole
+-   [01 Whole
     Game](https://causal-inference-r-workshop.netlify.app/01-causal_modeling_whole_game.html)
-  - [02 Causal
+-   [02 Causal
     Diagrams](https://causal-inference-r-workshop.netlify.app/02-dags.html)
-  - [03 Introduction to Propensity
+-   [03 Introduction to Propensity
     Scores](https://causal-inference-r-workshop.netlify.app/03-pscores.html)
-  - [04 Using Propensity
+-   [04 Using Propensity
     Scores](https://causal-inference-r-workshop.netlify.app/04-using-pscores.html)
-  - [05 Checking Propensity
+-   [05 Checking Propensity
     Scores](https://causal-inference-r-workshop.netlify.app/05-pscore-diagnostics.html)
-  - [06 Fitting the outcome
+-   [06 Fitting the outcome
     model](https://causal-inference-r-workshop.netlify.app/06-outcome-model.html)
+-   [07
+    G-Computation](https://causal-inference-r-workshop.netlify.app/07-g-computation.html)
+-   [08 Tipping Point Sensitivity
+    Analyses](https://causal-inference-r-workshop.netlify.app/08-tipr.html)
 
 ### Installing materials locally
 
 We will be using RStudio Cloud for the workshop, but if you would like
 to install the required packages and course materials, we have an R
 package called
 {[causalworkshop](https://github.com/malcolmbarrett/causalworkshop)} to
-help you do that\! You can install
+help you do that! You can install
 {[causalworkshop](https://github.com/malcolmbarrett/causalworkshop)}
 from GitHub with:
 

slides/00-intro.html

@@ -12,7 +12,7 @@
 class: center, middle, inverse, title-slide
 
 # Causal Inference in R: Introduction
-### 2020-07-29 (updated: 2020-12-01)
+### 2020-07-29 (updated: 2021-08-30)
 
 ---
 
@@ -35,17 +35,17 @@
 .pull-left[
 <br />
 <br />
-<img src="img/ldm.jpg" width="132" style="display: block; margin: auto;" />
+<img src="img/ldm.jpg" width="80%" style="display: block; margin: auto;" />
 <br />
-        <svg style="height:0.8em;top:.04em;position:relative;" viewBox="0 0 496 512"><path d="M336.5 160C322 70.7 287.8 8 248 8s-74 62.7-88.5 152h177zM152 256c0 22.2 1.2 43.5 3.3 64h185.3c2.1-20.5 3.3-41.8 3.3-64s-1.2-43.5-3.3-64H155.3c-2.1 20.5-3.3 41.8-3.3 64zm324.7-96c-28.6-67.9-86.5-120.4-158-141.6 24.4 33.8 41.2 84.7 50 141.6h108zM177.2 18.4C105.8 39.6 47.8 92.1 19.3 160h108c8.7-56.9 25.5-107.8 49.9-141.6zM487.4 192H372.7c2.1 21 3.3 42.5 3.3 64s-1.2 43-3.3 64h114.6c5.5-20.5 8.6-41.8 8.6-64s-3.1-43.5-8.5-64zM120 256c0-21.5 1.2-43 3.3-64H8.6C3.2 212.5 0 233.8 0 256s3.2 43.5 8.6 64h114.6c-2-21-3.2-42.5-3.2-64zm39.5 96c14.5 89.3 48.7 152 88.5 152s74-62.7 88.5-152h-177zm159.3 141.6c71.4-21.2 129.4-73.7 158-141.6h-108c-8.8 56.9-25.6 107.8-50 141.6zM19.3 352c28.6 67.9 86.5 120.4 158 141.6-24.4-33.8-41.2-84.7-50-141.6h-108z"/></svg> [https://www.lucymcgowan.com/](https://www.lucymcgowan.com/)
+&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; <svg aria-hidden="true" role="img" viewBox="0 0 496 512" style="height:1em;width:0.97em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:currentColor;overflow:visible;position:relative;"><path d="M336.5 160C322 70.7 287.8 8 248 8s-74 62.7-88.5 152h177zM152 256c0 22.2 1.2 43.5 3.3 64h185.3c2.1-20.5 3.3-41.8 3.3-64s-1.2-43.5-3.3-64H155.3c-2.1 20.5-3.3 41.8-3.3 64zm324.7-96c-28.6-67.9-86.5-120.4-158-141.6 24.4 33.8 41.2 84.7 50 141.6h108zM177.2 18.4C105.8 39.6 47.8 92.1 19.3 160h108c8.7-56.9 25.5-107.8 49.9-141.6zM487.4 192H372.7c2.1 21 3.3 42.5 3.3 64s-1.2 43-3.3 64h114.6c5.5-20.5 8.6-41.8 8.6-64s-3.1-43.5-8.5-64zM120 256c0-21.5 1.2-43 3.3-64H8.6C3.2 212.5 0 233.8 0 256s3.2 43.5 8.6 64h114.6c-2-21-3.2-42.5-3.2-64zm39.5 96c14.5 89.3 48.7 152 88.5 152s74-62.7 88.5-152h-177zm159.3 141.6c71.4-21.2 129.4-73.7 158-141.6h-108c-8.8 56.9-25.6 107.8-50 141.6zM19.3 352c28.6 67.9 86.5 120.4 158 141.6-24.4-33.8-41.2-84.7-50-141.6h-108z"/></svg> [https://www.lucymcgowan.com/](https://www.lucymcgowan.com/)
 ]
 
 .pull-right[
 &lt;br /&gt;
 &lt;br /&gt;
-&lt;img src="img/mb.jpg" width="412" style="display: block; margin: auto;" /&gt;
+&lt;img src="img/mb.jpg" width="80%" style="display: block; margin: auto;" /&gt;
 &lt;br /&gt;
-&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;  &lt;svg style="height:0.8em;top:.04em;position:relative;" viewBox="0 0 496 512"&gt;&lt;path d="M336.5 160C322 70.7 287.8 8 248 8s-74 62.7-88.5 152h177zM152 256c0 22.2 1.2 43.5 3.3 64h185.3c2.1-20.5 3.3-41.8 3.3-64s-1.2-43.5-3.3-64H155.3c-2.1 20.5-3.3 41.8-3.3 64zm324.7-96c-28.6-67.9-86.5-120.4-158-141.6 24.4 33.8 41.2 84.7 50 141.6h108zM177.2 18.4C105.8 39.6 47.8 92.1 19.3 160h108c8.7-56.9 25.5-107.8 49.9-141.6zM487.4 192H372.7c2.1 21 3.3 42.5 3.3 64s-1.2 43-3.3 64h114.6c5.5-20.5 8.6-41.8 8.6-64s-3.1-43.5-8.5-64zM120 256c0-21.5 1.2-43 3.3-64H8.6C3.2 212.5 0 233.8 0 256s3.2 43.5 8.6 64h114.6c-2-21-3.2-42.5-3.2-64zm39.5 96c14.5 89.3 48.7 152 88.5 152s74-62.7 88.5-152h-177zm159.3 141.6c71.4-21.2 129.4-73.7 158-141.6h-108c-8.8 56.9-25.6 107.8-50 141.6zM19.3 352c28.6 67.9 86.5 120.4 158 141.6-24.4-33.8-41.2-84.7-50-141.6h-108z"/&gt;&lt;/svg&gt; [https://www.malco.io/](https://www.malco.io/)
+&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;  <svg aria-hidden="true" role="img" viewBox="0 0 496 512" style="height:1em;width:0.97em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:currentColor;overflow:visible;position:relative;"><path d="M336.5 160C322 70.7 287.8 8 248 8s-74 62.7-88.5 152h177zM152 256c0 22.2 1.2 43.5 3.3 64h185.3c2.1-20.5 3.3-41.8 3.3-64s-1.2-43.5-3.3-64H155.3c-2.1 20.5-3.3 41.8-3.3 64zm324.7-96c-28.6-67.9-86.5-120.4-158-141.6 24.4 33.8 41.2 84.7 50 141.6h108zM177.2 18.4C105.8 39.6 47.8 92.1 19.3 160h108c8.7-56.9 25.5-107.8 49.9-141.6zM487.4 192H372.7c2.1 21 3.3 42.5 3.3 64s-1.2 43-3.3 64h114.6c5.5-20.5 8.6-41.8 8.6-64s-3.1-43.5-8.5-64zM120 256c0-21.5 1.2-43 3.3-64H8.6C3.2 212.5 0 233.8 0 256s3.2 43.5 8.6 64h114.6c-2-21-3.2-42.5-3.2-64zm39.5 96c14.5 89.3 48.7 152 88.5 152s74-62.7 88.5-152h-177zm159.3 141.6c71.4-21.2 129.4-73.7 158-141.6h-108c-8.8 56.9-25.6 107.8-50 141.6zM19.3 352c28.6 67.9 86.5 120.4 158 141.6-24.4-33.8-41.2-84.7-50-141.6h-108z"/></svg> [https://www.malco.io/](https://www.malco.io/)
 
 ]
 

slides/00-intro.pdf

@@ -1,6 +1,8 @@
 ---
 title: "Causal Modeling in R: Whole Game"
-date: "2020-07-29 (updated: `r Sys.Date()`)"
+author: "Malcolm Barrett"
+institute: "Teladoc Health"
+date: "2021-09-01 (updated: `r Sys.Date()`)"
 output:
   xaringan::moon_reader:
     css: ["default", "theme.css"]

slides/01-causal_modeling_whole_game.Rmd

@@ -3,6 +3,7 @@
   <head>
     <title>Causal Modeling in R: Whole Game</title>
     <meta charset="utf-8" />
+    <meta name="author" content="Malcolm Barrett" />
     <script src="libs/header-attrs/header-attrs.js"></script>
     <link href="libs/remark-css/default.css" rel="stylesheet" />
     <link rel="stylesheet" href="theme.css" type="text/css" />
@@ -12,7 +13,9 @@
 class: center, middle, inverse, title-slide
 
 # Causal Modeling in R: Whole Game
-### 2020-07-29 (updated: 2020-12-01)
+### Malcolm Barrett
+### Teladoc Health
+### 2021-09-01 (updated: 2021-08-30)
 
 ---
 
@@ -45,7 +48,7 @@
 ```
 
 ```
-## # A tibble: 1,566 x 67
+## # A tibble: 1,566 × 67
 ##     seqn  qsmk death yrdth modth dadth   sbp   dbp sex  
 ##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;fct&gt;
 ##  1   233     0     0    NA    NA    NA   175    96 0    
@@ -67,7 +70,7 @@
 
 ## Did those who quit smoking gain weight?
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-2-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-2-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 
@@ -86,7 +89,7 @@
 ```
 
 ```
-## # A tibble: 2 x 3
+## # A tibble: 2 × 3
 ##    qsmk mean_weight_change    sd
 ##   &lt;dbl&gt;              &lt;dbl&gt; &lt;dbl&gt;
 *## 1     0               1.98  7.45
@@ -101,11 +104,11 @@
 
 ---
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-4-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-4-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-5-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-5-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 
@@ -115,7 +118,7 @@
 
 ---
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-6-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-6-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 
@@ -154,7 +157,7 @@
 ```
 
 ```
-## # A tibble: 1 x 7
+## # A tibble: 1 × 7
 ##   term  estimate std.error statistic  p.value conf.low
 ##   &lt;chr&gt;    &lt;dbl&gt;     &lt;dbl&gt;     &lt;dbl&gt;    &lt;dbl&gt;    &lt;dbl&gt;
 *## 1 qsmk      3.46     0.438      7.90 5.36e-15     2.60
@@ -213,19 +216,19 @@
 
 ## What's the distribution of weights?
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-11-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-11-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 
 ---
 
 
 
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-13-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-13-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-14-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-14-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 class: inverse, center, middle
@@ -259,7 +262,7 @@
 ```
 
 ```
-## # A tibble: 1 x 7
+## # A tibble: 1 × 7
 ##   term  estimate std.error statistic  p.value conf.low
 ##   &lt;chr&gt;    &lt;dbl&gt;     &lt;dbl&gt;     &lt;dbl&gt;    &lt;dbl&gt;    &lt;dbl&gt;
 *## 1 qsmk      3.44     0.408      8.43 7.47e-17     2.64
@@ -354,7 +357,7 @@
 ```
 
 ```
-## # A tibble: 1 x 6
+## # A tibble: 1 × 6
 ##   term  .lower .estimate .upper .alpha .method  
 ##   &lt;chr&gt;  &lt;dbl&gt;     &lt;dbl&gt;  &lt;dbl&gt;  &lt;dbl&gt; &lt;chr&gt;    
 *## 1 qsmk    2.49      3.45   4.37   0.05 student-t
@@ -364,7 +367,7 @@
 
 class: middle
 
-&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-21-1.png" style="display: block; margin: auto;" /&gt;
+&lt;img src="01-causal_modeling_whole_game_files/figure-html/unnamed-chunk-21-1.png" width="80%" style="display: block; margin: auto;" /&gt;
 
 ---
 

slides/01-causal_modeling_whole_game.html

@@ -16,3 +16,6 @@ Matrix
 survival
 survey
 tableone
+haven
+usethis
+magrittr