# \donttest{
set.seed(123) # Makes example reproducible
# Create example data
data <- create_synthetic_data(
n_proteins = 2,
frac_change = 1,
n_replicates = 3,
n_conditions = 8,
method = "dose_response",
concentrations = c(0, 1, 10, 50, 100, 500, 1000, 5000),
additional_metadata = FALSE
)
# Perform dose response curve fit
drc_fit <- fit_drc_4p(
data = data,
sample = sample,
grouping = peptide,
response = peptide_intensity_missing,
dose = concentration,
retain_columns = c(protein)
)
str(drc_fit)
# Plot dose response curves
if (!is.null(drc_fit)) {
drc_4p_plot(
data = drc_fit,
grouping = peptide,
response = peptide_intensity_missing,
dose = concentration,
targets = c("peptide_2_1", "peptide_2_3"),
unit = "pM"
)
}
# }
Run the code above in your browser using DataLab