Nothing
#Function to multiply a square matrix, X, with a diagonal matrix, diag(d)
multdiag <- function(X,d){
R=matrix(NA,nrow=dim(X)[1],ncol=dim(X)[2])
for (i in 1:dim(X)[2]){
R[,i]=X[,i]*d[i]
}
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.