homologene.R added