R/dimnamer.r

In salad: Simple Automatic Differentiation

# fonction pour produire les noms des variables dans dual()
dimnamer <- function(dims) {
  if(length(dims) == 1) 
    as.character(seq_len(dims[1]))
  else
    as.vector( outer(sprintf("%d.",seq_len(dims[1])), dimnamer(dims[-1]), paste0 ) )
}