#Condition

x = 30
if(x < 80){
  print("fail")
  print("you need to improve")
} else {
  print("pass")
  print("you are good")
}
[1] "fail"
[1] "you need to improve"

#Loop

for(i in 1:10){
print(i)
}
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

#For Loop

score = c(100,20,40,70,80)
for (s in score) {
  if(s >=50){
    cat(s, "pass \n")
  }
  else{
    cat(s, "fail \n")
  }
}
100 pass 
20 fail 
40 fail 
70 pass 
80 pass 

For getting charracter length

genes = c("dd", "dfgg", "hhhjk")
for (gene in genes) {
  cat(gene, nchar(gene), "\n")
  
}
dd 2 
dfgg 4 
hhhjk 5 
#If want numbering
i = 1
genes = c("dd", "dfgg", "hhhjk")
for (gene in genes) {
  cat(i, gene, nchar(gene), "\n")
  i = i+1
}
1 dd 2 
2 dfgg 4 
3 hhhjk 5 

#Charracter as a list

#A,B,C,...
for(i in LETTERS){
  print(i)
}
[1] "A"
[1] "B"
[1] "C"
[1] "D"
[1] "E"
[1] "F"
[1] "G"
[1] "H"
[1] "I"
[1] "J"
[1] "K"
[1] "L"
[1] "M"
[1] "N"
[1] "O"
[1] "P"
[1] "Q"
[1] "R"
[1] "S"
[1] "T"
[1] "U"
[1] "V"
[1] "W"
[1] "X"
[1] "Y"
[1] "Z"
#If want numbering
i = 1
genes = c("dd", "dfgg", "hhhjk")
for (gene in genes) {
  cat(i, LETTERS[i], gene, nchar(gene), "\n")
  i = i+1
}
1 A dd 2 
2 B dfgg 4 
3 C hhhjk 5 
LS0tDQp0aXRsZTogIkNvbmRpdGlvbmluZyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQojQ29uZGl0aW9uDQoNCmBgYHtyfQ0KeCA9IDMwDQppZih4IDwgODApew0KICBwcmludCgiZmFpbCIpDQogIHByaW50KCJ5b3UgbmVlZCB0byBpbXByb3ZlIikNCn0gZWxzZSB7DQogIHByaW50KCJwYXNzIikNCiAgcHJpbnQoInlvdSBhcmUgZ29vZCIpDQp9DQpgYGANCiNMb29wDQpgYGB7cn0NCmZvcihpIGluIDE6MTApew0KcHJpbnQoaSkNCn0NCmBgYA0KI0ZvciBMb29wDQpgYGB7cn0NCnNjb3JlID0gYygxMDAsMjAsNDAsNzAsODApDQpmb3IgKHMgaW4gc2NvcmUpIHsNCiAgaWYocyA+PTUwKXsNCiAgICBjYXQocywgInBhc3MgXG4iKQ0KICB9DQogIGVsc2V7DQogICAgY2F0KHMsICJmYWlsIFxuIikNCiAgfQ0KfQ0KYGBgDQojIEZvciBnZXR0aW5nIGNoYXJyYWN0ZXIgbGVuZ3RoDQpgYGB7cn0NCmdlbmVzID0gYygiZGQiLCAiZGZnZyIsICJoaGhqayIpDQpmb3IgKGdlbmUgaW4gZ2VuZXMpIHsNCiAgY2F0KGdlbmUsIG5jaGFyKGdlbmUpLCAiXG4iKQ0KICANCn0NCmBgYA0KDQpgYGB7cn0NCiNJZiB3YW50IG51bWJlcmluZw0KaSA9IDENCmdlbmVzID0gYygiZGQiLCAiZGZnZyIsICJoaGhqayIpDQpmb3IgKGdlbmUgaW4gZ2VuZXMpIHsNCiAgY2F0KGksIGdlbmUsIG5jaGFyKGdlbmUpLCAiXG4iKQ0KICBpID0gaSsxDQp9DQpgYGANCiNDaGFycmFjdGVyIGFzIGEgbGlzdA0KYGBge3J9DQojQSxCLEMsLi4uDQpmb3IoaSBpbiBMRVRURVJTKXsNCiAgcHJpbnQoaSkNCn0NCmBgYA0KDQoNCmBgYHtyfQ0KI0lmIHdhbnQgbnVtYmVyaW5nDQppID0gMQ0KZ2VuZXMgPSBjKCJkZCIsICJkZmdnIiwgImhoaGprIikNCmZvciAoZ2VuZSBpbiBnZW5lcykgew0KICBjYXQoaSwgTEVUVEVSU1tpXSwgZ2VuZSwgbmNoYXIoZ2VuZSksICJcbiIpDQogIGkgPSBpKzENCn0NCmBgYA0KDQoNCg0KDQoNCg==