# NOT RUN {
#compare result of original HMR with plinear HMR
data(fluxMeas)
res <- gasfluxes(fluxMeas[1:400,],
.id = "serie", .V = "V", .A = "A",
.times = "time", .C = "C",
methods = c("HMR", "original HMR"), verbose = TRUE)
#number of successful fits
res[, sum(!is.na(HMR.kappa))]
res[, sum(!is.na(original.HMR.kappa))]
#Do the results differ?
plot(res[["HMR.f0"]], res[["original.HMR.f0"]])
abline(0, 1)
res <- gasfluxes(fluxMeas,
.id = "serie", .V = "V", .A = "A",
.times = "time", .C = "C",
methods = "HMR", verbose = TRUE)
# Error: time not sorted in flux ID ID556.
# Investigate the problem:
fluxMeas[serie %in% c("ID555", "ID556", "ID557")]
# serie V A time C
# 1: ID555 0.551625 1 0.0000000 0.3884388
# 2: ID555 0.551625 1 0.3333333 0.4125270
# 3: ID555 0.551625 1 0.6666667 0.3714207
# 4: ID555 0.551625 1 1.0000000 0.3735092
# 5: ID556 0.524250 1 0.0000000 0.3638239
# 6: ID556 0.524250 1 0.3333333 0.3520481
# 7: ID556 0.524250 1 0.6666667 0.3551644
# 8: ID557 0.528375 1 0.0500000 0.3954601
# 9: ID556 0.524250 1 0.0000000 0.3839834
#10: ID557 0.528375 1 0.3333333 0.3967269
#11: ID557 0.528375 1 0.6666667 0.3764967
#12: ID557 0.528375 1 1.0000000 0.3973055
# some mixup of IDs and times
# usually an input or Excel error during data preparation
# investigate and fix
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab