KEGG Ortholog Clusters

See https://www.genome.jp/oc/

*/

    9:- module(keggoc,
   10	  [
   11	      keggoc_ortholog/2
   12	  ]).   13
   14:- sparql_endpoint(keggoc, 'https://www.genome.jp/oc/proxy/sparql').   15
   16:- rdf_register_prefix(orth, 'http://purl.org/net/orth#').   17
   18keggoc_ortholog(G1, G2) :-
   19    rdf_path(OC, zeroOrMore(orth:hasHomologous), G1),
   20    rdf_path(OC, zeroOrMore(orth:hasHomologous), G2),
   21    rdf(G1, rdf:type, orth:'Gene'),
   22    rdf(G2, rdf:type, orth:'Gene')