library(beadplexr)
library(drc)
data(ryegrass)
ryegrass_m <-
fit_standard_curve(df = ryegrass,
.parameter = "rootl",
.concentration = "conc")
recalc_std <-
calculate_concentration(df = ryegrass,
.model = ryegrass_m,
.parameter = "rootl")
sample_data <-
calculate_concentration(df = ryegrass[sample(1:nrow(ryegrass), 5),],
.model = ryegrass_m,
.parameter = "rootl")
plot_std_curve(ryegrass,
ryegrass_m,
.parameter = "rootl",
.concentration = "conc")
plot_target_est_conc(df = recalc_std,
.concentration = "Calc.conc",
.std_concentration = "conc")
plot_estimate(
.sample_data = sample_data,
.standard_data = ryegrass,
.model = ryegrass_m,
.parameter = "rootl",
.concentration = "conc")
Run the code above in your browser using DataLab