life_exp_analysis_shell.Rmd

---
title: "Examine Life Expectancy"
author: "Zach Lyons"
date: "`r Sys.Date()`"
output:
  html_document:
    df_print: paged
urlcolor: blue
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Abstract

Here, I re-examine the analysis of Oeppen and Vaupel (2002).

# Life Expectancy Analysis

```{r}
lapply(c("tidyverse","gapminder"),library, character.only=TRUE)
data("gapminder_unfiltered")
```

```{r}
sumdat <-gapminder_unfiltered %>%
  group_by(year) %>%
  filter(lifeExp == max(lifeExp)) %>%
  ungroup(year) %>%
  select(year, country, lifeExp) %>%
  arrange(year) 
```

###what the code is doing