Delete genotypes.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 3 insertions, 58 deletions

diff --git a/examples/genotype.scm b/examples/genotype.scm
index e2ac782..3b8f385 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -15,63 +15,7 @@
 
 
 
-(define-transformer genotypes
-  (tables (Geno
-           (left-join Species "USING (SpeciesId)")))
-  (schema-triples
-   (gnt:chr a owl:ObjectProperty)
-   (gnt:chr skos:description "This resource is located on a given chromosome")
-   (gnt:chr rdfs:domain gnc:genotype)
-   (gnt:mb a owl:ObjectProperty)
-   (gnt:mb skos:definition "The size of this resource in Mb")
-   (gnt:mb rdfs:domain gnc:genotype)
-   (gnt:mb_mm8 a owl:ObjectProperty)
-   (gnt:mb_mm8 skos:definition "TODO")
-   (gnt:mb_mm8 rdfs:domain gnc:genotype)
-   (gnt:mb2016 a owl:ObjectProperty)
-   (gnt:mb2016 skos:definition "TODO")
-   (gnt:mb2016 rdfs:domain gnc:genotype)
-   (gnt:has_sequence a owl:ObjectProperty)
-   (gnt:has_sequence skos:definition "This resource has a given sequence")
-   (gnt:has_sequence rdfs:domain gnc:genotype)
-   (gnt:has_source a owl:ObjectProperty)
-   (gnt:has_source rdfs:domain gnc:genotype)
-   (gnt:has_source skos:definition "This resource was obtained from this given source")
-   (gnt:has_alt_source_name a owl:ObjectProperty)
-   (gnt:has_alt_source_name rdfs:domain gnc:genotype)
-   (gnt:has_alt_source_name
-    skos:definition
-    "The alternative name this resource was obtained from")
-   (gnt:chr_num a owl:ObjectProperty)
-   (gnt:chr_num rdfs:domain gnc:genotype)
-   (gnt:chr_num skos:definition "The chromosome number for this resource"))
-  (triples
-      (string->identifier "" (field Geno Name))
-    (set rdf:type 'gnc:genotype)
-    (set rdfs:label (sanitize-rdf-string (field Geno Name)))
-    (set gnt:chr (field Geno Chr))
-    (set gnt:mb (annotate-field
-                 (field ("IFNULL(Geno.Mb, '')" Mb)) '^^xsd:double))
-    (set gnt:mb_mm8 (annotate-field (field ("IFNULL(Geno.Mb_mm8, '')" Mb_mm8))
-                                   '^^xsd:double))
-    (set gnt:mb2016
-         (annotate-field (field ("IFNULL(Geno.Mb_2016, '')" Mb_2016))
-                         '^^xsd:double))
-    (set gnt:has_sequence (field Geno Sequence))
-    (set gnt:has_source (field Geno Source))
-    ;; Only transform Source2 if it differs from Source
-    (set gnt:has_alt_source_name
-         (field ("IF((Source2 = Source), NULL, Source2)"
-                 Source2)))
-    (set gnt:has_species
-         (string->identifier "" (remap-species-identifiers (field Species Fullname))
-                             #:separator "_"
-                             #:proc string-downcase))
-    (set gnt:chr_num
-         (annotate-field
-          (field Geno chr_num)
-          '^^xsd:int))
-    (set rdfs:comments (field Geno Comments))))
+
 
 
 
@@ -102,7 +46,8 @@
       ("xkos:" "<http://rdf-vocabulary.ddialliance.org/xkos#>")
       ("xsd:" "<http://www.w3.org/2001/XMLSchema#>")))
    (inputs
-    (list genotypes))
+    (list
+     ))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))