if (FALSE) {
data(sample_data)
thrX <- c(X1 = 7, X2 = 7, X3 = 7)
result <- otSweep(
dat = sample_data,
outcome = "Y",
conditions = c("X1", "X2", "X3"),
sweep_range = 6:8,
thrX = thrX,
return_details = TRUE
)
# With descriptive statistics and configuration charts
generate_report(result, "my_report.md", format = "full",
dat = sample_data, include_chart = TRUE)
# Without configuration charts
generate_report(result, "my_report.md", format = "simple",
include_chart = FALSE)
# With Fiss-style term-level charts (default, recommended for publications)
generate_report(result, "my_report.md", format = "full")
# With threshold-level summary charts
generate_report(result, "my_report.md", format = "full",
chart_level = "summary")
# With detailed solution notes (including EPIs)
generate_report(result, "my_report.md", format = "full",
solution_note_style = "detailed")
}
Run the code above in your browser using DataLab