R/Read.data.R

In jrich: Jack-Knife Support for Evolutionary Distinctiveness Indices I and W

#'
#' @title Read distributions.
#'
#' @description Read distributions as a csv with two columns species and area
#'
#' @param data.File a csv file to read
#'   
#' @return a data.frame object with the distribution by species 
#'
#'@author Miranda-Esquivel Daniel R.
#'
#'




Read.Data <-
function (data.File) {
    
  initial.Distribution <- read.csv(data.File,header=T,sep=" ")
  
  final.Distribution1 <- table(initial.Distribution$species,initial.Distribution$area)
  
  final.Distribution2 <-as.data.frame.array(final.Distribution1)
  
  final.Distribution2$species <- levels(as.factor(initial.Distribution$species))
  
  return(final.Distribution2)

}