# load example dataset
if (FALSE) {
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")
# Run workflow
res <- fl.workflow(grodata = input, ec50 = FALSE, fit.opt = 's',
x_type = 'time', norm_fl = TRUE,
dr.parameter = 'max_slope.spline',
suppress.messages = TRUE,
parallelize = FALSE)
fl.report(res, out.dir = tempdir(), parallelize = FALSE)
}
Run the code above in your browser using DataLab