R/Parameters_estimation.R

Defines functions .Parameters_estimation

.Parameters_estimation <- function(Jacobian_M,vsolution){

  # Parameters estimation
  param <- pseudoinverse(Jacobian_M, tol=sqrt(.Machine$double.eps)) %*% as.vector(vsolution)

  return(param)
}

Try the HSPOR package in your browser

Any scripts or data that you put into this service are public.

HSPOR documentation built on Sept. 3, 2019, 9:05 a.m.