powered by
If n is supplied, return the first n nonsingleton dimensions.
n
fnsd(a,n)
1
length(dim(a))
arev
a <- array(1:24,c(1,1,1,1,2,1,3,4)) fnsd(a) fnsd(a,2)
Run the code above in your browser using DataLab