# 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))
summary(TestFit)
Run the code above in your browser using DataLab