Use Case: Simulation

In reproducibleRchunks: Automated Reproducibility Checks for R Markdown Documents

knitr::opts_chunk$set(echo = TRUE)
library(reproducibleRchunks)

Simulate Data

my_fun <- function(N, r, ...) {
  N<-100
  r=0
  data <- MASS::mvrnorm(n=N, mu=c(0,0), Sigma=matrix(c(1,r,r,1),nrow=2))
  cor(data[,1],data[,2])
}

conditions <- expand.grid(N=c(50,100),r=c(0,0.25,0.5), iter=1:10)
results <- apply(conditions, 1, function(row) {
  do.call(my_fun, as.list(row))
})

reproducibleRchunks documentation built on Aug. 8, 2025, 6:38 p.m.