fsa_list <- lapply(cell_line_fsa_list[1], function(x) x$clone())
find_ladders(fsa_list, show_progress_bar = FALSE)
fragments_list <- find_fragments(fsa_list,
min_bp_size = 300
)
find_alleles(
fragments_list
)
# Simple conversion from bp size to repeat size
call_repeats(
fragments_list
)
plot_traces(fragments_list, xlim = c(105, 150))
Run the code above in your browser using DataLab