有下面这一组向量数据：
> dat[,4]
[1]  2303266.5  2303266.5  2303266.5  2303266.5  2303266.5  2303266.5  2303266.5   155020.0   492669.3
[10]    80905.6  1563772.7   865457.6   655102.0   400811.8   153422.0   718759.8  3707780.0  1975500.0
[19]  1852217.0   613580.0   222429.3  1680822.6  1275105.2  1465927.0   699921.0   526885.2   558625.0
[28]  1336179.3  6870012.7   703798.2   757548.6  2015647.3  1024637.0    53278.4  1325487.2   299314.0
[37]   152890.4   682591.0  1207034.8  4695952.8  2861240.8  2839365.6  1177509.0 41900519.8  2763521.9
[46]   549088.4  4407012.2   407137.8  1328482.0  2303266.5  2303266.5  2303266.5  2303266.5  2303266.5
[55]    17495.0


想取其增长率，变成一组新的向量数据：x(t+1)/x(t) - 1, 在R中怎么实现呢？？ 十分感谢大家！！