Nothing
get.polymorph <- function(matr){
#count1 <<- 0
poly <- apply(matr,2,function(x){
# cat(count1,"\n")
# count1 <<- count1 + 1
return(length(unique(x))!=1)
})
return(which(poly))
}
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.