+library(plyr)