data <- matchedcc::mccxmpl
mcc(cases = data$case, controls = data$control)
# Convert data into 2x2 table
data$case_fctr <- factor(data$case, levels = c(1, 0),
labels = c("6+ cups", "0 cups"))
data$control_fctr <- factor(data$control, levels = c(1, 0),
labels = c("6+ cups", "0 cups"))
mcc(table = table(data$control_fctr, data$case_fctr))
# Alternatively, provide cell counts to `mcci()`
table <- table(data$control_fctr, data$case_fctr)
mcci(a = table[1,1],
b = table[1,2],
c = table[2,1],
d = table[2,2])
Run the code above in your browser using DataLab