📚 Introduction to Modern Statistics - A college-level open-source textbook with a modern approach highlighting multivariable relationships and simulation-based inference. For v1, see https://openintro-ims.netlify.app.
Justification for suggestion: Column labeled "Stroke" contains figures for "No event" and vice versa - compare with table 1.2 in chapter 1. The probabilty in the preceeding para "patients who received stents may have a higher risk of stroke" ... "0.090" is only correct if the figures agree with Table 1.2 not as the data in table currently.
Chapter number: 13
Section number: 6.1
Other location identifier, if any (e.g., figure number, table number, footnote number, etc.): Table 13.1
Original text:
stent30 |> count(group, outcome) |> pivot_wider(names_from = outcome, values_from = n, values_fill = 0) |> janitor::adorn_totals(where = c("row", "col")) |> kbl(linesep = "", booktabs = TRUE, col.names = c("Group", "Stroke", "No event", "Total")) |> kable_styling(bootstrap_options = c("striped", "condensed"), latex_options = c("striped", "hold_position"), full_width = FALSE) |> column_spec(1:4, width = "7em")