a<-readLines("C:/Users/Zhangjs/Desktop/sty2.txt")
category_name <- list.files()
dir = paste("./",category_name,sep="")
n = length(dir)
for(i in 1:n){
data<-readLines(dir[i])
c <- c(a,data)
write.table(c,paste0("F:/佳敏的课题/3_QuantiSNP/Output_Data/500K_GSE74704_LRR_BAF/",category_name[i],".txt"),
quote=F,row.names=F,col.names=F)
print(i)
}
