R/checkdiss.R

Defines functions checkdiss

## sanity checks for dissimilatiries (>=0)

checkdiss <- function(diss) {
  if (any(sapply(diss, function(d0) any(d0 < 0, na.rm = TRUE)))) stop("Dissimilarities should be non-negative!")
}

Try the smacof package in your browser

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

smacof documentation built on March 19, 2024, 3:09 a.m.