Nothing
updateR <- function(S,L,Sigmahat,Gamma,rho){
C <- S-L-(Sigmahat+Gamma)/rho
a <- eigen(C)
D <- diag(a$values)
U <- a$vectors
R <- 1/2*U%*%(D+sqrt(D*D+4/rho*diag(rep(1,nrow(Sigmahat)))))%*%t(U)
return(R)
}
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.