inst/sampleCode/stochastic.R

x = 1:10
fib = function(n) if(n < 2) n else fib(n-1) + fib(n -2)
x.fib = sapply(x, fib)
z = rnorm(length(x))
y = 2*x.fib + z
f1 = lm(y ~ x)
f2 = lm(y ~ x.fib)
duncantl/CallCounter documentation built on Nov. 23, 2023, 3:38 p.m.