Try santoku
library(tidyverse)
library(santoku)
#> Warning: package 'santoku' was built under R version 4.0.2
#>
#> Attaching package: 'santoku'
#> The following object is masked from 'package:tidyr':
#>
#> chop
#details of santoku at
times <- c(1.148341719, 1.149355031,1.15,
1.150142468, 1.151574093, 1.154324165, 1.154833376,
1.156342757, 1.156512739,
1.15694131, 1.156984764, 1.158113329,
1.159175428, 1.16, 1.163106228, 1.16428044)
times_2 <- chop_equally(times, 2)
times_2
#> [1] [0%, 50%) [0%, 50%) [0%, 50%) [0%, 50%) [0%, 50%) [0%, 50%)
#> [7] [0%, 50%) [0%, 50%) [50%, 100%] [50%, 100%] [50%, 100%] [50%, 100%]
#> [13] [50%, 100%] [50%, 100%] [50%, 100%] [50%, 100%]
#> Levels: [0%, 50%) [50%, 100%]
Created on 2020-07-06 by the reprex package (v0.3.0)