run_ca {visae}

Shiny App for Correspondence Analysis of Adverse Events

Description

Shiny App for Correspondence Analysis of Adverse Events

Usage

run_ca(
  data,
  id,
  group,
  ae_grade = NULL,
  ae_domain = NULL,
  ae_term = NULL,
  ae_cycle = NULL
)

Arguments

data

data.frame or tibble object.

id

unquoted expression indicating the variable name in data that corresponds to the id variable.

group

unquoted expression indicating the variable name in data that corresponds to the group variable.

ae_grade

unquoted expression indicating the variable name in data that corresponds to AE grade class.

ae_domain

unquoted expression indicating the variable name in data that corresponds to AE domain class.

ae_term

unquoted expression indicating the variable name in data that corresponds to AE term class.

ae_cycle

unquoted expression indicating the variable name in data that corresponds to AE cycle.

Value

an interactive web application to perform correspondence analysis for adverse event data.

Examples

## Not run: 
library(magrittr)
library(dplyr)
patient_id <- 1:100
group <- c(rep("A", 50), rep("B", 50))
ae_grade <- sample(1:5, size = 100, replace = TRUE)
ae_domain <- sample(c("C", "D"), size = 100, replace = TRUE)
ae_term <- sample(c("E", "F", "G", "H"), size = 100, replace = TRUE)
dt <- tibble(patient_id = patient_id, trt = group,
            ae_g = ae_grade, ae_d = ae_domain, ae_t = ae_term)
dt %>% run_ca(., group = trt,
             id = patient_id,
             ae_grade = ae_g,
             ae_domain = ae_d,
             ae_term = ae_t)
             
## End(Not run)