u = findUndisputed(planecrash)
a = amDrivenDVI(u$dviReduced, threshold2 = 500)
u$summary
a$summary
formatSummary(list(u$summary, a$summary$AM))
formatSummary(list(u$summary, a$summary$PM), orientation = "PM", dvi = planecrash)
Run the code above in your browser using DataLab