cat(i, file = outputfile, sep = "\t", append = TRUE)
cat("\t", file = outputfile, append = TRUE)
cat(sum(h$counts), file =outputfile, sep = "\t", append = TRUE)
cat(i, file = outputfile, sep = "\t", append = TRUE)
cat("\t", file = outputfile, append = TRUE)
cat(sum(h$counts), file =outputfile, sep = "\t", append = TRUE)