非常に初歩的な質問で恐縮なのですが、ループを用いて複数のオブジェクトに処理を施す方法に関して質問があります。

x1, x2, x3, ... ,xn

というxtsオブジェクトがあるとき、

vx1, vx2, ..., vxn

という複数のベクトルをつくろうとして

i <- 1
for (i in 1:n)
{
 vx[i] <- as.vector(x[i])
 i <- i+1
}

としてみました。がうまくいきませんでした。 コードに誤りや勘違いがありましたらご指摘お願いします。