La última función quem e pusiste no sale:
# Calcula el promedio de wt (peso) por cyl y am
data_sel_4 <- data %>%
group_by(cyl, am) %>%
summarize(Mean_wt = mean(wt), .groups = ‘drop’)
Sale lo siguiente:
Error: inesperado invalid token in:
» group_by(cyl, am) %>%
summarize(Mean_wt = mean(wt),.groups = ‘»