# \donttest{
# Load example dataset
input <- read_data(data.fl = system.file('lac_promoters_fluorescence.txt', package = 'QurvE'),
csvsep.fl = "\t")
# Run fluorescence curve analysis workflow
fitres <- flFit(fl_data = input$fluorescence,
time = input$time,
parallelize = FALSE,
control = fl.control(x_type = 'time', norm_fl = FALSE,
suppress.messages = TRUE))
# Perform dose-response analysis
drFit <- fl.drFit(flTable = fitres$flTable,
control = fl.control(dr.method = 'model',
dr.parameter = 'max_slope.linfit'))
# Inspect results
summary(drFit)
plot(drFit)
# }
Run the code above in your browser using DataLab