diff options
| -rwxr-xr-x | examples/dump-dataset-metadata.scm | 1 | ||||
| -rwxr-xr-x | examples/dump-probesetfreeze.scm | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm index 7519582..38f13bb 100755 --- a/examples/dump-dataset-metadata.scm +++ b/examples/dump-dataset-metadata.scm @@ -91,6 +91,7 @@ (left-join Tissue "USING (TissueId)") (left-join Investigators "USING (InvestigatorId)") (left-join AvgMethod "USING (AvgMethodId)") + (left-join Organizations "USING (OrganizationId)") (left-join GeneChip "USING (GeneChipId)")) "WHERE GN_AccesionId IS NOT NULL AND ((PublishFreeze.public > 0 AND PublishFreeze.confidentiality < 1) OR (GenoFreeze.public > 0 AND GenoFreeze.confidentiality < 1) OR (ProbeSetFreeze.public > 0 AND ProbeSetFreeze.confidentiality < 1))") (schema-triples diff --git a/examples/dump-probesetfreeze.scm b/examples/dump-probesetfreeze.scm index 3e0c930..0be81ac 100755 --- a/examples/dump-probesetfreeze.scm +++ b/examples/dump-probesetfreeze.scm @@ -26,7 +26,10 @@ (gn:name rdfs:range rdfs:Literal)) (triples (string->identifier "platform" (field GeneChip Name)) (set rdf:type 'gn:platform) - (set gn:name (field GeneChip GeneChipName)))) + (set gn:name (field GeneChip GeneChipName)) + (set gn:geoPlatform + (ontology 'geoSeries: + (string-trim-both (field GeneChip GeoPlatform)))))) ;; Molecular Traits are also referred to as ProbeSets (define-dump dump-probesetfreeze |