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