library(tidyverse) library(lubridate) library(tidyquant) library(readxl) library(writexl)

bikes_data <- read_excel(“bikes.xlsx”) bikes_sorted <- bikes_data %>% select(model, price) %>% arrange(desc(price))

print(bikes_sorted)

mean_price <- mean(bikes_data$price) bikes_filtered <- bikes_data %>% select(model, price) %>% filter(price > mean_price)

print(bikes_filtered)