apreshill

Keybase proof

I hereby claim:

• I am apreshill on github.
• I am alisonhill (https://keybase.io/alisonhill) on keybase.
• I have a public key ASCucGQ8iaHYozuOw_4ZGI0JRFMRU-hq2paVGj_nlW35eQo

To claim this, I am signing this object:

apreshill

library(tidyverse)
set.seed(1000)
asdpop_base <- tibble::tibble(
  time1 = sample(1:100, 100, replace = F), 
  time2 = time1) %>% 
  tidyr::gather(x, y, time1:time2, factor_key = TRUE)  

asdpop <- asdpop_base %>% 
  mutate(services = as.factor(case_when(
    x == "time1" & y <= 30 ~ 1, 

apreshill

``` r
library(tidyverse)
#> Warning: package 'forcats' was built under R version 3.5.2
library(lubridate)
#> 
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#> 
#>     date

apreshill

``` r
library(tidyverse)

iris %>% 
  count(Species)
#> # A tibble: 3 x 2
#>   Species        n
#>   <fct>      <int>
#> 1 setosa        50
#> 2 versicolor    50