R/func1.R

Defines functions func1

#' @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)
}

Try the marqLevAlg package in your browser

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

marqLevAlg documentation built on March 31, 2023, 6:33 p.m.