R/preproc_ae.R

In adepro: A 'shiny' Application for the (Audio-)Visualization of Adverse Event Profiles

#' preproc_ae - Preprocessing adverse event data
#'
#' @description
#' Preprocesses adverse event dataset
#'
#' @param ae_data adverse event dataset
#'
#' @keywords internal

preproc_ae <- function(ae_data) {
  ae_data <- ae_data[,1:5]
  denom <- 4
  ae_data$r <- (ae_data$sev + 1) / denom
  ae_data$d <- rep(NA, nrow(ae_data))
  return(ae_data)
}