inst/examples/linreg_parallel.R

In TMB: Template Model Builder: A General Random Effect Tool Inspired by 'ADMB'

library(TMB)
dyn.load(dynlib("linreg_parallel"))

## Simulate data
set.seed(123)
x <- seq(0, 10, length.out = 50001)
data <- list(Y = rnorm(length(x)) + x, x = x)
parameters <- list(a=0, b=0, logSigma=0)

## Fit model
obj <- MakeADFun(data, parameters, DLL="linreg_parallel")
opt <- nlminb(obj$par, obj$fn, obj$gr)