library (fBasics) library (knitr) mydata %>% group_by (symbol) %% summarize (Average = mean(return)) %% \# INSTDE SUNARTZE YOU NEED TO ADD kable(digits =3 ) \# THE STD DEV, SKEWESS, KURTOSIS DISCUSSION .... blablabla .... Question 3 mydata,wide % select (date, symbol, return) %>% tidyr: : spread (symbol, return)