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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.