density <- 0.5
voxel_size <- 5 # micrometers
withr::with_seed(1234, {
out <- simulate_bundle(density, voxel_size)
})
# Actual density in the simulated substrate
sum(out$sections[, "r"]^2 * pi) / voxel_size^2
Run the code above in your browser using DataLab