Update reverse_complement.R

Modified lines 18 and 20 (reversed probability vectors)