Check if two fragments objects are identical
Examples
## Prep data
frags_1 <- tibble::tibble(
chr = "chr1",
start = seq(10, 260, 50),
end = start + seq(5, 30, 5),
cell_id = paste0("cell", c(rep(1, 2), rep(2,2), rep(3,2)))
) %>% convert_to_fragments()
frags_1
#> IterableFragments object of class "UnpackedMemFragments"
#>
#> Cells: 3 cells with names cell1, cell2, cell3
#> Chromosomes: 1 chromosomes with names chr1
#>
#> Queued Operations:
#> 1. Read uncompressed fragments from memory
frags_2_identical <- tibble::tibble(
chr = "chr1",
start = seq(10, 260, 50),
end = start + seq(5, 30, 5),
cell_id = paste0("cell", c(rep(1, 2), rep(2,2), rep(3,2)))
) %>% convert_to_fragments()
frags_3_different <- tibble::tibble(
chr = "chr1",
start = seq(10, 260, 50),
end = start + seq(5, 30, 5),
cell_id = paste0("cell", c(rep(1, 2), rep(2,2), rep(4,2)))
) %>% convert_to_fragments()
## In the case of mismatching cell ids
fragments_identical(frags_1, frags_3_different)
#> [1] FALSE
## In the case of two identical frag objects
fragments_identical(frags_1, frags_2_identical)
#> [1] TRUE
