correct expected ans

Author: jangorecki

inst/tests/froll.Rraw

@@ -1230,7 +1230,7 @@ test(6000.9604, frollprod(c(2,2,0,Inf,2), 2), c(NA,4,0,NaN,Inf))
 test(6000.9605, frollprod(c(2,2,0,-Inf,2), 2), c(NA,4,0,NaN,-Inf))
 test(6000.9606, frollprod(c(2,2,0,-Inf,-2), 2), c(NA,4,0,NaN,Inf))
 test(6000.9607, frollprod(c(0,2,2,2,2), 2), c(NA,0,4,4,4))
-test(6000.9608, frollprod(c(2,0,2,2,2), 2), c(NA,0,4,4,4))
+test(6000.9608, frollprod(c(2,0,2,2,2), 2), c(NA,0,0,4,4))
 
 # n==0, k==0, k[i]==0
 test(6001.111, frollmean(1:3, 0), c(NaN,NaN,NaN), options=c("datatable.verbose"=TRUE), output="window width of size 0")