我有大量数据。以下数据只是样本：
Day Time(hr) Data
1 0:00 23.5
1 1:00 22
1 2:00 25
1 3:00 29
2 0:00 27
2 1:00 24
我希望结果为：
Day Time(hr) Data Corrected data
1 0:00 23.5 = 23.5
1 1:00 22 =if((23.5-23.5*10%) <= 22 <=(23.5*10%+23.5),22,interpolation)
1 2:00 25 =if((22-22*10%) <= 25 <=(22*10%+22),25, interpolation)
1 3:00 29 =if((25-25*10%)<=29<=(25*10%+25),29, interpolation)
2 0:00 27 = 27
2 1:00 24 = if((27-27*10%)<= 24 <=(27*10%+27),24, interpolation)
插值方法是线性的。由于我是r编程的新手，我无法使用if else语句链接每一列。如何检查这些数据并在错误条件下进行插值？