我有一个包含函数 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)]
正如评论中所建议的,您可以使用ifelse()
. 这肯定会比逐行计算更快,这是评论中建议的另一种解决方案。
# 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
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句