Nothing
"Objt.LOE" <-
function(vecx, adm,P,C=1){
N <- nrow(adm)
X <- matrix(vecx,nrow=N,ncol=P)
tmpD <- make.distmat(X)
.Call("LOEobjt",
as.double(tmpD),
adm,
as.double( C )
)
}
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.