# 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")
# Extract time and normalized fluorescence data for single sample
time <- input$time[4,]
data <- input$norm.fluorescence[4,-(1:3)] # Remove identifier columns
# Perform linear fit
TestFit <- flFitLinear(time = time,
fl_data = data,
ID = "TestFit",
control = fl.control(fit.opt = "l", x_type = "time",
lin.R2 = 0.95, lin.RSD = 0.1,
lin.h = 20))
plot(TestFit)
Run the code above in your browser using DataLab