data(dolomedes)
subs <- titv(dolomedes)
#Transversions
subs[upper.tri(subs)]
tv <- t(subs)
tv <- tv[lower.tri(tv)]
#Transitions
ti <- subs[lower.tri(subs)]
#Saturation plot
doloDist <- dist.dna(dolomedes)
plot(doloDist, ti, type="p", pch=19, col="blue",
main="Saturation plot of number of transitions and transversions
against K2P distance. Red: transversions. Blue: transitions")
points(doloDist, tv, pch=19, col="red")Run the code above in your browser using DataLab