генерации последовательностей, используя список «из» значений

Question

Моя цель заключается в создании списка индексных последовательностей, используя этот список исходных индексов следующим образом:

values <- matrix (1:25, nrow=5) 
indexMatrix <- matrix (seq_along (values) , nrow=nrow(values)) 
fWidth <- 2 
startIndices<- list (
    vert=indexMatrix [1:(nrow (values)-fWidth) , 1:ncol (values)], 
    horiz=indexMatrix [1:nrow (values) , 1:(ncol (values)-fWidth)] , 
    upDiag=indexMatrix [fWidth:(nrow (values) - fWidth) , 1:(ncol (values) - fWidth) ] , 
    dnDiag=indexMatrix [1: (nrow (values) - fWidth) , 1: (ncol (values) - fWidth) ] 
) 

Я пытаюсь генерировать последовательности, используя эти подмножества в качестве отправных точек используя этот код, который, я надеюсь, перейду через главный список startIndices через каждый подсписчик, которые являются просто подмножествами исходной матрицы, генерируя последовательности * x, x + fun, x + 2 * fun, x + 3 * fun ... * (lapply), используя другое значение из списка funs для каждого под-списка (это часть for) и объединить их в один большой список (в этом примере 3-элементных) списков , Похоже, что моя проблема не передает правильный аргумент from в seq, однако я предполагал, что это будет векторизоваться над каждым подсписком, чтобы генерировать последовательность из каждого значения.

funs<-c(1 , nrow (values) , nrow (values) - 1 , nrow (values) + 1 
    ) 
    #browser() 
    seqs<- for (i in seq_along (startIndices)){ 
     unlist (
      lapply (startIndices [i] , 
      seq , by=funs[i] , to=fWidth*funs[i]) , #from=n from  indexMatrices[i] 
     FALSE , FALSE 
     ) 
    } 

Этот код приводит к сообщению об ошибке, Error in seq.default(X[[1L]], ...) : 'from' must be of length 1. У меня, похоже, есть фундаментальное непонимание того, как работает функция lapply. Я думал, что он будет использовать мой исходный набор данных в качестве списка аргументов для предоставленной функции, но, похоже, он не использует только элементы списка, а весь список. Это часть более крупной функции для вычисления произведения всех n смежные значения в матрице (n = width).

Мой желаемый результат может быть смоделирована следующим:

startIndices <- sapply (startIndices, as.vector) 
attach (startIndices) 
startIndices$vert <- matrix (c(vert, vert+1, vert+2), nrow=3, byrow=TRUE) 
startIndices$horiz <- matrix (c(horiz, horiz+5, horiz+10), nrow=3, byrow=TRUE) 
startIndices$upDiag <- matrix (c(upDiag, upDiag+4, upDiag+8), nrow=3, byrow=TRUE) 
startIndices$dnDiag <- matrix (c(dnDiag, dnDiag+6, dnDiag+12), nrow=3, byrow=TRUE) 

df <- lapply (startIndices, as.data.frame) 
unlist (lapply (df, as.list), FALSE, FALSE) 

Answer 1

Я не совсем понимаю, что вы пытаетесь сделать, но от быстрого взгляда кажется, что вы используете как lapply() и seq() неверно , Для seq() вам необходимо указать from, to и либо by, либо length. Что еще более важно, похоже, что код написан теперь, вы используете lapply() для одного элемента списка. Вы должны попробовать кормить весь список в качестве первого аргумента lapply() или, если вам нужно ссылаться на итератор внутри (i в вашем примере) рассмотреть возможность использования sapply() следующим образом:

sapply(length(startIndices),function(i) { 
     seq(from=?, to=fWidth*funs[i],by=funs[i]) 
})