Nothing
# mygllm.r: interface to modified gllm
mygllm <- function(y,s,X,maxit=1000, tol=0.00001, E=rep(1,length(s)))
{
out <- .C(".mygllm_sym", as.integer(y), as.integer(s-1),
X=as.double(cbind(X,rep(0,nrow(X)))),
as.integer(maxit), as.double(tol), estimate=as.double(E),
length(s),length(y),ncol(X), PACKAGE="RecordLinkage")
return(out$estimate)
}
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.