99 plot oc.r

[audreyyeoCH]

closes #99

some notes to aid where I was at last:

The vintage function only creates 1 plot which is a bar plot per sample "look" and will plot from a frequency table of how many trials were a success and failure per look. Since nnE ≠ nnF is possible, we have other cases to account for:

Regular case:

• Note when nnF = nnE will also be TRUE when wiggle = TRUE or FALSE.

Other cases:

• when nnF ≠ nnE e.g. nnE = c(10, 20, 30) and nnF = 30. Then the first two looks are mainly efficacy analyses and "failure" of Efficacy would simply be 1-P(meeting Go criteria). The final look would be "success" = 1-P(meeting Go criteria) + P(meeting Stop criteria).

Please correct if mistaken.

Therefore:

• we may need an algorithm because calculations resulting in the frequency table may be altered.
• Before loop check logical nnF = nnE because this is the regular case. If FALSE, then data set for frequency table will differ from regular case.