R/ls.obj.R

Defines functions ls.obj

ls.obj <-
function(delta, g = runif(9), Mavg = matrix(0.1,9,9)) {
  sum(g*g) - 2*as.numeric(g%*%Mavg%*%delta) + as.numeric(delta%*%t(Mavg)%*%Mavg%*%delta)
}

Try the Jacquard package in your browser

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

Jacquard documentation built on Sept. 17, 2024, 5:09 p.m.