Displaying 1 result from an estimated 1 matches for "spotidname".
2006 Jan 24
9
Number of replications of a term
...mized :
repVector <- function(obj){
# order IDName
ord <- gif.indexByIDName(obj)
ordobj <- obj[ord,]
nspots <- nrow(obj)
# vector of spot replicates number
spotrep <- rep(NA, nspots )
# function to get ID:Name for a given spot
spotidname <- function(ind){
paste(ordobj$genes[ind, c("ID","Name") ], collapse=":")
}
spot <- 1
while( spot < nspots ){
i<-1
while( spotidname(spot) == spotidname(spot + i) ){
i <- i + 1...