write.table(results, file = output_file, sep = "\t")
write.table(MultiPP$Patterns, file = paste(output_file, ".pattern", sep = ""), sep = "\t")
write.table(results, file = output_file, sep = "\t")
write.table(MultiPP$Patterns, file = paste(output_file, ".pattern", sep = ""), sep = "\t")