“if” Statements and “for” Loops

…
  if(flag.invitro == 0) {
     for(a in 1:count.len)
        counts[a, 1] <- (as.numeric(starter.file[a]/(RF*(as.numeric(std))))*100000
     dput(counts, paste(string, "counts.blood", sep = ""))
   }
  else {
   for(a in 1:count.len)
     counts[a, 1] <- (as.numeric(starter.file[a]))
  }
  ......
}
		

Transcript

IF THEN ELSE statements work as we expect.  IF with blocks ELSEs with blocks. You can have FOR loops.  etc.