Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if(length(bins.oben[[1]])>=length(bins.oben[[2]])){
- tag.oben <- TRUE
- sno.tagging.oben <- append(sno.tagging.oben, colnames(current.col))
- print.oben <- collect.mRNA.genes.CDbox[bins.oben[[1]],4]
- abstand.oben <- 0
- for (o in 2:number.bins){
- if(length(bins.oben[[o]]) == 0){
- abstand.oben <- abstand.oben+1
- }
- else{
- break
- }
- }
- collect.abstand.oben[i] <- abstand.oben
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement