explorations/globalsRewrite/example/simple.R

f =
function(x)
{
  alpha *x + beta
}

g =
function(y)
{
  y + rgamma(length(y), alpha)
}

main =
function(n, B = 999)
{
  replicate(B, { a = f(rnorm(n)); mean(g(a))})
}
duncantl/CodeAnalysis documentation built on Feb. 21, 2024, 10:49 p.m.