install.packages("datapasta")
Addins -> "Paste as ... "
pg_outlier <- pg %>%
select(species, body_mass_g) %>%
filter(body_mass_g > quantile(body_mass_g, .75, na.rm = T) +
IQR(body_mass_g, na.rm = T))
clipr::write_clip(pg_outlier)
species body_mass_g
Gentoo 6300
Gentoo 6050
Gentoo 6000
Gentoo 6000
.EOF.