## ----ex-sim, eval=FALSE-------------------------------------------------------
#  fit <- adjClust(k, type = "similarity")

## ----ex-sim2, eval=FALSE------------------------------------------------------
#  fit <- adjClust(k, type = "similarity", h = h)

## ----ex-dissim, eval=FALSE----------------------------------------------------
#  fit <- adjClust(d, type = "dissimilarity")

## ----ex-dissim-sparse, eval=FALSE---------------------------------------------
#  fit <- adjClust(d, type = "dissimilarity", h = h)