- meanVal = ifelse(last_noNA_indices[i]>0,
- 0.5*(dat[last_noNA_indices[i],i]+dat[line,i]),
- dat[line,i])
-
- for (j in (last_noNA_indices[i]+1):(line-1))
- dat[j,i] = meanVal
+ meanVal = ifelse( last_noNA_indices[i]>0,
+ 0.5*(dat[last_noNA_indices[i],i]+dat[line,i]),
+ dat[line,i] )
+ dat[(last_noNA_indices[i]+1):(line-1),i] = meanVal