df <- tidytable(x = 1:3, y = 1:3 * 2, z = 1:3 * 3)
# Compute the mean of x, y, z in each row
df %>%
rowwise() %>%
mutate(row_mean = mean(c(x, y, z)))
# Use c_across() to more easily select many variables
df %>%
rowwise() %>%
mutate(row_mean = mean(c_across(x:z))) %>%
ungroup()
Run the code above in your browser using DataLab