Nothing
Hbeta2.fun <-
function(ord.z,ord.bz,Rt,r,p,ord.wt){
a = matrix(0,nrow=p,ncol=p)
for(j in 1:p){
for(k in 1:p){
a[j,k] = -sum(ord.wt*as.numeric(ord.z[,j])*as.numeric(ord.z[,k])*Rt*exp(-ord.bz)/(1+r*Rt*exp(-ord.bz)))
}
}
return(a)
}
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.