class: middle, left, title-slide # mverse ## An R library for Teaching and Conducting
Multiverse Analysis ### Michael Jongho Moon ### PhD Student, DoSS, University of Toronto ### SSC 2021 Annual Meeting, June 7, 2021 --- .nav-left[# Collaborators] .main-right[ .third[ ## .accent2[`mverse` Education Development] .accent2[ Alison Gibbs, PhD Nathan Taback, PhD Fanny Chevalier, PhD University of Toronto] ] .third[ ## .accent3[`mverse` Package Development] .accent3[ Mingwei Xu Haoda Li University of Toronto] ] .third.accent1[ ## .accent1[`multiverse` Package Development] .accent1[ Abhraneel Sarma Matthew Kay, PhD Northwestern University] ]] --- layout:true # Example: Hurricane Names and Gender-based Expectations --- .nav-right[ ### Do people underestimate the severity of a hurricane when it's named with a female name? ] .main-right[.half[ <img src="moon_files/figure-html/unnamed-chunk-2-1.png" width="90%" style="display: block; margin: auto;" /> ] .half[ <img src="moon_files/figure-html/unnamed-chunk-3-1.png" width="90%" style="display: block; margin: auto;" /> ]] .footnote[ Original data (n=94) retrieved from Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 ] --- .nav-right[ ### Do people underestimate the severity of a hurricane when it's named with a female name? .selected[Did hurricanes with *feminine* names lead to __more fatalities given equal strength__ because their names didn't motivate as much preparedness as hurricanes with *masculine* names?] ] .main-right[.half[ <img src="moon_files/figure-html/unnamed-chunk-4-1.png" width="90%" style="display: block; margin: auto;" /> ] .half[ <img src="moon_files/figure-html/unnamed-chunk-5-1.png" width="90%" style="display: block; margin: auto;" /> ]] .footnote[ Original data (n=94) retrieved from Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 ] --- .nav-right[ ### Do people underestimate the severity of a hurricane when it's named with a female name? Consider a data set with the following information: .small[ + Femininity rating on hurricane names (1:very masculine; 11: very feminine) + Total damage dollar amount normalized to 2013 USD + Total fatality counts + Maximum wind speed + Minimum pressure + Year ] ] .main-right[.half[ <img src="moon_files/figure-html/unnamed-chunk-6-1.png" width="90%" style="display: block; margin: auto;" /> ] .half[ <img src="moon_files/figure-html/unnamed-chunk-7-1.png" width="90%" style="display: block; margin: auto;" /> ]] .footnote[ Original data (n=94) retrieved from Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 ] --- .nav-right[ Should we remove _Katrina_ or _Katrina_ and _Audrey_ from data based on the distribution of fatalities? ] .footnote[ Original data (n=94) retrieved from Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 ] .main-right[ <img src="moon_files/figure-html/unnamed-chunk-9-1.png" width="90%" style="display: block; margin: auto;" /> ] --- .half[ ### Michael <b>1.</b> Remove _Katrina_ and _Audrey_. ] .half[ ### Mary <b>1.</b> Remove _Katrina_ only. ] <hr/> <b>2.</b> Fit a regression model with _Femininity_, _Damage_, and their interaction. `$$\text{Fatalities}_i\sim \text{Pois}\left(\mu_i\right)$$` `$$\log\left(\mu_i\right) = \beta_0 + \beta_1\text{Damage}_i + \beta_2\text{Femininity}_i + \beta_3\text{Damage}_i\times\text{Femininity}_i$$` <hr/> <b>3.</b> Make an inference based on the interaction effect `\(\beta_3\)`. --- .nav-right[ **Michael**: stronger hurricanes with a feminine name are under estimated ] .main-right[ <img src="moon_files/figure-html/unnamed-chunk-11-1.png" width="80%" style="display: block; margin: auto;" /> ] --- .nav-right[ **Michael**: stronger hurricanes with a feminine name are under estimated **Mary**: there is no evidence of gender-based expectations for hurricanes ] .main-right[ <img src="moon_files/figure-html/unnamed-chunk-12-1.png" width="80%" style="display: block; margin: auto;" /> ] --- .nav-right[ **Michael**: stronger hurricanes with a feminine name are under estimated **Mary**: there is no evidence of gender-based expectations for hurricanes # .selected[_Which result should they report?_] ] .main-right[ <img src="moon_files/figure-html/unnamed-chunk-13-1.png" width="80%" style="display: block; margin: auto;" /> ] --- layout:false .nav-left[ # Multiverse Analysis (Steegen et al. 2016)<sup>1</sup> + Performing and communicating all alternative analyses based on reasonable alternative paths + Improves **transparency** and **robustness** of the reported findings ] .footnote[ 1. Steegen, S., Tuerlinckx, F., Gelman, A., and Vanpaemel, W. (2016) _Increasing transparency through a multiverse analysis._ Perspectives on Psychological Science, 11(5), 702-712, https://doi.org/10.1177/1745691616658637 ] -- ## Example: A Multiverse of Hurricane Name Analaysis <table> <thead> <tr> <th style="text-align:left;"> </th> </tr> </thead> <tbody> <tr grouplength="3"><td colspan="1" style="border-bottom: 1px solid;"><strong>Which hurricanes should we analyse?</strong></td></tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Exclude 2 outliers with most fatalities </td> </tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Exclude 1 outlier with most fatalities </td> </tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Exclude 2 outliers with most fatalities, 2 with greatest damages </td> </tr> <tr grouplength="3"><td colspan="1" style="border-bottom: 1px solid;"><strong>Which variable to use to capture hurricane strengths?</strong></td></tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Normalized damage amount </td> </tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Maximum wind speed </td> </tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Minimum pressure </td> </tr> <tr grouplength="2"><td colspan="1" style="border-bottom: 1px solid;"><strong>Which effect should the inference be based on?</strong></td></tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Femininity x hurricane strength interaction </td> </tr> <tr> <td style="text-align:left;padding-left: 2em;" indentlevel="1"> > Femininity main effect </td> </tr> </tbody> </table> --- .nav-left[ # Multiverse Analysis (Steegen et al. 2016)<sup>1</sup> + Performing and communicating all alternative analyses based on reasonable alternative paths + Improves **transparency** and **robustness** of the reported findings ] <img src="moon_files/figure-html/unnamed-chunk-15-1.png" width="45%" /> .footnote[ 1. Steegen, S., Tuerlinckx, F., Gelman, A., and Vanpaemel, W. (2016) _Increasing transparency through a multiverse analysis._ Perspectives on Psychological Science, 11(5), 702-712, https://doi.org/10.1177/1745691616658637 ] --- .nav-left[ # Multiverse Analysis (Steegen et al. 2016)<sup>1</sup> + Performing and communicating all alternative analyses based on reasonable alternative paths + Improves **transparency** and **robustness** of the reported findings ] .nav-right[ + Jung et al. (2014)<sup>2</sup> reported a statistically significant result + Simonsohn et al. (2020)<sup>3</sup> considered 1,728 reasonable paths with the same data set ] <img src="moon_files/figure-html/unnamed-chunk-16-1.png" width="45%" /> .footnote[ 1. Steegen, S., Tuerlinckx, F., Gelman, A., and Vanpaemel, W. (2016) _Increasing transparency through a multiverse analysis._ Perspectives on Psychological Science, 11(5), 702-712, https://doi.org/10.1177/1745691616658637 2. Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 3. Simonsohn, U., Simmons, J.P., and Nelson, L.D. (2020) _Specification curve analysis._ Nature Human Behavior, 4 1208-1214, https://doi.org/10.1038/s41562-020-0912-z ] --- .nav-left[ # Multiverse Analysis (Steegen et al. 2016)<sup>1</sup> + Performing and communicating all alternative analyses based on reasonable alternative paths + Improves **transparency** and **robustness** of the reported findings ] .nav-right[ + Jung et al. (2014)<sup>2</sup> reported a statistically significant result + Simonsohn et al. (2020)<sup>3</sup> considered 1,728 reasonable paths with the same data set # _Multiverse analysis can get very complex and difficult to manage._ ] <img src="moon_files/figure-html/unnamed-chunk-17-1.png" width="45%" /> .footnote[ 1. Steegen, S., Tuerlinckx, F., Gelman, A., and Vanpaemel, W. (2016) _Increasing transparency through a multiverse analysis._ Perspectives on Psychological Science, 11(5), 702-712, https://doi.org/10.1177/1745691616658637 2. Jung, K., Shavitt, S., Viswanathan, M., and Hilbe, J.M. (2014) _Female hurricanes are deadlier than male hurricanes._ Proceedings of the National Academy of Sciences, 111(24), 8782-8787, https://doi.org/10.1073/pnas.1402786111 3. Simonsohn, U., Simmons, J.P., and Nelson, L.D. (2020) _Specification curve analysis._ Nature Human Behavior, 4 1208-1214, https://doi.org/10.1038/s41562-020-0912-z ] --- layout:false class:middle # .selected[`mverse` aims to help students and analysts create, explore, and examine multiverse with ease] .third[ ## .hidden[Systematic Syntax] ] .third[ ## .hidden[Familiar Syntax] ] .third[ ## .hidden[Interactive Learning Modules] ] --- class:middle # .block[`mverse` aims to help students and analysts create, explore, and examine multiverse with ease] .third[ ## .accent1[Systematic Syntax] ] .third[ ## .accent3[Familiar Syntax] ] .third[ ## .accent2[Interactive Learning Modules] ] --- .nav-left[ # .accent1[Systematic Syntax] ## Without `mverse` + Redundant codes + Prone to errors ] .main-right.half[ ```r # universe 1 (Michael) & 2 data_1 <- hdata %>% filter(! name %in% c("Katrina", "Audrey")) fit_1 <- glm( deaths ~ damage * femininity, data = data_1, family = "poisson") # extract interaction est_1 <- summary(fit_1)$coef[4,] # extract main effect est_2 <- summary(fit_1)$coef[3,] # universe 3 & 4 fit_2 <- glm( deaths ~ max_wind_speed * femininity, data = data_1, family = "poisson") # extract interaction est_3 <- summary(fit_2)$coef[4,] # extract main effect est_4 <- summary(fit_2)$coef[3,] # universe 5 & 6 fit_3 <- glm( deaths ~ min_pressure * femininity, data = data_1, family = "poisson") # extract interaction est_5 <- summary(fit_3)$coef[4,] # extract main effect est_6 <- summary(fit_3)$coef[3,] # universe 7 (Mary) & 8 data_2 <- hdata %>% filter(! name %in% c("Katrina")) fit_4 <- glm( deaths ~ damage * femininity, data = data_2, family = "poisson") # extract interaction est_7 <- summary(fit_4)$coef[4,] # extract main effect est_8 <- summary(fit_4)$coef[3,] # universe 9 & 10 fit_5 <- glm( deaths ~ max_wind_speed * femininity, data = data_2, family = "poisson") # extract interaction est_9 <- summary(fit_5)$coef[4,] # extract main effect est_10 <- summary(fit_5)$coef[3,] # universe 11 & 12 fit_6 <- glm( deaths ~ min_pressure * femininity, data = data_2, family = "poisson") # extract interaction est_11 <- summary(fit_6)$coef[4,] # extract main effect est_12 <- summary(fit_6)$coef[3,] # universe 13 & 14 data_3 <- hdata %>% filter(! name %in% c("Katrina", "Audrey", "Andrew")) fit_7 <- glm( deaths ~ damage * femininity, data = data_3, family = "poisson") # extract interaction est_13 <- summary(fit_7)$coef[4,] # extract main effect est_14 <- summary(fit_7)$coef[3,] # universe 15 & 16 fit_8 <- glm( deaths ~ max_wind_speed * femininity, data = data_3, family = "poisson") # extract interaction est_15 <- summary(fit_8)$coef[4,] # extract main effect est_16 <- summary(fit_8)$coef[3,] # universe 17 & 18 fit_9 <- glm( deaths ~ min_pressure * femininity, data = data_3, family = "poisson") # extract interaction est_17 <- summary(fit_9)$coef[4,] # extract main effect est_18 <- summary(fit_9)$coef[3,] ``` ] --- .nav-left[ # Systematic Syntax ## With `mverse` .accent1[ + **Avoids redundant codes** + **Less prone to errors** + **Easier to reproduce** ]] .main-right.half[ ```r library(mverse) # create decision points, or branches hurricane_outliers <- filter_branch( ! name %in% c("Katrina", "Audrey"), ! name %in% c("Katrina"), ! name %in% c("Katrina", "Audrey", "Andrew") ) hurricane_strength <- mutate_branch( damage, max_wind_speed, min_pressure ) model <- formula_branch( deaths ~ hurricane_strength * femininity ) distribution <- family_branch( poisson ) # create a mverse object add branches mv <- create_multiverse(hdata) %>% add_filter_branch(hurricane_outliers) %>% add_mutate_branch(hurricane_strength) %>% add_formula_branch(model) %>% add_family_branch(distribution) %>% glm_mverse() # fit a glm model ``` ] --- .nav-left[ # .accent3[Familiar Syntax] ] .main-right.half[ ```r library(mverse) # create decision points, or branches hurricane_outliers <- filter_branch( ! name %in% c("Katrina", "Audrey"), ! name %in% c("Katrina"), ! name %in% c("Katrina", "Audrey", "Andrew") ) hurricane_strength <- mutate_branch( damage, max_wind_speed, min_pressure ) model <- formula_branch( deaths ~ hurricane_strength * femininity ) distribution <- family_branch( poisson ) # create a mverse object add branches mv <- create_multiverse(hdata) %>% add_filter_branch(hurricane_outliers) %>% add_mutate_branch(hurricane_strength) %>% add_formula_branch(model) %>% add_family_branch(distribution) %>% glm_mverse() # fit a glm model ``` ] --- .nav-left[ # Familiar Syntax + .accent3[**Familiar verbs from `dplyr`**] ] .main-right.half[ ```r library(mverse) # create decision points, or branches *hurricane_outliers <- filter_branch( ! name %in% c("Katrina", "Audrey"), ! name %in% c("Katrina"), ! name %in% c("Katrina", "Audrey", "Andrew") ) *hurricane_strength <- mutate_branch( damage, max_wind_speed, min_pressure ) model <- formula_branch( deaths ~ hurricane_strength * femininity ) distribution <- family_branch( poisson ) # create a mverse object add branches mv <- create_multiverse(hdata) %>% * add_filter_branch(hurricane_outliers) %>% * add_mutate_branch(hurricane_strength) %>% add_formula_branch(model) %>% add_family_branch(distribution) %>% glm_mverse() # fit a glm model ``` ] --- .nav-left[ # Familiar Syntax + Familiar verbs from `dplyr` + .accent3[**Familiar syntax from base R**] ] .main-right.half[ ```r library(mverse) # create decision points, or branches hurricane_outliers <- filter_branch( ! name %in% c("Katrina", "Audrey"), ! name %in% c("Katrina"), ! name %in% c("Katrina", "Audrey", "Andrew") ) hurricane_strength <- mutate_branch( damage, max_wind_speed, min_pressure ) *model <- formula_branch( deaths ~ hurricane_strength * femininity ) *distribution <- family_branch( poisson ) # create a mverse object add branches mv <- create_multiverse(hdata) %>% add_filter_branch(hurricane_outliers) %>% add_mutate_branch(hurricane_strength) %>% * add_formula_branch(model) %>% * add_family_branch(distribution) %>% * glm_mverse() # fit a glm model ``` ] --- .nav-left[ # Familiar Syntax + Familiar verbs from `dplyr` + Familiar syntax from base R + .accent3[**Familiar `tibble` format for summary of results**] ] .main-right[ ```r summary(mv, conf.int = TRUE) ``` ] .tiny.two-third[ <table> <thead> <tr> <th style="text-align:left;"> universe </th> <th style="text-align:left;"> hurricane_outliers_branch </th> <th style="text-align:left;"> hurricane_strength_branch </th> <th style="text-align:left;"> model_branch </th> <th style="text-align:left;"> distribution_branch </th> <th style="text-align:left;"> term </th> <th style="text-align:right;"> estimate </th> <th style="text-align:right;"> std.error </th> <th style="text-align:right;"> statistic </th> <th style="text-align:right;"> p.value </th> <th style="text-align:right;"> conf.low </th> <th style="text-align:right;"> conf.high </th> </tr> </thead> <tbody> <tr> <td style="text-align:left;"> 1 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 1.9884144 </td> <td style="text-align:right;"> 0.0891920 </td> <td style="text-align:right;"> 22.2936508 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 1.8107640 </td> <td style="text-align:right;"> 2.1604762 </td> </tr> <tr> <td style="text-align:left;"> 1 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0000247 </td> <td style="text-align:right;"> 0.0000018 </td> <td style="text-align:right;"> 13.4519939 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0000210 </td> <td style="text-align:right;"> 0.0000282 </td> </tr> <tr> <td style="text-align:left;"> 1 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0600460 </td> <td style="text-align:right;"> 0.0120783 </td> <td style="text-align:right;"> 4.9714031 </td> <td style="text-align:right;"> 0.0000007 </td> <td style="text-align:right;"> 0.0365670 </td> <td style="text-align:right;"> 0.0839252 </td> </tr> <tr> <td style="text-align:left;"> 1 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000013 </td> <td style="text-align:right;"> 0.0000002 </td> <td style="text-align:right;"> 5.1024030 </td> <td style="text-align:right;"> 0.0000003 </td> <td style="text-align:right;"> 0.0000008 </td> <td style="text-align:right;"> 0.0000018 </td> </tr> <tr> <td style="text-align:left;"> 2 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 0.1989589 </td> <td style="text-align:right;"> 0.2990734 </td> <td style="text-align:right;"> 0.6652510 </td> <td style="text-align:right;"> 0.5058899 </td> <td style="text-align:right;"> -0.3982808 </td> <td style="text-align:right;"> 0.7744193 </td> </tr> <tr> <td style="text-align:left;"> 2 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0167056 </td> <td style="text-align:right;"> 0.0020336 </td> <td style="text-align:right;"> 8.2149627 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0127587 </td> <td style="text-align:right;"> 0.0207327 </td> </tr> <tr> <td style="text-align:left;"> 2 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1507707 </td> <td style="text-align:right;"> 0.0407427 </td> <td style="text-align:right;"> 3.7005627 </td> <td style="text-align:right;"> 0.0002151 </td> <td style="text-align:right;"> 0.0717400 </td> <td style="text-align:right;"> 0.2314930 </td> </tr> <tr> <td style="text-align:left;"> 2 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0004315 </td> <td style="text-align:right;"> 0.0002808 </td> <td style="text-align:right;"> -1.5366849 </td> <td style="text-align:right;"> 0.1243705 </td> <td style="text-align:right;"> -0.0009850 </td> <td style="text-align:right;"> 0.0001158 </td> </tr> <tr> <td style="text-align:left;"> 3 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 38.9321032 </td> <td style="text-align:right;"> 3.2299037 </td> <td style="text-align:right;"> 12.0536420 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 32.6214372 </td> <td style="text-align:right;"> 45.2833293 </td> </tr> <tr> <td style="text-align:left;"> 3 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> -0.0379788 </td> <td style="text-align:right;"> 0.0033967 </td> <td style="text-align:right;"> -11.1811204 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> -0.0446637 </td> <td style="text-align:right;"> -0.0313480 </td> </tr> <tr> <td style="text-align:left;"> 3 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> -0.0050435 </td> <td style="text-align:right;"> 0.4172968 </td> <td style="text-align:right;"> -0.0120861 </td> <td style="text-align:right;"> 0.9903569 </td> <td style="text-align:right;"> -0.8251576 </td> <td style="text-align:right;"> 0.8106300 </td> </tr> <tr> <td style="text-align:left;"> 3 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000784 </td> <td style="text-align:right;"> 0.0004393 </td> <td style="text-align:right;"> 0.1785223 </td> <td style="text-align:right;"> 0.8583128 </td> <td style="text-align:right;"> -0.0007797 </td> <td style="text-align:right;"> 0.0009422 </td> </tr> <tr> <td style="text-align:left;"> 4 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 1.7885802 </td> <td style="text-align:right;"> 0.0881802 </td> <td style="text-align:right;"> 20.2832459 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 1.6130194 </td> <td style="text-align:right;"> 1.9587549 </td> </tr> <tr> <td style="text-align:left;"> 4 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0000274 </td> <td style="text-align:right;"> 0.0000018 </td> <td style="text-align:right;"> 15.0038935 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0000238 </td> <td style="text-align:right;"> 0.0000309 </td> </tr> <tr> <td style="text-align:left;"> 4 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1343933 </td> <td style="text-align:right;"> 0.0114175 </td> <td style="text-align:right;"> 11.7708422 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.1122341 </td> <td style="text-align:right;"> 0.1570002 </td> </tr> <tr> <td style="text-align:left;"> 4 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000002 </td> <td style="text-align:right;"> 0.0000002 </td> <td style="text-align:right;"> 0.8419658 </td> <td style="text-align:right;"> 0.3998071 </td> <td style="text-align:right;"> -0.0000003 </td> <td style="text-align:right;"> 0.0000007 </td> </tr> <tr> <td style="text-align:left;"> 5 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> -0.1047381 </td> <td style="text-align:right;"> 0.2998062 </td> <td style="text-align:right;"> -0.3493528 </td> <td style="text-align:right;"> 0.7268245 </td> <td style="text-align:right;"> -0.7031500 </td> <td style="text-align:right;"> 0.4723630 </td> </tr> <tr> <td style="text-align:left;"> 5 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0181189 </td> <td style="text-align:right;"> 0.0020393 </td> <td style="text-align:right;"> 8.8849057 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0141598 </td> <td style="text-align:right;"> 0.0221560 </td> </tr> <tr> <td style="text-align:left;"> 5 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.2536985 </td> <td style="text-align:right;"> 0.0394238 </td> <td style="text-align:right;"> 6.4351595 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.1773243 </td> <td style="text-align:right;"> 0.3318985 </td> </tr> <tr> <td style="text-align:left;"> 5 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0008882 </td> <td style="text-align:right;"> 0.0002719 </td> <td style="text-align:right;"> -3.2664037 </td> <td style="text-align:right;"> 0.0010892 </td> <td style="text-align:right;"> -0.0014245 </td> <td style="text-align:right;"> -0.0003585 </td> </tr> <tr> <td style="text-align:left;"> 6 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 39.9845636 </td> <td style="text-align:right;"> 3.2282569 </td> <td style="text-align:right;"> 12.3858059 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 33.6760893 </td> <td style="text-align:right;"> 46.3313324 </td> </tr> <tr> <td style="text-align:left;"> 6 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> -0.0391736 </td> <td style="text-align:right;"> 0.0033956 </td> <td style="text-align:right;"> -11.5365270 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> -0.0458551 </td> <td style="text-align:right;"> -0.0325438 </td> </tr> <tr> <td style="text-align:left;"> 6 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0574506 </td> <td style="text-align:right;"> 0.4075397 </td> <td style="text-align:right;"> 0.1409695 </td> <td style="text-align:right;"> 0.8878941 </td> <td style="text-align:right;"> -0.7433945 </td> <td style="text-align:right;"> 0.8541447 </td> </tr> <tr> <td style="text-align:left;"> 6 </td> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000509 </td> <td style="text-align:right;"> 0.0004291 </td> <td style="text-align:right;"> 0.1185733 </td> <td style="text-align:right;"> 0.9056134 </td> <td style="text-align:right;"> -0.0007874 </td> <td style="text-align:right;"> 0.0008945 </td> </tr> <tr> <td style="text-align:left;"> 7 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 1.5879149 </td> <td style="text-align:right;"> 0.1078222 </td> <td style="text-align:right;"> 14.7271657 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 1.3724943 </td> <td style="text-align:right;"> 1.7952806 </td> </tr> <tr> <td style="text-align:left;"> 7 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0000566 </td> <td style="text-align:right;"> 0.0000040 </td> <td style="text-align:right;"> 14.0779884 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0000487 </td> <td style="text-align:right;"> 0.0000644 </td> </tr> <tr> <td style="text-align:left;"> 7 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1074892 </td> <td style="text-align:right;"> 0.0140151 </td> <td style="text-align:right;"> 7.6695072 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0803540 </td> <td style="text-align:right;"> 0.1353099 </td> </tr> <tr> <td style="text-align:left;"> 7 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0000025 </td> <td style="text-align:right;"> 0.0000005 </td> <td style="text-align:right;"> -5.0864440 </td> <td style="text-align:right;"> 0.0000004 </td> <td style="text-align:right;"> -0.0000035 </td> <td style="text-align:right;"> -0.0000015 </td> </tr> <tr> <td style="text-align:left;"> 8 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 0.6709427 </td> <td style="text-align:right;"> 0.3040863 </td> <td style="text-align:right;"> 2.2064216 </td> <td style="text-align:right;"> 0.0273545 </td> <td style="text-align:right;"> 0.0639823 </td> <td style="text-align:right;"> 1.2563804 </td> </tr> <tr> <td style="text-align:left;"> 8 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> 0.0123435 </td> <td style="text-align:right;"> 0.0021425 </td> <td style="text-align:right;"> 5.7613092 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 0.0081768 </td> <td style="text-align:right;"> 0.0165781 </td> </tr> <tr> <td style="text-align:left;"> 8 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0948398 </td> <td style="text-align:right;"> 0.0412383 </td> <td style="text-align:right;"> 2.2997985 </td> <td style="text-align:right;"> 0.0214596 </td> <td style="text-align:right;"> 0.0148483 </td> <td style="text-align:right;"> 0.1765464 </td> </tr> <tr> <td style="text-align:left;"> 8 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000859 </td> <td style="text-align:right;"> 0.0002916 </td> <td style="text-align:right;"> 0.2946710 </td> <td style="text-align:right;"> 0.7682452 </td> <td style="text-align:right;"> -0.0004885 </td> <td style="text-align:right;"> 0.0006547 </td> </tr> <tr> <td style="text-align:left;"> 9 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 36.2911227 </td> <td style="text-align:right;"> 4.1434720 </td> <td style="text-align:right;"> 8.7586263 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> 28.2592355 </td> <td style="text-align:right;"> 44.5065214 </td> </tr> <tr> <td style="text-align:left;"> 9 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength </td> <td style="text-align:right;"> -0.0352378 </td> <td style="text-align:right;"> 0.0043331 </td> <td style="text-align:right;"> -8.1322617 </td> <td style="text-align:right;"> 0.0000000 </td> <td style="text-align:right;"> -0.0438358 </td> <td style="text-align:right;"> -0.0268450 </td> </tr> <tr> <td style="text-align:left;"> 9 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.3010172 </td> <td style="text-align:right;"> 0.5142585 </td> <td style="text-align:right;"> 0.5853423 </td> <td style="text-align:right;"> 0.5583176 </td> <td style="text-align:right;"> -0.7169578 </td> <td style="text-align:right;"> 1.2993413 </td> </tr> <tr> <td style="text-align:left;"> 9 </td> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> deaths ~ hurricane_strength * femininity </td> <td style="text-align:left;"> poisson </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0002393 </td> <td style="text-align:right;"> 0.0005385 </td> <td style="text-align:right;"> -0.4442520 </td> <td style="text-align:right;"> 0.6568604 </td> <td style="text-align:right;"> -0.0012841 </td> <td style="text-align:right;"> 0.0008274 </td> </tr> </tbody> </table> ] --- .nav-left[ # Familiar Syntax + Familiar verbs from `dplyr` + Familiar syntax from base R + .accent3[**Familiar `tibble` format for summary of results**] ] .main-right[ ```r summary(mv, conf.int = TRUE) %>% filter(term %in% c("hurricane_strength:femininity", "femininity")) %>% select(hurricane_outliers_branch, hurricane_strength_branch, term, estimate, conf.low, conf.high) ``` ] .tiny.two-third[ <table> <thead> <tr> <th style="text-align:left;"> hurricane_outliers_branch </th> <th style="text-align:left;"> hurricane_strength_branch </th> <th style="text-align:left;"> term </th> <th style="text-align:right;"> estimate </th> <th style="text-align:right;"> conf.low </th> <th style="text-align:right;"> conf.high </th> </tr> </thead> <tbody> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0600460 </td> <td style="text-align:right;"> 0.0365670 </td> <td style="text-align:right;"> 0.0839252 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000013 </td> <td style="text-align:right;"> 0.0000008 </td> <td style="text-align:right;"> 0.0000018 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1507707 </td> <td style="text-align:right;"> 0.0717400 </td> <td style="text-align:right;"> 0.2314930 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0004315 </td> <td style="text-align:right;"> -0.0009850 </td> <td style="text-align:right;"> 0.0001158 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> -0.0050435 </td> <td style="text-align:right;"> -0.8251576 </td> <td style="text-align:right;"> 0.8106300 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000784 </td> <td style="text-align:right;"> -0.0007797 </td> <td style="text-align:right;"> 0.0009422 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1343933 </td> <td style="text-align:right;"> 0.1122341 </td> <td style="text-align:right;"> 0.1570002 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000002 </td> <td style="text-align:right;"> -0.0000003 </td> <td style="text-align:right;"> 0.0000007 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.2536985 </td> <td style="text-align:right;"> 0.1773243 </td> <td style="text-align:right;"> 0.3318985 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0008882 </td> <td style="text-align:right;"> -0.0014245 </td> <td style="text-align:right;"> -0.0003585 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0574506 </td> <td style="text-align:right;"> -0.7433945 </td> <td style="text-align:right;"> 0.8541447 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000509 </td> <td style="text-align:right;"> -0.0007874 </td> <td style="text-align:right;"> 0.0008945 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.1074892 </td> <td style="text-align:right;"> 0.0803540 </td> <td style="text-align:right;"> 0.1353099 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> damage </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0000025 </td> <td style="text-align:right;"> -0.0000035 </td> <td style="text-align:right;"> -0.0000015 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.0948398 </td> <td style="text-align:right;"> 0.0148483 </td> <td style="text-align:right;"> 0.1765464 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> max_wind_speed </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> 0.0000859 </td> <td style="text-align:right;"> -0.0004885 </td> <td style="text-align:right;"> 0.0006547 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> femininity </td> <td style="text-align:right;"> 0.3010172 </td> <td style="text-align:right;"> -0.7169578 </td> <td style="text-align:right;"> 1.2993413 </td> </tr> <tr> <td style="text-align:left;"> !name %in% c("Katrina", "Audrey", "Andrew") </td> <td style="text-align:left;"> min_pressure </td> <td style="text-align:left;"> hurricane_strength:femininity </td> <td style="text-align:right;"> -0.0002393 </td> <td style="text-align:right;"> -0.0012841 </td> <td style="text-align:right;"> 0.0008274 </td> </tr> </tbody> </table> ] --- .nav-left[ # Familiar Syntax + Familiar verbs from `dplyr` + Familiar syntax from base R + .accent3[**Familiar `tibble` format for summary of results**] ] .main-right[ <img src="moon_files/figure-html/unnamed-chunk-27-1.png" width="100%" /> ] --- layout:false class: dark, full .nav-left[ # .accent2[Interactive Learning Modules] + Interactive modules to guide mutliverse analysis education + They do not require knowledge of coding in R _The demo is a prototype and development is in progress_ ] .main-right[ <iframe src="https://micbon.shinyapps.io/mverse-ssc21-demo/" title="Interactive Presentation" style="border:none;width:90%;height:100%;"></iframe> ] --- class:middle .block[ .third[ ## .accent1[Systematic Syntax] ] .third[ ## .accent3[Familiar Syntax] ] .third[ ## .accent2[Interactive Learning Modules] ] ] # .selected[`mverse` can be used to introduce the idea of _multiverse_ to students at any level of their study] --- layout:false .nav-left[ # .selected[Development] ] .main-right[ .timeline[ .item[ ### In Development Interactive learning modules are being developed Visualizations for exploring and reporting multiverse analysis are also in development ] .item[ ### GitHub `remote::install_github('mverseanalysis/mverse')` for the latest stable version Currently supports multiverse analysis with `t.test`, `lm`, and `glm` ] .item[ ### CRAN Plan to submit the first version in summer 2021 (no interactive learning modules) ]]] --- class: full, middle, center # Thank you ## .selected[ michael jongho moon June 7, 2021 ]