¿Cómo puedo particionar un vector?

Question

¿Cómo puedo construir una función

slice(x, n) 

que devolverá una lista de vectores, donde cada vector excepto tal vez el último tiene tamaño n, es decir

slice(letters, 10) 

volvería

list(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j"), 
    c("k", "l", "m", "n", "o", "p", "q", "r", "s", "t"), 
    c("u", "v", "w", "x", "y", "z")) 

?

Answer 1

slice<-function(x,n) { 
    N<-length(x); 
    lapply(seq(1,N,n),function(i) x[i:min(i+n-1,N)]) 
} 

Answer 2

Usted puede utilizar la función de split:

split(letters, as.integer((seq_along(letters) - 1)/10)) 

Si usted desea hacer esto en una nueva función:

slice <- function(x, n) split(x, as.integer((seq_along(x) - 1)/n)) 
slice(letters, 10)