Skip to content

Instantly share code, notes, and snippets.

@gufodotto

gufodotto/gist:3068849

Created July 8, 2012 01:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save gufodotto/3068849 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save gufodotto/3068849 to your computer and use it in GitHub Desktop.
Download ZIP
Lorentz_ObjectiveFunction
Raw
gistfile1.r
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