Nothing
RDC <- function(GMask, Y){
Y <- as.factor(Y)
levels(Y) = c(1,2)
Relative.DC <- max.col(cbind(rowSums(GMask[,Y == 1])/sum(Y == 1), rowSums(GMask[,Y == 2])/sum(Y == 2)))
return(Relative.DC)
}
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.