r - Rでcumprod()を使用してリターンのインデックスを作成するための初期値を設定する方法は?

Question

ある期間にわたって一連の返品があります。たとえば、毎日の返品としましょう。

> Z <-cbind(rnorm(10)*.01)
> Z
               [,1]
 [1,] -0.0095401182
 [2,]  0.0119037893
 [3,]  0.0001539471
 [4,] -0.0087361367
 [5,] -0.0127281577
 [6,] -0.0031177198
 [7,] -0.0041689219
 [8,] -0.0066547279
 [9,]  0.0156863175
[10,] -0.0126733237

次に、cumprod() を使用して投資インデックスを作成します。これは、リターン シリーズ Z に基づく初期 $1 投資のリターンを表します。

> ZZ <-cbind((cumprod(1+Z)*1))
> ZZ
           [,1]
 [1,] 0.9904599
 [2,] 1.0022501
 [3,] 1.0024044
 [4,] 0.9936473
 [5,] 0.9810000
 [6,] 0.9779415
 [7,] 0.9738645
 [8,] 0.9673837
 [9,] 0.9825584
[10,] 0.9701061 

結果の出力が 1.00 の初期値を示すように、インデックス ZZ を作成するためのコードを編集するにはどうすればよいですか?