मैं वेक्टर को कैसे विभाजित कर सकता हूं?

Question

मैं एक समारोह का निर्माण कैसे कर सकते हैं

slice(x, n) 

जो जहां को छोड़कर शायद आखिरी है आकार n प्रत्येक वेक्टर, यानी

slice(letters, 10) 

वापसी होगी

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")) 

वैक्टर की एक सूची वापस होगा ? आप एक नया समारोह में इस बनाना चाहते हैं

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

:

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

आप split समारोह का उपयोग कर सकते

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