# NOT RUN {
pop <- 1
samp1 <- rnorm(5000, 1)
bias1 <- bias(samp1, pop)
samp2 <- rnorm(5000, 1)
bias2 <- bias(samp2, pop)
RAB(c(bias1, bias2))
RAB(c(bias1, bias2), percent = TRUE) # as a percentage
# }
Run the code above in your browser using DataLab