# NOT RUN {
sim_data <- multilevelMatching::simulated_data
Y <- sim_data$outcome
W <- sim_data$treatment
X <- as.matrix(sim_data[ ,-(1:2)])
names(Y) <- paste0("ID", 1:length(Y))
trimming <- FALSE
method <- c("covariates", "polr", "multinom")[2]
fit <- multiMatch(Y,W,X,trimming=trimming,match_on=method)
print(fit)
# }
Run the code above in your browser using DataLab