R/conv_H2T.R

Defines functions conv_H2T

conv_H2T <- function(H, w_max) {
  K <- nrow(H) + 1
  Nd <- cbind(rep((K + 1):(2 * K - 1), each = 2), as.vector(t(H[, 1:2])))
  W_norm <- H[, 3] / max(H[, 3])
  conv_Nd2T(Nd, W_norm, w_max)
}

Try the MADMMplasso package in your browser

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

MADMMplasso documentation built on April 3, 2025, 10:53 p.m.