Nothing
covCrosCor <- function(rhojk, rhohm, rhokh, rhokm, rhojh, rhojm)
{
rhokj <- rhojk
rhomh <- rhohm
AU <- 1/(2*(1-rhojk^2)*(1-rhohm^2)) * (
(rhojh - rhojk*rhokh)*(rhokm - rhokh*rhohm) +
(rhojm - rhojh*rhohm)*(rhokh - rhokj*rhojh) +
(rhojh - rhojm*rhomh)*(rhokm - rhokj*rhojm) +
(rhojm - rhojk*rhokm)*(rhokh - rhokm*rhomh))
return(AU)
}
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.