library(palmerpenguins)
penguins <- penguins %>%
na.omit() # 11 observations
# out of 344 removed, use only
# vars of interest, and standardise
# them for easier interpretation
penguins_sub <- penguins[,c(1, 3:6)] %>%
mutate(
across(where(is.numeric), ~ scale(.)[,1])) %>%
rename(bl = bill_length_mm,
bd = bill_depth_mm,
fl = flipper_length_mm,
bm = body_mass_g)