R/choose_pairing.R

In sams25/rcombinator_old: Tools to Simulate the Evolution of Genetic Sequences

#' Chooses two numbers randomly (with repitition possible) from a set of numbers
#' @param size Our numbers are chosen from 1 to size
#' @param samples The number of pairs to generate
#' @return A list of pairs of numbers chosen randomly
#' @export
choose_pairing <- function(size, samples = 1)
{
  rand_nums <- sample.int(size^2, samples)
  print(paste(rand_nums, size))
  return(list((rand_nums %% size) + 1, ((rand_nums-1) %/% size) + 1))
}