R/objective1TV.R

In msuzen/R1magic: Compressive Sampling: Sparse Signal Recovery Utilities

Defines functions objective1TV

Documented in objective1TV

objective1TV <- function(x,T,phi,y,lambda) {
  # Part of R1Magic by mehmet.suzen@physics.org
  X  <- T %*% x
  OF <- norm( phi %*% X - y , c("F") ) ^ 2 +  lambda * TV1 (X)
 return (OF)
}