R/medc.R

In RKUM: Robust Kernel Unsupervised Methods

Defines functions medc

Documented in medc

medc <-
function(A,fn=sqrt) 
 {
   e<-eigen(A)
   y<-e$vectors
   v<-e$values
   return(tcrossprod(y%*%diag(fn(v)),y))
 }

Try the RKUM package in your browser