Nothing
#' @rdname rand
#'
#' @export
"rand2" <-
function (clu1,clu2) #Hubert & Arabie
{
tab<-table(clu1,clu2)
1 + (sum(tab^2) - (sum(rowSums(tab)^2) + sum(colSums(tab)^2))/2)/choose(sum(tab), 2)
}
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.