RESEARCH REPORT
sucess %>% summary()