c ( 2 1 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 , 2 1 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 , 2 1 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 , 2 1 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 , 2 1 0 [...] 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 , 2 1 0 . 9 , 2 1 1 . 2 , 2 1 1 . 5 , 2 1 1 . 8 )60 coords = as . data . frame ( rbind ( df _ l a t , df _ l o n ) ) t _ l a t = which . min ( abs ( mod_ c o o [...] r a 5 $RH) / 5 . )60 d2m_ z = Tdz e = 6 .112 * exp ( ( 1 7 . 6 2 5 * ( d2m_ z ) ) / ( 2 4 3 . 0 4 + ( d2m_ z ) ) ) * 100 es = 6 .112 * exp ( ( 1 7 . 6 2 5 * ( T_z−273.15) ) / ( 2 4 3 . 0 4 + ( T_z −273