Displaying 1 result from an estimated 1 matches for "xxuniqu".
Did you mean:
xxunique
2010 May 20
1
computer out of memory when using sigpathway
...t;chr1.txt",header=FALSE,sep="\t")
attach(x)
x$group <- paste(V2,V3,sep="_")
group <- x$group
y <- data.frame(group,V2,V3,V4)
xx <- as.list(group)
xx <- xx[!is.na(xx)]
xx <- unlist(xx)
xxUnique <- unique(xx)
yy <- vector("list",length(xxUnique))
for(i in 1:length(yy))
{
MT <- "MT_lab"
yy[[i]] <- list(src=MT,title=xxUnique[i],probes=as.character(y[group==xxUnique[i],]$V4))
}
#the following...