data(oak.rads)
temp <- locus.dist(oak.rads, proportional = TRUE)
diag(temp) # this is how well everyone sequenced as a proportion
temp <- locus.dist(oak.rads, proportional = FALSE)
temp[c(1,28),]# how well did a successful sequencing do in comparison to a poor sequencing?
temp[6:7,] # ... and 2010 sequencing (upper row) vs. 2012 sequencing of the same library?
Run the code above in your browser using DataLab