R/mfunc.r

Defines functions mfunc

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

Try the anacor package in your browser

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

anacor documentation built on June 10, 2022, 5:09 p.m.