estpab/R/estpab.r

estpab <- function(vec) {
  vec <- round(vec)
  m <- length(vec)

  freq <- as.data.frame(table(vec))
  freq[,2] <- freq[,2]/m
  return(freq)

}
abx56/mrmr documentation built on May 30, 2019, 7:19 a.m.