ext2EntrezID <-
function(x){
x.EntrezID <- rep(0, length = length(x))
for(i in 1:length(x)){
x.EntrezID[i] <- unlist(strsplit(x[i], split = "[.]"))[2]
}
x.EntrezID
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.