R/diagABA.R

Defines functions diagABA

diagABA <- function(A, B){
  D <- B
  D[lower.tri(D, diag=FALSE)] <- 0
  D[upper.tri(D, diag=FALSE)] <- 2*D[upper.tri(D, diag=FALSE)]
  D <- (A%*%D)*A
  rowSums(D)
}

Try the DiceKriging package in your browser

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

DiceKriging documentation built on Feb. 24, 2021, 1:07 a.m.