R中的反向cumprod

Tom*_*eif 3 r

你怎么扭转cumprodR?

x <- c(0.5, 0.3, 0.1)
a <- cumprod(1 - x)
Run Code Online (Sandbox Code Playgroud)

现在,我想再次x离开a.

ton*_*nov 5

1 - c(a[1], a[-1] / a[-length(a)])
[1] 0.5 0.3 0.1
Run Code Online (Sandbox Code Playgroud)