worksheet(df, responses, graphics = F,
npages = ceiling(nrow(df)/32), ...)
a.design <- design.digest('ff0308')
# sends the results to the printer
worksheet(a.design, responses = c('yield','purity'))
worksheet(a.design, graphic = T) # uses the graphics device