###GENETIC DISTANCE###
>library(poppr)
>library(ape)
>library(magrittr)
>martin25
This is a genclone object
-------------------------
Genotype information:
4 original multilocus genotypes
55 haploid individuals
10 codominant loci
Population information:
1 stratum - Pop
3 populations defined - Hybrid, Heirloom, Grape
>set.seed(30)
>ten_samples<-sample(nInd(martin25),30)
>mic100<-martin25[ten_samples]
>(micdisc<-provesti.dist(mic100))
>theTree<-micdisc%>%nj()%>%ladderize()
>plot(theTree)
>add.scale.bar(length = 0.5)
>NJT1 <- last_plot()
###Bootstrap loci###
>set.seed(999)
>aboot(mic10, dist = provesti.dist, sample = 55, tree = "nj", cutoff = 50, quiet = TRUE)
Phylogenetic tree with 20 tips and 18 internal nodes.
Tip labels:
T-69, T-77, T-2, T-63, T-46, T-58, ...
Node labels:
NA, NA, NA, NA, NA, NA, ...
Unrooted; includes branch lengths.
Warning message:
In aboot(mic10, dist = provesti.dist, sample = 55, tree = "nj", :
Some branch lengths of the tree are negative. Normalizing branches according to Kuhner and Felsenstein (1994)
>strata(martin25)<-data.frame(other(martin25))
Error: Number of rows in data frame not equal to number of individuals in object.
--
You received this message because you are subscribed to the Google Groups "poppr" group.
To unsubscribe from this group and stop receiving emails from it, send an email to poppr+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/poppr/CAKiZ3%3DtcdvPeoMKqv1ShXhnWUuPkHMVvV68GC_goVJoXc9WKCA%40mail.gmail.com.