updated transposons.r