# simulate data
test1 <- c(rep(1, 300), rep(0, 100), rep(1, 55), rep(0, 145))
gold <- c(rep(1, 400), rep(0, 200))
dat <- data.frame(test1, gold)
# summarise descriptive statistics
result <- summariseR(dat, dp = 4)
Run the code above in your browser using DataLab