start qmd doc for this:

R/ch2.R

@@ -37,10 +37,6 @@ fake_news |>
         prop_excl_within_type = total_usage_of_excl / sum(total_usage_of_excl), 
         title_has_excl
     ) |> 
-    filter(type == "fake")
+    filter(title_has_excl)
 
-# P(A ^ B) = P(A|B)*P(B)
-# P(B) = .4
-# P(A|B) = .2667
-# => P(A|B)*P(B)
-.4 * .2667
+# suppose we get a new article that is titled