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 = "repeat"
)
# traces of bp size shows traces at different sizes
plot_repeat_correction_model(
fragments_list,
batch_run_id_subset = "20230414"
)
Run the code above in your browser using DataLab