R/checkrows.R

Defines functions checkrows

# Make sure that no two rows of A are the same (this
# works with probability one).

checkrows <- function(A) {
  b = rnorm(ncol(A))
  a = sort(A%*%b)
  if (any(diff(a)==0)) return(TRUE)
  return(FALSE)
}

Try the genlasso package in your browser

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

genlasso documentation built on Aug. 22, 2022, 9:09 a.m.