# \donttest{
# 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")
# 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)
plot(res, legend.ncol = 3, basesize = 15)
# }
# 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")
# Run curve fitting workflow
res <- flFit(fl_data = input$norm.fluorescence,
time = input$time,
parallelize = FALSE,
control = fl.control(fit.opt = "s", suppress.messages = TRUE,
x_type = "time", norm_fl = TRUE))
plot(res, legend.ncol = 3, basesize = 15)
Run the code above in your browser using DataLab