data$total <- apply(data, 1, sum, na.rm=TRUE)