if (FALSE) {
library(furniture)
library(tidyverse)
data <- data.frame(
x = sample(c(1,2,3,4), 100, replace=TRUE),
y = rnorm(100),
z = rnorm(100)
)
data2 <- data %>%
mutate(y_z_sum = rowsums(y, z))
data2 <- data %>%
mutate(y_z_sum = rowsums(y, z, na.rm=TRUE))
}
Run the code above in your browser using DataLab