R/summarize_table.R

In jiawen012/Survival-Analysis-NCT00364013: NCT00364013

#' @title summarize our data
#' @description This function takes a cleaned dataframe containing important parameters, and return the summary table
#' @param dt a cleaned data with important variables (usually you can directly use the "dl" data from this package)
#' @param age default
#' @param dthdy default
#' @param pfsdycr default
#' @return a summary table
#' @export
#' @examples summarize_table(data_cleaned)
#'
summarize_table <- function(dt, age = "age", dthdy = "dthdy", pfsdycr = "pfsdycr") {
  df <- as.data.frame(dt)
  df <- as.data.frame(lapply(df, as.factor))
  df <- transform(df, age = as.numeric(age), dthdy = as.numeric(dthdy), pfsdycr = as.numeric(pfsdycr))
  return(summary(df))
}