# NOT RUN {
eigenvaluesDemoFunction <- nimbleFunction(
setup = function(){
demoMatrix <- diag(4) + 2
},
run = function(){
eigenvalues <- eigen(demoMatrix)$values
returnType(double(1))
return(eigenvalues)
})
# }
Run the code above in your browser using DataLab