gistfile1.r

getNextGen <- function(x) {
  nextgen <- list()
  for(i in seq(1, kStartPop, by=2)) {
    firstborn <- getOffspring(x[i], x[i+1])
    secondborn <- getOffspring(x[i], x[i+1])
    nextgen[i] <- firstborn
    nextgen[i+1] <- secondborn  
  }
  return(unlist(nextgen))
}