Nothing
'make.v'<-function(n,r,sig2){
out<-matrix(r,n,n)
for (i in 1:n){
out[i,i]<-1
}
out<-sig2*out
return(out)
}
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.