配列等を用いて、ある１変数に対するコードを、複数変数に変えたい。

https://hamaguri.sakura.ne.jp/nnet.htm
ここを参考に、

R
1library(nnet)
2train <- read.csv("sin9.csv",h=T)
3train
4plot(train)
5valid <- read.csv("sin2.csv",h=T)
6valid
7plot(valid)
8
9#size:中間層、maxit:くりかえし回数　size number of units in the hidden layer. Can be zero if there are skip-layer units.
10#それから，predの"type"で出力形式を指定します．通常は"class"でよい
11#predic.nnetのhelpより　If type = "raw", the matrix of values returned by the trained network;
12#if type = "class", the corresponding class
13#(which is probably only useful if the net was generated by nnet.formula). weights: 10
14
15sin1 <- nnet(data=train,output~input,size=3,maxit=2000);
16yosoku1 <- predict(sin1,valid,type="raw")

ここにはデータリスト、train,valid,sin1,yosoku1、更にはデータsin2.csv,sin9.csvが出てきますが、これらをpythonでいう配列等の形にして（配列より良いものがあれば、それを用いたい）、複数の値を入力して、複数のyosoku1を作りたい（例えば、今train１個であるが、train[0],train[1],train[2]・・・等として、valid,sin1,yosoku1等も[0],[1],[2],・・・と連番を振り、ファイル名にも、sin[0],[1],[2]・・・cos[0],[1],[2]・・・等と連番を振る）のですが、
配列？を用いて、forで回す（foreachみたいなの使う？）、のが最適でしょうか？他に良い方法があれば教えて下さい、
また配列をforで回す、コードも教えて頂ければ幸いです。

forとデータリストをリスト化したもの、を使って連番にして入れていく方法が未だに分かりません・・・
リストにせず、sprintfと%sとかいうのを使って、変数名の一部を動的に変化させていっています・・・。

ベストアンサーを付けるのが遅いのは、まだアンサーを考えている人がいるかも知れないという思いからです。