data.table패키지를 활용한 행별 합계

data.table로 특정 컬럼부터 특정 컬럼까지, 행별 연산을 적용할 경우가 요구되는 것 같아 예제 코드를 짜보았다. 아래는 DT1과 DT2를 join하고 join된 자료에서의 3번째부터 끝까지의 컬럼을 행별 합계내는 코드이다. ncol을 할당하는게 조금 비효율 적인 것 같기도 하다.

library(data.table)
DT1=setDT(head(iris[,1:2]+5,10))
DT1$key=1:10
DT2=setDT(iris[5:12,3:4])
DT2$key=5:12
DT3=NULL
DT3=DT1[DT2,on=.(key)][,ncol:=ncol(.SD)][,rowSum:=rowSums(.SD,na.rm=T),.SDcols=3:(ncol-1)][,ncol:=NULL]