Nothing
`getKnots.fnc` <-
function(colnms, xlb) {
pos = grep(paste("rcs\\(", xlb, ",", sep=""), colnms)
tmp = strsplit(colnms[pos[1]], ")")[[1]][1]
return(as.numeric(strsplit(tmp, " ")[[1]][2]))
}
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.