split-censor-interval.md

From Ben Fitzpatrick

ic_vec <- c('11% - 20%', '21% - 30%', '0% - 9%')

library(tidyverse)

ic_vec %>%
  as_tibble() %>%
  separate(col = value,
           into = c("lower", "upper"),
           sep = " - ") %>%
  mutate_if(.predicate = is.character,
            .funs = readr::parse_number)
#> # A tibble: 3 x 2
#>   lower upper
#>   <dbl> <dbl>
#> 1   11.   20.
#> 2   21.   30.
#> 3    0.    9.

Created on 2018-03-15 by the reprex package (v0.2.0).