벡터화 된 문장에서 R 합산

Question

다음 진술을합니다. 나는 나 자신을 반복해서 써야한다. seq (-1, -9, -1) 또는 -1 : -9를 사용하면 작동하지 않는 것 같습니다. R과 이야기 할 수있는 또 다른 방법이 있습니까?

difnormsum<-rowSums(data.frame(difnorm[[1]][-nrow(difnorm)],difnorm[[1]][-1], 
difnorm[[1]][-2],difnorm[[1]][-3],difnorm[[1]][-4],difnorm[[1]][-5], 
difnorm[[1]][-6],difnorm[[1]][-7],difnorm[[1]][-8],difnorm[[1]][-9])) 

Answer 1

당신은 시도 할 수

rowSums(data.frame(
    lapply(c(nrow(difnorm),1:9), function(i) difnorm[[1]][-i]) 
))