R/utils.R

In wulingyun/BlockSim: Blockchain simulation and research tools

#' Find the complementary set
#' 
#' 
#' @param n The size of complete set
#' @param v The vector containing a subset of 1:n
#' 
#' @return This function will return the complementary set of a given subset.
#' 
#' @export
complement <- function(n, v)
{
  x <- rep_len(TRUE, n)
  x[v] <- FALSE
  which(x)
}