Displaying 1 result from an estimated 1 matches for "loc_ug".
2011 Jul 04
1
writeLines + foreach/doMC
...rovide the needed line to
be stored
library(doMC) # load library
registerDoMC(12) # assign the Number of CPU
fileConn<-file(paste(fq_file,"_SeqID.txt",sep=""),open = "at") # open
connection
writeLines(paste("ReadID","Freq","Seq","LOC_UG","Nb_UG_Seq",sep="\t"),
fileConn) # write header
foreach(i=1:length(uniq.Seq)) %dopar% # for eqch unique sequence
{
writeLines(paste(gettable1(uniq.Seq[i]),collapse=" "), fileConn) #write
the the results line
}
close(fileConn)
the code excute well, but the prob...