R: Как использовать функцию приложения в нижнем коде вместо цикла

Question

Мне нужно использовать любую из применяемых функций в моем коде, а не для цикла. Ниже приведены примеры кода и функций.

Вот мои данные

testdata<-data.table(x1=sample(1000),y1=sample(1000),x2=sample(1000),y2=sample(1000),h=sample(1000)) 

Вот моя функция

testfunction<-function(x0,y0,x1,y1,x2,y2,h){ 
    x<-x0+x1+x2+y0+y1+y2 
    y<-x+x0+y0 
    d<-x+y 
    R<-x+y+d 
    result <- data.frame(d,R,x,y) 
    return (result) 
} 

мой текущий код с для петли

resultdf<-data.frame(d=NA,R=NA,x=NA,y=NA) 
for (i in 1:nrow(reqdata.LN)){ 
    resultdf[i,]<-testfunction(x0=1.2,y0=2.1,testdata$x1[i],testdata$x2[i], 
           testdata$y1[i],testdata$y2[i],testdata$h[i]) 
} 

Я попытался с помощью lapply и sapply, но есть несколько ошибок

bb<-lapply(1:nrow(testdata),testfunction,x0=1.2,y0=2.1,testdata$x1[i],testdata$x2[i], 
      testdata$y1[i],testdata$y2[i],testdata$h[i]) 

Может кто-нибудь сказать, как использовать это применимые функции.

Answer 1

Как у нас есть data.table, функция может быть непосредственно применена как +.

res <- testdata[, testfunction(x0=1.2, y0=2.1, x1, y1, x2, y2, h)] 
head(res) 
#  d  R  x  y 
#1 3923.9 7847.8 1960.3 1963.6 
#2 2689.9 5379.8 1343.3 1346.6 
#3 4523.9 9047.8 2260.3 2263.6 
#4 3535.9 7071.8 1766.3 1769.6 
#5 3183.9 6367.8 1590.3 1593.6 
#6 3677.9 7355.8 1837.3 1840.6 

ПРИМЕЧАНИЕ: Функция в столбце OP возвращает data.frame. Когда мы используем data.table, то лучше вернуть его как list, так что это будет data.table объект

testfunction<-function(x0,y0,x1,y1,x2,y2,h){ 
    x<-x0+x1+x2+y0+y1+y2 
    y<-x+x0+y0 
    d<-x+y 
    R<-x+y+d 
    list(d= d,R=R,x= x,y = y) 

} 

head(testdata[, testfunction(x0=1.2, y0=2.1, x1, y1, x2, y2, h)]) 
#  d  R  x  y 
#1: 3923.9 7847.8 1960.3 1963.6 
#2: 2689.9 5379.8 1343.3 1346.6 
#3: 4523.9 9047.8 2260.3 2263.6 
#4: 3535.9 7071.8 1766.3 1769.6 
#5: 3183.9 6367.8 1590.3 1593.6 
#6: 3677.9 7355.8 1837.3 1840.6