Return the middle x percent of values

Return the middle x percent of values

near_middle(x, middle, within)

Arguments

x	numeric vector
middle	percentage you want to center around
within	percentage around center

Value

logical vector

Examples

x <- runif(20)
near_middle(x = x,
            middle = 0.5,
            within = 0.2)
#>  [1] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE
#> [13]  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE

library(dplyr)
heights %>% features(height_cm, list(min = min)) %>%
  filter(near_middle(min, 0.5, 0.1))
#> # A tibble: 14 x 2
#>    country       min
#>    <chr>       <dbl>
#>  1 Brazil       164.
#>  2 Cameroon     164.
#>  3 Estonia      165.
#>  4 Gabon        164.
#>  5 Ghana        164.
#>  6 Guinea       164.
#>  7 Kenya        165.
#>  8 Kyrgyzstan   164.
#>  9 Latvia       165.
#> 10 Lithuania    165.
#> 11 Netherlands  164.
#> 12 Switzerland  165.
#> 13 Tajikistan   165.
#> 14 Uganda       165.