##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (x,value){nd<-length(dim(x))value<-c(value,rep("",nd))[1:nd]names(dimnames(x))<-valuex}