mammals <- mammals orders <- mammals %>% filter(order == 'Artiodactyla' | order == 'Carnivora' | order == 'Cetacea' | order == 'Insectivora' | order == 'Lagomorpha' | order == 'Primates' | order == 'Rodentia' )
orders1 <- orders %>% mutate(offspring.year = litter_size * litters_inyear) %>% mutate(log.oy = log(offspring.year)) %>% mutate(log.AFR = log(AFR_mo)) orders1
orders2 <- orders1 %>% mutate(log.ml = log(max_life_month)) orders2
orders.again <- orders %>% mutate(offspring.year = litter_size * litters_inyear) %>% mutate(log.oy = log(offspring.year)) %>% mutate(log.wm = log(weaning_month)) orders.again
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.