# NOT RUN {
# import some data
file_location <- system.file(
"extdata",
"avian_ecology_bibliography.ris",
package = "revtools")
x <- read_bibliography(file_location)
# simple case - split evenly among 4 reviewers
result <- allocate_effort(4, quiet = TRUE)
# more complex - specify names and amount of overlap
result <- allocate_effort(
reviewers = c("john", "paul", "george", "ringo"),
proportion_checked = 0.2,
max_reviewers = 3,
quiet = TRUE
)
# most complex - specify uneven effort among reviewers (experimental)
result <- allocate_effort(
reviewers = 4,
effort = c(0.9, 0.7, 0.5, 0.3),
max_reviewers = 3,
quiet = TRUE
)
# }
Run the code above in your browser using DataLab