Nothing
SNAL <-
function(y,G,P,a,s2){
P=data.matrix(P)
Z=data.matrix(G)
X=Z%*%P
ZZ=Z%*%t(Z)
V=(a*ZZ+diag(length(y)))
W=matrix.invroot.calculation(V)
Y=W%*%y
Phi=W%*%X
results=SNAL.calculation(Y,Phi,s2)
results
}
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.