Add a useful package (from Source forge) for octave

[CreaPhase.git] / octave_packages / dataframe-0.9.1 / @dataframe / ndims.m

diff --git a/octave_packages/dataframe-0.9.1/@dataframe/ndims.m b/octave_packages/dataframe-0.9.1/@dataframe/ndims.m
new file mode 100644 (file)
index 0000000..f380e46
--- /dev/null
+++ b/octave_packages/dataframe-0.9.1/@dataframe/ndims.m
@@ -0,0 +1,12 @@
+function resu = ndims(df)
+  %# -*- texinfo -*-
+  %# @deftypefn {Function File} ndims(@var{df})
+  %# overloaded function implementing ndims for a dataframe
+  %# @end deftypefn
+
+  resu = 2;
+  nseq = max(cellfun(@length, df._rep));
+
+  if nseq > 1, resu = 3; endif
+
+endfunction