Nothing
invertSpecial <-
function(alpha,beta,delta){
#Inverts a special matrix alpha*beta%*%rbind(beta)+diag(delta)
#alpha: scalar
#beta: p-vector
#delta: p-vector
DeltaI <- diag(1/delta)
gamma <- DeltaI%*%beta
DeltaI-gamma%*%t(gamma)/(sum(gamma*beta)+1/alpha)
}
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.