R處理文件夾數據

setwd("C:/Users/cuiy/Desktop/ON") 

n<-list.files("DDR") 

l<-length(n) 

for(i in 1:l) 

{ 

f<-paste("C:/Users/cuiy/Desktop/ON/DDR/",n[i],sep="") 

data<-read.csv(file=f,head=F,sep=",") 

data$V15<-round(data[,7]/data[,5],4) 

write.csv(data,file=paste("C:/Users/cuiy/Desktop/ON/",n[i],sep="")) 

next
}