SEG modified Bland-Altman plot • segtools

library(segtools)
library(dplyr)

vanderbilt_complete <- vroom::vroom(
  file = system.file("extdata", "VanderbiltComplete.csv", 
                      package = "segtools"),
  delim = ",")
dplyr::glimpse(vanderbilt_complete)
#> Rows: 9,891
#> Columns: 2
#> $ BGM <dbl> 121, 212, 161, 191, 189, 104, 293, 130, 261, 147, 83, 132, 146, 24…
#> $ REF <dbl> 127, 223, 166, 205, 210, 100, 296, 142, 231, 148, 81, 131, 155, 25…

seg_modba_graph(data = vanderbilt_complete)