Displaying 1 result from an estimated 1 matches for "fpc_func".
Did you mean:
ac_func
2012 Jun 28
3
Storing results in a single file after looping over all files
...t;- strsplit(i, "\\.")[[1]]
of <- paste(head(of, 1))
data <- read.table(file=i, header=T)
y<-data$PHI
num<-length(y)
index1<-c(1:num_sample)[y==1]
index2<-c(1:num_sample)[y==0]
gen<-as.matrix(data[,-c(1:2)])
source("pcc.R") # a function for my use
out<- fpc_func(gen,num,index1,index2)
out1<-as.data.frame(out)
id1<-data[,2]
id<- as.data.frame(iid1)
out2<-cbind(iid1,out1)
colnames(out2)[2] <- of
}
write.table(out2, file="ALL.txt", append=T, col.names=T, row.names=F, quote=F, sep = "\t")
#######################
I can do...