library(dplyr)
penguins %>%
mutate(
long_flipper = case_when(
species == "Adelie" & flipper_len > 195 ~ TRUE,
species == "Chinstrap" & flipper_len > 200 ~ TRUE,
species == "Gentoo" & flipper_len > 225 ~ TRUE,
TRUE ~ FALSE
)
) %>%
mutate(
body_mass_kg = body_mass / 1000,
bill_len_cm = bill_len / 10,
bill_dep_cm = bill_dep / 10
)