R/func1.R

In VivianePhilipps/marqLevAlgParallel: A Parallelized General-Purpose Optimization Based on Marquardt-Levenberg Algorithm

#' @noRd
func1 <- function(b,rl1,rl,delta,ni,maxiter)
{
	cb <- abs(rl1-rl)
	ca <- 0
	ca <- sum(delta*delta)
	b <- b+delta
	ni <- ni+1
	result <- list(ca=ca,cb=cb,b=b,ni=ni)
}