Description Usage Arguments Value Author(s) Examples
This function returns a measure of genetic distance based upon the Cavalli-Sforza & Edwards (1967) distance metric. Assuming drift is the only source or differences observed among strata.
1 | dist_cavalli(x, stratum = "Population")
|
x |
The genetic data, either as a single locus or multilocus ( |
stratum |
The groups among which you are going to estimate genetic distances. |
A matrix of Cavalli-Sforza Genetic distance estimates.
Rodney J. Dyer rjdyer@vcu.edu
1 2 3 4 5 6 7 8 9 10 11 12 13 | AA <- locus( c("A","A") )
AB <- locus( c("A","B") )
BB <- locus( c("B","B") )
AC <- locus( c("A","C") )
AD <- locus( c("A","D") )
BC <- locus( c("B","C") )
BD <- locus( c("B","D") )
CC <- locus( c("C","C") )
CD <- locus( c("C","D") )
DD <- locus( c("D","D") )
loc1 <- c(AA,AB,AC,AD,BB,BC,BD,CC,CD,DD)
loc2 <- c(AA,AA,AC,AA,CC,CC,AC,CC,AA,AC)
df <- data.frame( Population=c(rep("Pop-A",5),rep("Pop-B",5)), TPI=loc1, PGM=loc2 )
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.