# NOT RUN {
data(dolph.strata)
data(dolph.seqs)
strata <- dolph.strata$fine
names(strata) <- dolph.strata$ids
dloop <- sequence2gtypes(dolph.seqs, strata, seq.names = "dLoop")
nucleotideDiversity(dloop)
# }
Run the code above in your browser using DataLab