search for: simpon

...i[i]],loc[rj[i]+1]], Lat[loc[ri[i]+1],loc[rj[i]+2]], Lat[loc[ri[i]+2],loc[rj[i]+1]], Lat[loc[ri[i]+1],loc[rj[i]]]), 1) # Calculate Simpon's Diversity (Nei genetic heterozygozity) 1 - sum( (table(Lat0)/sum(table(Lat0)))^2) 1 - sum( (table(Lat)/sum(table(Lat)))^2) layout(matrix(1:2, nrow=1)) # plot arenas plot(rep(1:L,each=L),rep(1:L,L),col=c(Lat0),pch=20) plot(rep(1:L,each=L),rep(1:L,L),col=c(Lat),pch=20) Dr. Martin Henry H. Stev...