DNAseq <- c("TCCATCGTCCAACCTCGTCATTACGTTTAATATGGTACCAATGTGTGGGTCGATTGTTCCGGTGACTACCGGTGTGTTCAACGGTTTACGTGGGTGTGTTCTAATCTCACCCCGTGAACTCTCGTAAAATATGTTGTCCCACTCTTGTCTCCTACGATCGGTCGTGTTCCCGTCCTCGTTCGTTCATACGTGATCACGGTATGTGGGATTCGTCGTTACCCCCGGTGACGGATGGATGTCAATGTGTCGATTTCGTGGTCAATGTGGGGGTGTCGTGGGGTGGTATCTTCGGTGGTTCCGACGGGGGGTCCCTCTCGTGGGGTCTATATGGTTCTACGTCTACCCTCAATGAACGTCGTTGTTCACCCATGATTTCGGATCAAATGGTGGTTATGTTTCGTGAATCGACTGAACCCCGGGGTGGTGGTCATCAAATCTTGTCGAAACCGGTGGGTGTTGAACAATAATGACACTCCGTGATCTTGTTCATTAACGTGACCGAACGTCCGGTCGAATGTCGGTCCTCAAATCGGAATTGTTAAACTGGTCAATCGACACCGTTCGTTCCTGTGTGGTATTATGTACCTCCCTTCTCCGTGTCGTACTCGTCGTTTCGTGTCATATGGATACTCAACGGGGGTTCCACGTCCCCTAATGAATGTCGGTGATGTCCCCCCGTATTCCTCACCGGTGTAACCCACGAAATTGTGGGGACGGTACGTCAACCTTGTCGATACGAAACGTTCGTGTATGTGATGTGTGGGTGTTTCCAATAACGAATACACGTCCTGTGGGATTCCCTATAACGTGGTCCCGGTCGGGGGTGAAACCACGGTCCTACCGGTTCATACGTGTGTCGTAACCGTGGGTTAAATGTCCGGATCTCGGAACAACCACTTGACCTTGGTTGTGTATGTCCCGGACTCGGGGGTCCATAATCCTGTTGATCGTGTTTCCCTAATCTGTCCACCCGTATCAAATTTGTCCAATTTCGGGGATG")

# om de letter op plaats 103 te selecteren
substr(DNAseq, 103, 103)