data.table의 if 함수를 사용하는 경고 메시지

Question

함수 IF가 포함 된 사용자 정의 함수가 있습니다. data.table에서이 함수를 사용할 때 "조건의 길이가 1보다 크고 첫 번째 요소 만 사용됩니다"라는 경고가 나타납니다.

필자는 함수가 필요할 때마다 한 번에 한 행씩이 아닌 모든 행에 적용될 수 있다고 생각하지만 확실하지 않습니다.

이 경고가 나타나는 이유는 누구나 알고 있습니까?

내 기능은 다음과 같습니다

HeatIndex<-function(TempC,RH) 
{ 
TFarheit= TempC * 1.8 + 32 
if(TFarheit <80 ) { 
    Te=TempC /15 
    HI = Te/15 
} else { 
    TA=TempC /11 
    HI = TA/125 
} 
HI= (HI - 32)/1.8 
return(HI) 
} 

데이터의 샘플 :

HeatINDEX=data.table(Ave_MeanRH=c(0,100), Ave_MeanT=c(10,20)) #create data.table 

그리고 코멘트에, 당신은 할 수 제안한 것처럼 데이터

HeatINDEX[,HI:=HeatIndex(HeatINDEX$Ave_MeanT, HeatINDEX$Ave_MeanRH)]  

Answer 1

에 함수를 적용 ifelse()을 사용하여 열 색인 기능을 벡터화하십시오. 논평에서 제안 된 또 다른 해결책은 행 단위로 계산하는 것보다 확실히 빠를 것입니다. `HeatINDEX [HI : = HeatIndex (Ave_MeanT, Ave_MeanRH) = 1 : nrow (HeatINDEX)]

는

# Vectorized version of function: 
computeHI = function(T_cel, RH) { 
    T_far = T_cel * 1.8 + 32 
    HI = ifelse(test=T_far < 80, 
       yes=(T_cel/15)/15, 
        no=(T_cel/11)/125) 
    HI = (HI - 32)/1.8 
    return(HI) 
} 

HeatINDEX[,HI:=HeatIndex(Ave_MeanT, Ave_MeanRH), by=seq(2)] 
HeatINDEX[,vectorized_HI:=computeHI(Ave_MeanT, Ave_MeanRH)] 

HeatINDEX 
# Ave_MeanRH Ave_MeanT  HI vectorized_HI 
# 1:   0  10 -17.75309  -17.75309 
# 2:  100  20 -17.72840  -17.72840