fsa_list <- lapply(cell_line_fsa_list, function(x) x$clone())
# import data with read_fsa() to generate an equivalent list to cell_line_fsa_list
test_fragments <- trace(
fsa_list,
grouped = TRUE,
metadata_data.frame = metadata,
correction = "repeat",
show_progress_bar = FALSE
)
# finally extract repeat correction summary
extract_repeat_correction_summary(test_fragments)
Run the code above in your browser using DataLab