# NOT RUN {
# }
# NOT RUN {
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_rowsums("y_z_sums", y, z))
data2 <- data %>%
mutate_rowsums("y_z_sums", y, z, na.rm=TRUE))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab