Nothing
gamma <- function(clust,dis,digits=5)
{
clust <- as.numeric(clustify(clust))
size <- length(clust)
bigsiz <- (size^2-size)/2
sd <- rep(0,bigsiz)
nd <- 0
nc <- 0
out <- .Fortran('gamma',
as.integer(clust),
as.double(dis),
as.integer(sd),
as.integer(size),
as.integer(bigsiz),
nc=as.integer(nc),
nd=as.integer(nd),
package='optpart')
res <- round((out$nc-out$nd)/(out$nc+out$nd),digits)
cat(paste(res,"\n"))
}
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.