Added contig clustering R script