R/colPercent.R

In Jacob909/prdctr: stPrdct works with the modes of data frames to investigate their structure.

#' Return the percentage of instances of a given value.
#'
#' @param x a data frame column.
#' @param y a specificed observation.
#' @return The percentage of instances of a value. \code{y}.
#' @examples
#' colPercent(x,y)
#' @export
colPercent <- function(x,y){
  lgth <- length(x)
  count <- length(which(x == y))
  count <- as.numeric(count)
  per <- count / lgth
  per <- per * 100
  return(per)
}