altrepisode

library(altrepisode)

x <- doubles()
x[2]
#> [1] -1
.Internal(inspect(x))

#> @7fdf8fc54160 14 REALSXP g0c0 [NAM(3)] std::vector<double> (len=5, ptr=0x7fdf8d053080)

set.seed(2)
y <- rnorm(20)
y
#>  [1] -0.89691455  0.18484918  1.58784533 -1.13037567 -0.08025176
#>  [6]  0.13242028  0.70795473 -0.23969802  1.98447394 -0.13878701
#> [11]  0.41765075  0.98175278 -0.39269536 -1.03966898  1.78222896
#> [16] -2.31106908  0.87860458  0.03580672  1.01282869  0.43226515

# lazy abs version of y
abs_y <- lazy_abs(y)
.Internal(inspect(abs_y))

#> @7fdf8ff0a280 14 REALSXP g0c0 [NAM(3)] lazy(abs) (len=0)
#>   @7fdf8d0540c0 14 REALSXP g0c7 [NAM(3)] (len=20, tl=0) -0.896915,0.184849,1.58785,-1.13038,-0.0802518,...

# grab a single value
# that does not materialize the data
abs_y[1]
#> [1] 0.8969145
.Internal(inspect(abs_y))

#> @7fdf8ff0a280 14 REALSXP g0c0 [NAM(3)] lazy(abs) (len=0)
#>   @7fdf8d0540c0 14 REALSXP g0c7 [NAM(3)] (len=20, tl=0) -0.896915,0.184849,1.58785,-1.13038,-0.0802518,...

# but mean does
mean(abs_y)
#> [1] 0.8184071
.Internal(inspect(abs_y))

#> @7fdf8ff0a280 14 REALSXP g0c0 [NAM(3)] materialized lazy(abs) (len=0)
#>   @7fdf8d0540c0 14 REALSXP g0c7 [NAM(3)] (len=20, tl=0) -0.896915,0.184849,1.58785,-1.13038,-0.0802518,...
#>   @7fdf8d11d0f0 14 REALSXP g0c7 [] (len=20, tl=0) 0.896915,0.184849,1.58785,1.13038,0.0802518,...

# we can combine both
abs_x <- lazy_abs(x)
.Internal(inspect(abs_x))

#> @7fdf91a6d800 14 REALSXP g0c0 [NAM(3)] lazy(abs) (len=0)
#>   @7fdf8fc54160 14 REALSXP g0c0 [NAM(3)] std::vector<double> (len=5, ptr=0x7fdf8d053080)

mean(abs_x)
#> [1] 0
.Internal(inspect(abs_x))

#> @7fdf91a6d800 14 REALSXP g0c0 [NAM(3)] materialized lazy(abs) (len=0)
#>   @7fdf8fc54160 14 REALSXP g0c0 [NAM(3)] std::vector<double> (len=5, ptr=0x7fdf8d053080)
#>   @7fdf91a6a4f8 14 REALSXP g0c4 [] (len=5, tl=0) 2,1,0,1,2