add_estimation_function_to_model: Add an estimation function to a model
In jmstrat/NMR.Utils: Importing and processing Bruker NMR data

Description Usage Arguments Value Details Examples

This function adds an estimation function to a model.

1	add_estimation_function_to_model(model, estimation_function)

model

The model object to which the estimation function should be added (see details)

The model object

The model function recieves the scan number, initial guess and xy data. It should return a list of parameter estimates (can be a sparse list)

# estimates the height of a peak based on the intensity at its (guessed) centre
guess_height <- function(n, guess, xy) {
  guess_height <- rev(xy[[2]])[findInterval(guess$centre, rev(xy[[1]]))]
  list(height=guess_height)
}
add_estimation_function_to_model(model, guess_height)