<code>values1 <- c(1,2,NA,NA,NA,NA,2,3,4,5,6)
values2 <- c(1,2,NA,4,NA,NA,2,3,4,5,6)
values3 <- c(1,2,NA,4,5,NA,2,3,4,5,6)
df<- data.frame(values1,values2,values3)
df$tot <- rowSums(df[,c('values1','values2', 'values3')], na.rm=T)
df
</code>
<code>values1 <- c(1,2,NA,NA,NA,NA,2,3,4,5,6)
values2 <- c(1,2,NA,4,NA,NA,2,3,4,5,6)
values3 <- c(1,2,NA,4,5,NA,2,3,4,5,6)
df<- data.frame(values1,values2,values3)
df$tot <- rowSums(df[,c('values1','values2', 'values3')], na.rm=T)
df
</code>
values1 <- c(1,2,NA,NA,NA,NA,2,3,4,5,6)
values2 <- c(1,2,NA,4,NA,NA,2,3,4,5,6)
values3 <- c(1,2,NA,4,5,NA,2,3,4,5,6)
df<- data.frame(values1,values2,values3)
df$tot <- rowSums(df[,c('values1','values2', 'values3')], na.rm=T)
df
Rows 3 and 6 should sum to NA. If the row is comprised of all missing values then the sum should be NA. But if there is atleaset one non-missing value the non-missing values should be added up. How might I do this please?