Nothing
MW2 <- function (U, V) {
TA <- table(U, V, useNA = "ifany")
stevec <-(sum(TA[is.na(rownames(TA)) == FALSE, is.na(colnames(TA)) == FALSE]*(TA[is.na(rownames(TA)) == FALSE, is.na(colnames(TA)) == FALSE]-1))/2)
imenovalec <- sum(TA*(TA-1))/2 + (sum(colSums(TA)**2) - sum(TA**2))/2
return(stevec/imenovalec)
}
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.