R/normalizeK.R

Defines functions normalizeK

normalizeK <- function(K,dX,dY){
 
  kVX = 1/sqrt(dX)
  kVY = 1/sqrt(dY)
  nK = K * (kVX %*% t(kVY))
  
  return(nK)
  
}
ericstrobl/DDR documentation built on Nov. 6, 2022, 3:38 p.m.