Nothing
`symmsign.shape` <- function(X, init=NULL, steps=Inf, eps=1e-6, maxiter=100, na.action=na.fail)
{
X<-na.action(X)
X<-as.matrix(X)
n<-dim(X)[1]
p<-dim(X)[2]
if(p==1) return(diag(1))
if (is.null(init)) init<-covshape(X)
else init<-to.shape(init)
if(is.finite(steps)) maxiter<-Inf
iter<-0
V<-init
while(TRUE)
{
if(iter>=steps) return(V)
if(iter>=maxiter) warning("maxiter reached")
iter<-iter+1
sqrtV<-mat.sqrt(V)
V.new<-sqrtV%*%SSCov(X%*%solve(sqrtV))%*%sqrtV
V.new<-to.shape(V.new)
if(all(is.infinite(steps),mat.norm(V.new-V)<eps)) return(V.new)
V<-V.new
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.