为什么我的for循环函数在r中不起作用（试图截断数据集中的异常值）

I'm trying to replace extreme values with the nearest value in the dataset. I know the ifelse () works better, but just wondering why is the for loop not working. I'm trying to replace extreme values with the n