Compute Hysteresis Labeller

Gets labeller for hysteresis_loop_plot.

Usage

compute_hysteresis_labeller(
  data,
  ntime_col,
  deltaqtc_col,
  conc_col,
  dosef_col,
  group_col = NULL
)

Arguments

data

A data frame containing C-QT analysis dataset

ntime_col

An unquoted column name for Nominal time since last dose (h)

deltaqtc_col

An unquoted column name for dQTC measurements (ms)

conc_col

An unquoted column name for CONC measurements (units)

dosef_col

An unquoted column name for doses as factor

group_col

An unquoted column name for additional grouping variable.

Value

A labeller function for ggplot2 facets that appends hysteresis detection status to dose labels

Examples

data_proc <- preprocess(cqtkit_data_verapamil)
data_proc <- dplyr::mutate(data_proc, DOSEF = as.factor(DOSEF))

compute_hysteresis_labeller(
  data_proc,
  NTLD,
  deltaQTCF,
  CONC,
  DOSEF)
#> Warning: Multiple times have max CONC - first time is used
#> function (variable, dose) 
#> {
#>     return(hysteresis)
#> }
#> <bytecode: 0x637b0e2e0458>
#> <environment: 0x637b0e2e0a40>