normalizeK <- function(K,dX,dY){ kVX = 1/sqrt(dX) kVY = 1/sqrt(dY) nK = K * (kVX %*% t(kVY)) return(nK) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.