Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- narrow_ds # ... initialization of dataframe
- library(dplyr)
- narrow_ds <- bind_cols(narrow_ds, (narrow_ds %>%
- select(starts_with("eng")) %>% mutate(eng=rowMeans(., na.rm=TRUE))) %>%
- select(eng))
Add Comment
Please, Sign In to add comment