fsa_list <- lapply(cell_line_fsa_list[16:19], function(x) x$clone())
find_ladders(fsa_list, show_progress_bar = FALSE)
fragments_list <- find_fragments(fsa_list, min_bp_size = 300)
test_alleles <- find_alleles(
fragments_list
)
add_metadata(
fragments_list,
metadata
)
call_repeats(
fragments_list = fragments_list,
correction = "batch"
)
# traces of bp size shows traces at different sizes
plot_batch_correction_samples(
fragments_list,
selected_sample = "S-21-212", xlim = c(100, 120)
)
Run the code above in your browser using DataLab