R/TV1.R
In R1magic: Compressive Sampling: Sparse Signal Recovery Utilities

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

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

R1magic documentation built on Aug. 27, 2023, 5:07 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the R1magic package in your browser