Merge pull request #181 from dataquestio/ezemonye-fix-409-sol-20230424

Update Mission409Solutions.Rmd

Mission409Solutions.Rmd

@@ -141,7 +141,7 @@ for (n in test_amounts) {
 probability_less_6 <- function(n) {
   
     n_combinations_ticket = combinations(6, n)
-    n_combinations_remaining = combinations(49 - n, 6 - n)
+    n_combinations_remaining = combinations(43, 6 - n)
     successful_outcomes = n_combinations_ticket * n_combinations_remaining
     n_combinations_total = combinations(49, 6)