## Generate synthetic data.
set.seed(1986)
data <- generate_qualitative_data_soo(1000, assignment = "observational",
outcome_type = "ordered")
Y <- data$Y
D <- data$D
X <- data$X
## Estimate probabilities of shifts.
fit <- causalQual_soo(Y = Y, D = D, X = X, outcome_type = "ordered")
summary(fit)
Run the code above in your browser using DataLab