if (FALSE) {
data(sample_data)
result <- otSweep(
dat = sample_data,
outcome = "Y",
conditions = c("X1", "X2", "X3"),
sweep_range = 6:8,
thrX = c(X1 = 7, X2 = 7, X3 = 7)
)
# Solution-term level, Fiss-style (default)
chart <- generate_cross_threshold_chart(result, c("X1", "X2", "X3"))
cat(chart)
# Threshold-level summary
chart <- generate_cross_threshold_chart(result, c("X1", "X2", "X3"),
chart_level = "summary")
cat(chart)
}
Run the code above in your browser using DataLab