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