R/TV1.R

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

Defines functions TV1

Documented in TV1

TV1 <- function(x) {
 # Part of R1Magic by mehmet.suzen@physics.org
 n <-length(x)
 return( sum(abs(x[1:n-1]-x[2:n]) ) )
}