R/assign.random.R

In beanumber/compgraph: Library for Composite Graphs

#' @title assign.random
#' 
#' @description Randomly assign researchers to tasks until all tasks are complete
#' 
#' @details Randomly assign researchers to tasks until all tasks are complete
#' @author Ben Baumer
#' 
#' @param ccg a composite graph object
#' @param ... Arguments to be passed to compgraph
#' 
#' @return A ccg with all tasks complete, or FALSE
#' 
#' @export
#' @examples
#' n = 20
#' p = 1/2
#' ccg = ccg.game(n, p, n2=2)
#' is.completed(ccg)
#' ccg = assign.random(ccg)
#' is.completed(ccg)
#' Hey!
#' 

assign.random = function (ccg, ...) {
  while(!is.completed(ccg) & ecount(ccg$R) < vcount(ccg$g1) * vcount(ccg$g2)) {
    ccg = add.random.assignments(ccg, n=1)
  }
  if (!is.completed(ccg)) {
    cat("\nAll tasks could not be completed")
  }
  return(ccg)
}

assign.greedy = function (ccg, implementation = "kz", ...) {
  # Implement Greedy algorithm
  if (implementation == "kz") {
    assign.greedy.kz(ccg,...)
  } else {
    assign.greedy.mp(ccg,...)
  }
}

assign.greedy.kz = function (ccg, ...) {
  # Implement Greedy algorithm
}
assign.greedy.mp = function (ccg, ...) {
  # Implement Greedy algorithm
}