tests/testhat/test-fake_team.R

# test_div

library(div)
d <- div_fake_team(seed=2003, N = 550)
p <- div_paygap(d)

t <- tibble(Grade = p$grade, JobID = p$jobID, PayGap = round(p$paygap, 2), Confidence = p$confidence)
knitr::kable(t)

Try the div package in your browser

Any scripts or data that you put into this service are public.

div documentation built on May 6, 2021, 9:06 a.m.