R/Iter.R

In houzeyu2683/PyKit:

##
##  Iter data
IterData <- function(data, by="row"){
  if(by=='row'){
    output <- seq(nrow(data))
  }
  if(by=='column'){
    output <- seq(ncol(data))
  }
  return(output)
}


##
##  Iter list
IterList <- function(list){
  intLength <- length(list)
  eleIndex  <- seq(intLength)
  return(eleIndex)
}