# NOT RUN {
hmp_even_fp <- system.file("extdata", "HMP_even", package="MetaComp")
hmp_stagger_fp <- system.file("extdata", "HMP_stagger", package="MetaComp")
data_files <- data.frame(V1 = c("HMP_even", "HMP_stagger"),
V2 = c(file.path(hmp_even_fp, "allReads-gottcha2-speDB-b.list.txt"),
file.path(hmp_stagger_fp, "allReads-gottcha2-speDB-b.list.txt")))
write.table(data_files, file.path(tempdir(), "assignments.txt"),
row.names = FALSE, col.names = FALSE)
gottcha2_assignments = merge_edge_assignments(
load_edge_assignments(
file.path(tempdir(), "assignments.txt"), type = "gottcha2"))
plot_merged_assignment(gottcha2_assignments, "family", 'alphabetical', 100, 0,
"HMP side-to-side", file.path(tempdir(), "assignment.pdf"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab