R/to.shape.R

Defines functions `to.shape`

`to.shape`<-function(M,determ=NULL,trace=NULL,first=NULL)
{
 if(all(is.null(determ),is.null(trace),is.null(first))) 
  return(M/det(M)^(1/dim(M)[2]))
 if(is.numeric(determ))
  return(M*(determ/det(M))^(1/dim(M)[2]))
 if(is.numeric(trace))
  return(M*trace/sum(diag(M)))
 M*first/M[1,1]
}

Try the SpatialNP package in your browser

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

SpatialNP documentation built on March 18, 2022, 8:02 p.m.