fsa_list <- lapply(cell_line_fsa_list[1], function(x) x$clone())
find_ladders(fsa_list)
fragments_list <- find_fragments(fsa_list,
min_bp_size = 300
)
# Manually inspect the ladders
plot_traces(fragments_list,
show_peaks = TRUE, n_facet_col = 1,
xlim = c(400, 550), ylim = c(0, 1200)
)
Run the code above in your browser using DataLab