Nothing
findIndex <-
function (obsVector, dimens) {
cumDimens <- array(0, length(obsVector))
cumDimens[1] <- 1
for (i in 2:length(obsVector))
cumDimens[i] <- cumDimens[i-1] * dimens[i-1];
index <- sum(obsVector * cumDimens) + 1
return(index)
}
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.