diff options
Diffstat (limited to 'examples/molecular-traits.scm')
| -rwxr-xr-x | examples/molecular-traits.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/examples/molecular-traits.scm b/examples/molecular-traits.scm index 7bec8ee..43b36b7 100755 --- a/examples/molecular-traits.scm +++ b/examples/molecular-traits.scm @@ -72,6 +72,7 @@ (inner-join Tissue "ON ProbeFreeze.TissueId = Tissue.Id") (inner-join AvgMethod "ON AvgMethod.AvgMethodId = ProbeSetFreeze.AvgID") (inner-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name") + (inner-join Datasets "ON InfoFiles.DatasetId = Datasets.DatasetId") (left-join GeneChip "ON GeneChip.Id = InfoFiles.GeneChipId")) "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey'") (schema-triples @@ -154,17 +155,17 @@ "" (sanitize-rdf-string experiment-type)))) (set gnt:has_tissue_info (let ((tissue-info - (field InfoFiles About_Tissue))) + (field Datasets AboutTissue))) (if (or (null? tissue-info) (string-blank? tissue-info)) "" (sanitize-rdf-string tissue-info)))) (set gnt:has_summary (let* ((summary - (field InfoFiles Summary))) + (field Datasets Summary))) (if (or (null? summary) (string-blank? summary)) "" (sanitize-rdf-string summary)))) (set gnt:has_citation (let ((citation - (field InfoFiles Citation))) + (field Datasets Citation))) (if (or (null? citation) (string-blank? citation)) "" (sanitize-rdf-string citation)))) (set gnt:has_samples @@ -179,27 +180,27 @@ "" (sanitize-rdf-string specifics)))) (set gnt:has_case_info (let ((cases - (field InfoFiles About_Cases))) + (field Datasets AboutCases))) (if (or (null? cases) (string-blank? cases)) "" (sanitize-rdf-string cases)))) (set gnt:has_platform_info (let* ((platform - (field InfoFiles About_Array_Platform))) + (field Datasets AboutPlatform))) (if (or (null? platform) (string-blank? platform)) "" (sanitize-rdf-string platform)))) (set gnt:has_data_processing_info (let* ((processing - (field InfoFiles About_Data_Values_Processing))) + (field Datasets AboutDataProcessing))) (if (or (null? processing) (string-blank? processing)) "" (sanitize-rdf-string processing)))) (set gnt:has_experiment_design (let ((experiment-design - (field InfoFiles Overall_Design))) + (field Datasets ExperimentDesign))) (if (or (null? experiment-design) (string-blank? experiment-design)) "" (sanitize-rdf-string experiment-design)))) (set gnt:has_contributors (let ((contributors - (field InfoFiles Contributor))) + (field Datasets Contributors))) (if (or (null? contributors) (string-blank? contributors)) "" (sanitize-rdf-string contributors)))))) |