plot_curves {loewesadditivity}

Plot the surface and observations

Description

Plot the surface and observations

Usage

plot_curves(
  est_list,
  dose_A = "Dose A",
  dose_B = "Dose B",
  title = "Curves of Dose Combos",
  subtitle = "",
  base_size = 14
)

Arguments

est_list

output from estimate_params

dose_A

to pass to ggplot

dose_B

to pass to ggplot

title

to pass to ggplot

subtitle

to pass to ggplot

base_size

to pass to ggplot

Value

ggplot object

Examples

df <- loewesadditivity::cyrpa_ripr
df$dose_A <- df$CyRPA
df$dose_B <- df$RIPR
data <- fortify_gia_data(df)
model_params <- c("beta_A" = .5, "beta_B" = .5,
                 "gamma_A" = .5, "gamma_B" = .5,
                 "tau_1" = 0, "tau_2" = 0)
n_boot <- 10
GIA_fn <- base_GIA
S_fn <- calc_S_base
fn_list <- NULL
alpha <- .05
verbose <- FALSE
out <- estimate_params(data = data,
init_params = model_params,
n_boot = n_boot,
GIA_fn = GIA_fn,
S_fn = S_fn,
fn_list = fn_list,
alpha = alpha,
verbose = verbose)
plots <- plot_curves(out, dose_A = "CyRPA",
dose_B = "RIPR")