Select all samples with a specified base at a particular position

Question

I\'m new to programming in R and trying to do a very specific task.

I have a fasta sequence of n samples, which I read in ape:

library(ape