homologs r plot script added