我问下面这个for语句我是想让输出16个文档，但是最后只输出了第16个是为什么呀？
y<- read.table("clipboard", header = T, sep = "\t")
PRCP<-y[,c(3:18)]*0.1
TMED<-y[,c(19:34)]*0.1
lab<- read.table("clipboard")
for(i in 1:16)
{PRCP$PET<-thornthwaite(TMED[,i],lab[,i],na.rm=TRUE);
ll<-spei(PRCP[,i]-PRCP$PET,1,na.rm=TRUE)$fitted
write.csv(ll,file="11.csv")}