R/datacheck4.R

Defines functions datacheck4

datacheck4 <- function(pos_list, k){

  for (i in 1:length(pos_list)){

    if (length(table(pos_list[i]))== k[[i]]){
      pos_list = pos_list
    }
    else{
      stop("User-declared nominal size does not match observed nominal size. Please
         check vector of target positions.")
    }
  }
}

Try the r4lineups package in your browser

Any scripts or data that you put into this service are public.

r4lineups documentation built on May 2, 2019, 7:10 a.m.