R语言- for循环

Python029

R语言- for循环,第1张

for循环结构语法：

其中var表示循环变量，seq为向量，expr为执行的语句。

例1 下面我们通过for循环来计算

因此

例2 Fibonacc数列为： ，求Fibonacc数列前50项的和。

运行结果

因此Fibonacc数列前50项的和为32951280098。

我的建议是可能要大改整个程序：用一个list（比如叫data.list）把所有data frame或者之类的东西装起来，用的时候用data.list[[i]]来取出第i个data frame。用sqldf的时候，第一个和第三个可以用paste来写命令，第二个和第四个可能需要先用一个data frame（比如叫data）来暂时存储data.list里的一个data frame再操作sqldf。总的来说像这样（没怎么用过SQL，可能有问题）：

dataold_list<-dataold.list<-datanew_list<-datanew.list<-vector("list",100)

for(i in 1:100){

    dataold_list[[i]]<-sqldf(paste("select * from Dataold a,num",i," b

                    where a.LOAN_NO=b.LOAN_NO",sep=""))

    dataold_list[[i]]<-dataold_list[[i]][,-1]

    data<-dataold_list[[i]]

    dataold.list[[i]]<-sqldf("select * from a,data b

                      where a.LOAN_NO=b.LOAN_NO")

    datanew_list[[i]]<-sqldf(paste("select * from Datanew a,num",i," b

                           where a.LOAN_NO=b.LOAN_NO",sep=""))

    datanew_list[[i]]<-dataold_list[[i]][,-1]

    data<-datanew_list[[i]]

    datanew.list[[i]]<-sqldf("select * from a,data b

                       where a.LOAN_NO=b.LOAN_NO")

}