R/get.tbl.full.R

Defines functions get.tbl.full

get.tbl.full <- function(x, NN, ss){
  tbl <- table(x)
  if(length(tbl) == NN) return(tbl)
  res <- rep(0, NN)
  names(res) <- ss
  res[names(tbl)] <- tbl
  return(res)
}

Try the DiscreteQvalue package in your browser

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

DiscreteQvalue documentation built on April 2, 2020, 1:06 a.m.