# Calculate results
test.qfts$result.check <- with(test.qfts,
qft.interp(nil = nil,
tb = tb,
mito = mito))
# Compare lab and calculated results
with(test.qfts, table(lab.result, result.check, exclude = NULL))
# Compare different levels of verbosity
test.qfts$verbose.check <- with(test.qfts,
qft.interp(nil = nil,
tb = tb,
mito = mito,
verbosity = "verbose"))
test.qfts$onechar.check <- with(test.qfts,
qft.interp(nil = nil,
tb = tb,
mito = mito,
verbosity = "onechar"))
unique(test.qfts[ , c("lab.result", "result.check",
"verbose.check", "onechar.check")])
Run the code above in your browser using DataLab