使用dplyr的summarise_each提供自己寫函數用在每一行的方式，在做一些陣列資料處理還蠻方便的，簡單來說，可以用來把不同probe但屬於同一個基因的probe表現量合併起來，相關的函數，也可以使用summarise_all/summarise_at等等，靈活使用下頗為強大的。

tmp <- data %>%
        dplyr::select(-Date) %>%
        group_by(Id) %>%
        summarise_each(funs(sum)) %>%
        factor.summarise(.,2:67)