Nothing
genericvcnames <-
function(x)
# genericvcnames() - find the variance component part of a specific vc name
# x is a vector of specific vc names
{
gvcname <- rep(0,length(x))
for( i in 1:length(x)) {
colons <- which(strsplit(x[i],"")[[1]] == ":")
if(length(colons) == 0) {
gvcname[i] <- x[i]
}
else {
lastcolon <- colons[length(colons)]
bracket <- which(strsplit(x[i],"")[[1]] == "(")
if ( lastcolon > bracket) {
lastcolon <- colons[length(colons)-1]
}
gvcname[i] <- substr(x[i],lastcolon+1,nchar(x[i]))
}
}
return(gvcname)
}
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.