# The order in which the papers of the sampling frame are judged for eligibility: the frame's
# rows shuffled with a fixed seed. The first 40 eligible papers in this order form the sample.
frame <- read.csv("data/frame.csv", colClasses = "character", encoding = "UTF-8")
stopifnot(nrow(frame) == 341, identical(frame$row, as.character(seq_len(341))))
set.seed(20261006, kind = "Mersenne-Twister", normal.kind = "Inversion", sample.kind = "Rejection")
shuffled <- sample(nrow(frame))
order <- data.frame(rank = seq_along(shuffled), row = frame$row[shuffled], doi = frame$doi[shuffled])
write.csv(order, "results/order.csv", row.names = FALSE)