Open ASKurz opened 11 months ago
Add in section 5.1.2, which has some important computations. Whether in table format or otherwise, do the computation in Table 5.3. Also, work through the rare-disease problem on pages 103--104. Here's that computation in code.
data.frame(p_pos_g_dis = 0.99, p_pos_g_nodis = 0.05) %>% mutate(p_neg_g_dis = 1.0 - p_pos_g_dis, p_neg_g_nodis = 1.0 - p_neg_g_dis, p_dis = 0.001) %>% mutate(p_nodis = 1.0 - p_dis) %>% mutate(p_dis_g_pos = (p_pos_g_dis * p_dis) / (p_pos_g_dis * p_dis + p_pos_g_nodis * p_nodis)) %>% glimpse()
Rows: 1 Columns: 7 $ p_pos_g_dis <dbl> 0.99 $ p_pos_g_nodis <dbl> 0.05 $ p_neg_g_dis <dbl> 0.01 $ p_neg_g_nodis <dbl> 0.99 $ p_dis <dbl> 0.001 $ p_nodis <dbl> 0.999 $ p_dis_g_pos <dbl> 0.01943463
Then when you do this, reference McElreath's vampire example from Chapter 3 in either of this texts.
Add in section 5.1.2, which has some important computations. Whether in table format or otherwise, do the computation in Table 5.3. Also, work through the rare-disease problem on pages 103--104. Here's that computation in code.
Then when you do this, reference McElreath's vampire example from Chapter 3 in either of this texts.