dieulinh110

## LOAD PACKAGE
library(dplyr)

## INPUT

input <- data.frame(president = c("A1", "A1", "A1", "A1", "A1", "A1", "A1"),
                   vice_president = c("B", "B", "B", "B", "C", "C", "C"),
                   manager = c("D", "D", "E", "E", "F", "G", "H"),
                   staff = c("I", "J", "K", "L", "M", "N", "O"),
                   qty_1 = c(1:7),