R/myGenInv.R

Defines functions `myGenInv`

`myGenInv` <-
function(x) 
{
  n <- dim(x)[1]
  nn <-1/n
  return(solve(x+nn)-nn)
}

Try the smacof package in your browser

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

smacof documentation built on May 6, 2022, 9:05 a.m.