rindex <- 1:10
names (rindex) <- paste ("gene", rindex, sep = "")
rindex
annot <- list (paste ("gene", 1:2, sep = ""),          ##too small block
               paste ("gene", 1:6, sep = ""),          ##right size
               paste ("gene", 1:5, sep = ""),          ##too big block
               paste ("gene", c(1:3, 1:3), sep = ""))  ##duplicated IDs
annot[[2]][1] <- NA
annot[[2]][2] <- ""
annot[[2]][3] <- "BAD_ID"
annot
annotFilter (annot, minBlockSize = 3, maxBlockSize = 5)
annotFilter (annot, rindex, minBlockSize = 3, maxBlockSize = 5)Run the code above in your browser using DataLab