## Generate synthetic data.
set.seed(1986)
data <- generate_qualitative_data_rd(100, outcome_type = "ordered")
Y <- data$Y
running_variable <- data$running_variable
cutoff <- data$cutoff
## Estimate probabilities of shift at the cutoff.
fit <- causalQual_rd(Y, running_variable, cutoff)
summary(fit)
plot(fit)
Run the code above in your browser using DataLab