Create check_for_seq.r