#como hacer un sub arbol de una mega filogenia #squamata squamata<-read.tree("Squamata phylogeny.txt") plot(squamata) species0,2,sum) #para ver un grafico de la densidad acumulativva plot(sort(spc.pres)) plot(sort(spc.pres),main="acumulative distribution of species occurremes",xlab="acumulative count of species",ylab="number of plots") #histograma hist(spc.pres) hist(log(spc.pres)) #leyendo tabla de comunidadews, datos ambientales, etc abund.matrix<-read.table("abund.matrix.txt",sep="\t",header=T,row.names=1) abund.matrix
rowSums(abund.matrix) colSums(abund.matrix)