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
fragments_list <- trace(fsa_list, metadata_data.frame = metadata, 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