Repeat an expression multiple times and (optionally) stack the results.

Repeat an expression (usually involving random number generation) multiple times. Optionally, organize the results into a data.frame that stacks the output from all replications of the expression.

Usage

repeat_and_stack(n, expr, id = NULL, stack = TRUE)

Arguments

n: Number of times to repeat the expression
expr: An expression to be evaluated.
id: Character string to use for creating a variable with a unique identifier for each repetition. If set to NULL (the default), then no identifier is created.
stack: Logical value indicating whether to organize the results into a data.frame.

Value

If stack = TRUE (the default), the results of each evaluation of expr will be stacked together using rbind and a unique identifier will be stored in the variable id (if specified). If stack = FALSE, a list of length n with entries corresponding to the output of each replication of expr, with names corresponding to the unique identifier (if specified)

Examples

repeat_and_stack(n = 3, data.frame(x = rexp(2)))
#>           x
#> 1 0.6993889
#> 2 0.1802598
#> 3 0.4364060
#> 4 2.9640214
#> 5 2.6859047
#> 6 0.5160765
repeat_and_stack(n = 3, data.frame(x = rexp(2)), id = "ID")
#>   ID          x
#> 1  1 0.43494982
#> 2  1 1.25056845
#> 3  2 0.04620374
#> 4  2 0.34424903
#> 5  3 1.23769849
#> 6  3 1.40667213

repeat_and_stack(n = 3, data.frame(x = rexp(2)), stack = FALSE)
#> [[1]]
#>          x
#> 1 1.829160
#> 2 1.101649
#> 
#> [[2]]
#>          x
#> 1 0.234430
#> 2 1.332338
#> 
#> [[3]]
#>           x
#> 1 0.4213795
#> 2 1.2648624
#> 
repeat_and_stack(n = 3, data.frame(x = rexp(2)), id = "ID", stack = FALSE)
#> $`1`
#>           x
#> 1 0.2104247
#> 2 0.4283194
#> 
#> $`2`
#>            x
#> 1 1.39053525
#> 2 0.08336016
#> 
#> $`3`
#>           x
#> 1 0.1163788
#> 2 1.3802114
#>