用Cellfiles <- dir(pattern="CEL$")
for(i in 1:length(Cellfiles)){
file.rename(Cellfiles[i],paste(strsplit(Cellfiles[i],"_")[[1]][1],".CEL",sep=""))
}
Cellfiles <- dir(pattern="CEL$")
Cellfiles时报错