R/list.to.data.R

In FactoClass: Combination of Factorial Methods and Cluster Analysis

####################################################################################################################
####################################################################################################################
####################################################################################################################
###                                                                                                              ###
### CONVIERTE UNA LISTA DE data.frame's A UN data.frames                                                         ###
###                                                                                                              ###
### ## Elaborado por: Pedro Cesar del Campo Neira                             				         ###
###    Universidad Nacional de Colombia                                                                          ###
###                                                                                                              ###
### list.to.data( lista  := Objeto tipo Lista con data.frames que posean las mismas variables                    ###
###               nvar   := Nombre para la variable que diferencia de que lista proviene cada data.frame         ###
###             )                                                                                                ###
###                                                                                                              ###
####################################################################################################################
####################################################################################################################
list.to.data <- function(lista, nvar = "clasif"){
  
  taml <- length(lista)
  noml <- names(lista)
  tamg <- sapply(lista,dim)[1,]

  clasif <- NULL
  SALIDA <- NULL

  for(G in 1:taml){
                 clasif <- rep(noml[G],tamg[G])
                 pega   <- data.frame(clasif=clasif,lista[[G]] ) 
                 SALIDA <- rbind(SALIDA,pega)
                }

  names(SALIDA)[1] <- nvar

  return(SALIDA)
}
####################################################################################################
############ FIN DE LA FUNCION #####################################################################
####################################################################################################################
####################################################################################################################