From 1097dfffa12cb0d0c18f5f4b2c91ecbaf6db2ded Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 28 Jan 2026 23:07:30 +0300 Subject: Move genechip ontology to own file. Signed-off-by: Munyoki Kilyungi --- examples/dataset-metadata.scm | 30 +----------------------------- 1 file changed, 1 insertion(+), 29 deletions(-) (limited to 'examples/dataset-metadata.scm') diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm index 38dac9c..23dd48e 100755 --- a/examples/dataset-metadata.scm +++ b/examples/dataset-metadata.scm @@ -12,33 +12,6 @@ (transform special-forms)) - -(define-transformer gene-chip - (tables (GeneChip - (left-join Species "USING (SpeciesId)"))) - (schema-triples - (gnc:gene_chip a skos:Concept) - (gnc:gene_chip - skos:description - "This is a set of controlled terms that are used to describe a given gene chip/platform") - (gnt:has_geo_series_id rdfs:domain gnc:platform) - (gnt:has_geo_series_id rdfs:domain gnc:gene_chip) - (gnt:has_go_tree_value a owl:ObjectProperty) - (gnt:has_go_tree_value skos:definition "This resource the following GO tree value") - (gnt:has_go_tree_value rdfs:domain gnc:gene_chip)) - (triples (string->identifier "platform" (field GeneChip Name) #:separator "_") - (set rdf:type 'gnc:gene_chip) - (set rdfs:label (field GeneChip GeneChipName)) - (set skos:prefLabel (field GeneChip Name)) - (set skos:altLabel (field ("IF(GeneChip.GeneChipName != GeneChip.Title, Title, NULL)" - Title))) - (set gnt:has_go_tree_value (field GeneChip Go_tree_value)) - (set xkos:classifiedUnder - (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "")) - (set gnt:has_geo_series_id - (ontology 'geoSeries: - (string-trim-both (field GeneChip GeoPlatform)))))) - (define-transformer info-files (tables (InfoFiles (left-join PublishFreeze "ON InfoFiles.InfoPageName = PublishFreeze.Name") @@ -455,8 +428,7 @@ (list info-files publishfreeze genofreeze - probesetfreeze - gene-chip)) + probesetfreeze)) (outputs `(#:documentation ,documentation #:rdf ,output)))) -- cgit 1.4.1