fixed the sampling function to deal with 2 digit numbers ... gsubing to remove _