library(dplyr)data_market <- read.csv("data_market.csv")data_market %>% group_by(brand) %>% summarise(price_mean = mean(price), price_sd = sd(price), marketshare_mean = mean(marketshare), marketshare_sd = sd(marketshare))