R将Column数据框中的NaN替换为特定行中rowMean 3的下一列

Question

注意：在我的真实数据集中，连续行中的有效值少于两个是不可能的。

我想用特定行的rowMeans替换NaN 我试着去申请：

apply(dat,1, FUN= function(x) ifelse(is.na(x[1]),rowMeans(dat[,1:3], na.rm=TRUE), x[1]))

但是对于我的数据，如果有NaN，我总是获得相同的值。问题似乎是在apply（，1，）中我不能写rowMeans（dat [1：3]）来获取特定值（我猜）。