added R bar code script I found