This data set gives genetic relationships between cattle breeds with microsatellites.
data(microsatt)
microsatt
is a list of 4 components.
contains the allelic frequencies for 18 cattle breeds (Taurine or Zebu,French or African) and 9 microsatellites.
is a vector of the names of loci.
is a vector of the number of alleles per locus.
is a vector of the names of alleles.
See a data description at http://pbil.univ-lyon1.fr/R/pdf/pps055.pdf (in French).
if (FALSE) {
data(microsatt)
fac <- factor(rep(microsatt$loci.names, microsatt$loci.eff))
w <- dudi.coa(data.frame(t(microsatt$tab)), scann = FALSE)
wit <- wca(w, fac, scann = FALSE)
microsatt.ktab <- ktab.within(wit)
plot(sepan(microsatt.ktab)) # 9 separated correspondence analyses
plot(mcoa(microsatt.ktab, scan = FALSE))
plot(mfa(microsatt.ktab, scan = FALSE))
plot(statis(microsatt.ktab, scan = FALSE))
}
Run the code above in your browser using DataLab