andrawaag

CONSTRUCT {?concept a skos:Concept .
           ?concept skos:prefLabel ?label .
           ?concept skos:notation ?identifier .
           }
WHERE {
  ?concept a skos:Concept . 
  OPTIONAL { ?resource2 a gpml:requiresCurationAttention . FILTER(?resource2 = ?concept) }
  FILTER(!bound(?resource2))
  ?concept rdfs:label ?label .
  ?concept dc:identifier ?identifier.

andrawaag

construct {?identifier skos:relatedMatch ?relatedId .
           }
 where { 
      ?uniprotconcept dc:identifier ?identifier .
      ?uniprotconcept wp:bdbEnsembl ?relatedId .   
      }

andrawaag

CONSTRUCT {?concept a skos:Concept .
           ?concept skos:prefLabel ?label .
           ?concept skos:notation ?identifier .
           }
WHERE {
  ?concept a skos:Concept . 
  OPTIONAL { ?resource2 a gpml:requiresCurationAttention . FILTER(?resource2 = ?concept) }
  FILTER(!bound(?resource2))
  ?concept rdfs:label ?label .
  ?concept dc:identifier ?identifier.

andrawaag

a= 43;
If (a > 34) then
m=”1”;
elseif (a<3) then
m=”2”;
elseif (a<=34) then
m=”3”; else
m=”4”;

andrawaag

# Create subject and identify them with family URI
adam = familyUri["adam"]
beth = familyUri["beth"]
chuck = familyUri["chuck"]
dotty = familyUri["dotty"]
edward = familyUri["edward"]
fran = familyUri["fran"]
greg = familyUri["greg"]
harriet = familyUri["harriet"]

andrawaag

@fruit = ("apple", "banana", "orange", "kiwi");
foreach (@fruit) {
     print $_."\n";
}

andrawaag

%fruitcolor = ("apple", "red", "banana", "yellow", "orange", "orange", "kiwi", "brown");
print $fruitcolor{"apple"}."\n";
print $fruitcolor{"banana"}."\n";
print $fruitcolor{"orange"}."\n";
print $fruitcolor{"kiwi"}."\n";

andrawaag

open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
while ($line = <FILE>){
   @fields = split('\t', $line);
   if ($fields[2]<0){
    print $line;
}
   
}

andrawaag

open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
$counter = 0;
while ($line = <FILE>){
   @fields = split('\t', $line);
   if ($fields[2]<0){
    $counter = $counter + 1;
}
   
}
print $counter;

andrawaag

@fruit = ("apple", "banana", "orange", "kiwi");
print $fruit[0]."\n";
print $fruit[1]."\n";
print $fruit[2]."\n";
print $fruit[3]."\n";