powered by
comparegeno(cross, what=c("proportion","number"))
cross
read.cross
nmissing
data(listeria) output <- comparegeno(listeria) n.ind <- nind(listeria) image(1:n.ind,1:n.ind,output,col=gray((0:99)/99),breaks=seq(0,1,len=101))
Run the code above in your browser using DataLab