Nothing
tupels<- function(dims){
n <- length(dims)
lastDimIndeces <- 1:dims[[n]]
if(n==1){
tupels <- lastDimIndeces
}else{
others <- tupels(dims[1:(n-1)])
tupels <- list()
for (i in lastDimIndeces){
tupels <-append(tupels,lapply(others,function(tup){
newtup <- c(tup,i)
return(newtup)
}))
}
}
return(tupels)
}
test <- tupels(c(2,3,4))
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.