data1 <- data %>% group_by(groupID_var) %>% mutate_each(funs(new_var = var/.),3:ncol(data))