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