hw01

Load necessary libraries

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

Import data

bikes_df <- read_excel(“C:/Users/Asus/Downloads/bikes.xlsx”)

Display “model” and “price”, then sort by descending “price”

model_price_desc <- bikes_df %>% select(model, price) %>% arrange(desc(price))

Print the sorted data

print(model_price_desc)

Calculate mean price and filter rows with price greater than mean

mean_price <- mean(bikes_df$price, na.rm = TRUE)

model_price_above_mean <- bikes_df %>% select(model, price) %>% filter(price > mean_price)

Print the filtered data

print(model_price_above_mean)