myDf <- data.frame(
temp = seq(from = 0, to = 50, by = 10),
rT = c(0.001, 0.008, 0.02, 0.03, 0.018, 0.004))
damos_08Fit <- devRateModel(
eq = damos_08,
dfData = myDf,
startValues = list(aa = 1, bb = 1, cc = 1),
algo = "LM")
kontodimas_04Fit <- devRateModel(
eq = kontodimas_04,
dfData = myDf,
startValues = list(aa = 1, Tmin = 7, Tmax = 40),
algo = "LM")
poly2Fit <- devRateModel(
eq = poly2,
dfData = myDf,
startValues = list(a0 = 1, a1 = 1, a2 = 1),
algo = "LM")
devRateQlStat(
nlsDR = list(damos_08Fit, kontodimas_04Fit, poly2Fit)
)
Run the code above in your browser using DataLab