test(n, identical(...)) in froll.Rraw #3371

$ grep "test.*identical" froll.Rraw
test(9999.120, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.121, identical(frollmean(x, n, algo="exact"), ma(x, n)))
test(9999.122, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.123, frollmean(x, n, algo="exact"), ma(x, n)) # use do not use identical as NaN-NA behaviour is platform/compiler specific #3353
test(9999.124, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.125, identical(frollmean(x, n, algo="exact"), ma(x, n)))
test(9999.126, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.127, identical(frollmean(x, n, algo="exact"), ma(x, n)))
test(9999.128, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.129, identical(frollmean(x, n, algo="exact"), ma(x, n)))
test(9999.130, identical(frollmean(x, n), ma(x, n, nf.rm=TRUE)))
test(9999.131, identical(frollmean(x, n, algo="exact"), ma(x, n)))
test(9999.159, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.160, identical(frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)))
test(9999.161, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.162, frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)) # use do not use identical as NaN-NA behaviour is platform/compiler specific #3353
test(9999.163, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.164, identical(frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)))
test(9999.165, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.166, identical(frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)))
test(9999.167, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.168, identical(frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)))
test(9999.169, identical(frollmean(x, n, adaptive=TRUE), ama(x, n, nf.rm=TRUE)))
test(9999.170, identical(frollmean(x, n, algo="exact", adaptive=TRUE), ama(x, n)))