Displaying 1 result from an estimated 1 matches for "noncg".
Did you mean:
nonce
2011 Oct 28
0
Help with increasing the speed of script
...o questions regarding the same script:
#################################################
data <- vector('list', 24)
splc <- vector('list',24)
df.summ <- vector('list',24)
for (i in 1:length(chrData))
{
data[[i]] <- read.table(file=paste('chr',i,'.nonCG.covered.out',sep=''),
header=F)
colnames(chrData[[i]])<-c("chr","start","end","tot","methy")
splc[[i]]<-split(data[[i]], paste(data[[i]]$chr, data[[i]]$start,
data[[i]]$end))
df.summ[[i]]<-as.data.frame(t(sapply(splc...