Пишу код. Но вместо подсчета суммы всех значений, которые подошли, просто выдаёт последнее подходящее значение. Как сохранить все подходящие под условие значения?
filtered.sum <- function(x){
x[is.na(x)] <- 0
d <- 0
for (i in 1:length(x)) {
if (x[i]>0){
s <- x[i]
}
}
d <- d+s
return(d)
}