# Toy data - linear
ffi_fit_models(cars$speed, cars$dist)
# Toy data - nonlinear
ffi_fit_models(Puromycin$conc, Puromycin$rate)
# Real data
f <- system.file("extdata/TG10-01087.data", package = "fluxfinder")
dat <- ffi_read_LI7810(f)[1:75,] # isolate first observation
dat$SECONDS <- dat$SECONDS - min(dat$SECONDS) # normalize time to start at 0
plot(dat$SECONDS, dat$CO2)
ffi_fit_models(dat$SECONDS, dat$CO2)
Run the code above in your browser using DataLab