## Run script in aaaMakeData4Vignettes.R to create these objects ... make sure
## to run the last line that copies the RData files to the tests folder.

dat1 <- readRDS("Scale_1_DHO.rds")
dat2 <- readRDS("Oto140306_DHO.rds")