R/CombineFold.R

In houzeyu2683/PyKit:

##
##  Combine fold
CombineFold <- function(list){

  ##  Convert to matrix if not
  for(i in IterList(list)){
      for(j in IterList(list[[i]])){
        if(!HaveDimension(list[[i]][[j]]))
          list[[i]][[j]] <- data.matrix(list[[i]][[j]])
      }
  }

  ##  Initial return
  listReturn    <- list()

  ##  Update the return
  intFirstIndex <- 1
  eleLoop <- names(list[[intFirstIndex]])
  for(i in eleLoop){
    listGroup       <- lapply(list, function(x) x[[i]])
    listReturn[[i]] <- Reduce("rbind", listGroup)
  }
  return(listReturn)
}