# Load sample data
data(sample_data)
# Run single condition threshold sweep on X3 (standard)
result <- ctSweepS(
dat = sample_data,
outcome = "Y",
conditions = c("X1", "X2", "X3"),
sweep_var = "X3",
sweep_range = 6:8,
thrY = 7,
thrX_default = 7
)
head(result$summary)
# Run with negated outcome (~Y)
result_neg <- ctSweepS(
dat = sample_data,
outcome = "~Y",
conditions = c("X1", "X2", "X3"),
sweep_var = "X3",
sweep_range = 6:8,
thrY = 7,
thrX_default = 7
)
head(result_neg$summary)
Run the code above in your browser using DataLab