oleon12

library(ape)
library(phangorn)

##This is the tree who I'll want to calculate Vane-Wright index
##
tree <- read.tree("puranius.tre")
plot(tree)

##Now a read the table
##This table have terminal and the number of nodes who belong each terminal 

oleon12

#How to download sequences from GenBank
#
#leon.alvarado12@gmail.com

#######################################################################################
#                            Use a data without NA                                    #
#                                                                                     #
#This function need a data frame with the two first columns calling Genera and Specie #
#                                                                                     #
#######################################################################################

oleon12

toNum <- function(x){
 for (i in 1:length(x)){
   matrix <- as.matrix(x)
   x[,i] <- as.numeric(matrix[,i])  
 }
}

#At the end, all characters in the data frame will be numeric type variables.