# NOT RUN {
## We compare the use of lung<U+2019>s X-rays on the screening of TB against the gold standard test.
Freq <- c(1739, 8, 51, 22)
BCG <- gl(2, 1, 4, labels=c("Negative", "Positive"))
Xray <- gl(2, 2, labels=c("Negative", "Positive"))
tb <- data.frame(Freq, BCG, Xray)
tb <- expand_df(tb)
tb %>%
diag_test(BCG ~ Xray)
# }
Run the code above in your browser using DataLab