R/catDataFun.r

In qPharmetra/qpToolkit: qPharmetra R Tools

#' Summary: length (\%)
#' @param y a vector of values to be summarised.
#' @param digits.categorical number of digits to round to
#' @return A formatted character vector containing count and percentage of
#' unique values in \code{y}.
#' @seealso \code{\link{conDataFun1}},  \code{\link{conDataFun2}},  \code{\link{conDataFun3}},  \code{\link{tabStats}},  \code{\link{tabStats}}
#' @export
#' @examples
#' catDataFun(data.frame(Sex = rep(c("Female","Male"), times = c(40,60)))$Sex)

catDataFun = function (y, digits.categorical = 1)
{
  sprint.text = paste0("%#.",digits.categorical,"f")
  myCatSummary = round(100 * table(y)/sum(table(y)),digits = digits.categorical)
  myCat = if(digits.categorical>0) {
     myCat = paste0(table(y), " (",sprintf(sprint.text, myCatSummary), "%)")
     } else paste0(table(y), " (", myCatSummary, "%)")
  return(myCat)
}