# load example dataset
input <- read_data(data.growth = system.file("lac_promoters_growth.txt", package = "QurvE"),
data.fl = system.file("lac_promoters_fluorescence.txt", package = "QurvE"),
csvsep = "\t",
csvsep.fl = "\t")
# Define fit controls
control <- fl.control(fit.opt = 's',
x_type = 'time', norm_fl = TRUE,
dr.parameter = 'max_slope.spline',
dr.method = 'model',
suppress.messages = TRUE)
# Run curve fitting workflow
res <- flFit(fl_data = input$norm.fluorescence,
time = input$time,
parallelize = FALSE,
control = control)
# Perform dose-response analysis with biosensor model
drFitfl <- fl.drFit(flTable = res$flTable, control = control)
summary(drFitfl)
Run the code above in your browser using DataLab