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)

}