#' @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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.