R/strictDirection.R

Defines functions strictDirection

strictDirection <- function(X, lambda = 1) {
  S <- as.matrix(X)
  S[abs(S) < abs(t(S))] <- 0
  O <- (((1 - lambda) * X) + (lambda * S))
  O <- Matrix::Matrix(O)
  return(O)
}

Try the scTenifoldKnk package in your browser

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

scTenifoldKnk documentation built on Jan. 26, 2026, 1:07 a.m.