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))