rewrote to ggplot, unified treatment of NAs (when either of obs/exp is 0);...

rewrote to ggplot, unified treatment of NAs (when either of obs/exp is 0); only 12 iterations of sample are now part of the output; modified code for when insufficient amount of data is present