Nothing
`implementInteractions.fnc` <-
function(m) {
nams = strsplit(colnames(m), ":")
for (i in 1:length(nams)) {
if (length(nams[[i]]) > 1) {
m[,i] = m[,nams[[i]][1]]
for (j in 2:length(nams[[i]])) {
m[,i] = m[,i]*m[,nams[[i]][j]]
}
}
}
return(m)
}
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.