fsa_list <- lapply(cell_line_fsa_list[c(16:19)], function(x) x$clone())
config <- load_config()
trace:::find_ladders(fsa_list, config, show_progress_bar = FALSE)
trace:::find_fragments(
fsa_list,
config,
min_bp_size = 300,
show_progress_bar = FALSE
)
trace:::find_alleles(fsa_list, config)
trace:::add_metadata(fsa_list,
metadata[c(16:19), ]
)
# Simple conversion from bp size to repeat size
trace:::call_repeats(
fsa_list,
config,
assay_size_without_repeat = 87,
repeat_size = 3
)
plot_traces(fsa_list[1], xlim = c(120, 170))
# Use force_whole_repeat_units algorithm to make sure called
# repeats are the exact number of bp apart
trace:::call_repeats(
fsa_list,
config,
force_whole_repeat_units = TRUE,
assay_size_without_repeat = 87,
repeat_size = 3
)
plot_traces(fsa_list[1], xlim = c(120, 170))
# apply batch correction
trace:::call_repeats(
fsa_list,
config,
correction = "batch",
assay_size_without_repeat = 87,
repeat_size = 3
)
plot_traces(fsa_list[1], xlim = c(120, 170))
# apply repeat correction
trace:::call_repeats(
fsa_list,
config,
correction = "repeat",
assay_size_without_repeat = 87,
repeat_size = 3
)
plot_traces(fsa_list[1], xlim = c(120, 170))
#ensure only periodic peaks are called
trace:::call_repeats(
fsa_list,
config,
force_repeat_pattern_size_period = 2.75,
assay_size_without_repeat = 87,
repeat_size = 3
)
plot_traces(fsa_list[1], xlim = c(120, 170))
Run the code above in your browser using DataLab