R/obj_fun.R

Defines functions obj_fun

obj_fun <- function(x,aux) {
   FUN <- match.fun(aux$FUN)
   theta <- c(0,x)
   CC <- matrix(rep(theta,aux$n),nrow=aux$n)
   CC <- FUN(CC-t(CC))
   y <- sum((aux$R-CC)^2)
   return(y)
}

Try the Correlplot package in your browser

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

Correlplot documentation built on March 7, 2023, 8:33 p.m.