Skip to content

Instantly share code, notes, and snippets.

@gufodotto
Created July 8, 2012 01:10
Lorentz_ObjectiveFunction
library(FME)
Objective <- function(x, parset = names(x)) {
guess_pars[parset] <- x
tout <- seq(0, 50, by = 0.5)
## output times
bullet <- solveLorenz(guess_pars, tout)
## Model cost
return(modCost(obs = target, model = bullet))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment