Dear all, 


Could anyone help me annotate and decode the below codes?
Many thanks in advance.
Best,


coverage.col <- rep(0, length(mean))
coverage.col[coverage=="a"] <-  rainbow(50)[30]
coverage.col[coverage=="b"] <-  rainbow(50)[15]
coverage.col[coverage=="c"] <- rainbow(50)[8]
coverage.col[coverage=="d"] <-  rainbow(50)[46]

 
what does it mean by (50)[30] et al.?
what will be happend after using these codes?

Based on what they could be selected?


and also:
if(variable=="a" & fOnly==0){
  NF  <- length(unique(uid[fasting==1]))
  NnF <- length(unique(uid[fasting==0]))
}
	[[alternative HTML version deleted]]

