slight cleanup Rcode/BAMMtools.R