Alison Presmanes Hill apreshill

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                apreshill
                / keybase.md
            
            
              Created
              December 7, 2018 02:42
            
          
    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:

  
## label-jittered-filtered-points
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,

## quo-dates
``` 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

## counting-distincts
``` r
library(tidyverse)

iris %>%
  count(Species)
#> # A tibble: 3 x 2
#>   Species        n
#>   <fct>      <int>
#> 1 setosa        50
#> 2 versicolor    50
	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,
	``` 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
	``` r
	library(tidyverse)

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