data(“starwars”)

head(starwars)

install.packages(“dplyr”) library(dplyr)

cleaned_starwars <- starwars %>% filter(!is.na(height)) %>% select(height,mass) cleaned_starwars %>% summarise(avg_height = mean(height)) starwars %>% arrange(mass) starwars %>% filter(sex == “male”) starwars %>% select(sex,gender)

cleaned_starwars <- mutate(cleaned_starwars, height_in_meter = height/100) mutate(cleaned_starwars,body_mass_index = mass / (height_in_meter^2))