Nothing
"IndexToSet" <-
function(set.index) {
E <- if (any(set.index == 0)) which(set.index == 0)
else NULL
L <- if (any(set.index == -1)) which(set.index == -1)
else NULL
R <- if (any(set.index == 1)) which(set.index == 1)
else NULL
obj <- list(Elbow = E, Left = L, Right = R)
obj
}
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.