improved equations and CROSSREFs

categorical/risks-and-odds-2/risks-and-odds-2.qmd

@@ -49,7 +49,7 @@ mydata <- data.frame(events, x_happens, risk, odds)
 
 Let's think about risk: 
 
-$$\text{risk} = P(\text{event}) = \frac{\text{number of events that happened}}{\text{number of events that happened} + \text{number of events that didn't happen}}$$
+$$\text{risk} = P(\text{event happened}) = \frac{\text{number of events}}{\text{number of events} + \text{number of non-events}}$$
 
 # Odds
 
@@ -103,8 +103,7 @@ p1 <- plot_ly(hk,
                           " = ", 
                           odds),
             hoverinfo = 'text') %>%
-  layout(title = "Risks and Odds",
-         xaxis = list(title='How many times does X happen?',
+  layout(xaxis = list(title='How many times does X happen?',
                       showspikes = TRUE),
          yaxis = list(title='Risk or Odds',
                       showspikes = TRUE),
@@ -114,7 +113,6 @@ t1 <- DT::datatable(hk,
                     class="compact",
                     width = "70%",
                     rownames = FALSE,
-                    caption = 'Risks and Odds',
                     colnames = c('Total Events', 
                                  'How Many Times Does X Happen?', 
                                  'Risk', 
@@ -139,6 +137,8 @@ t1 <- DT::datatable(hk,
 ## Table
 
 ```{r}
+#| label: tbl-risks-odds
+#| tbl-cap: "Table of Risks and Odds"
 #| message: false
 #| echo: false
 
@@ -149,6 +149,8 @@ t1
 ## Visualization
 
 ```{r}
+#| label: fig-risks-odds
+#| fig-cap: "Visualization of Risks and Odds"
 #| message: false
 #| echo: false