R/ibskm.R

Defines functions ibskm

Documented in ibskm

ibskm <-
function(Z) 
   {
  n <-  nrow(Z)
    K <- 1 - as.matrix(dist(Z, method = "manhattan") * 0.5/max(1, ncol(Z)))
  return(K)
  }

Try the RKUM package in your browser

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

RKUM documentation built on June 22, 2022, 9:06 a.m.