diff options
Diffstat (limited to 'macros/xcov1.sci')
| -rw-r--r-- | macros/xcov1.sci | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/macros/xcov1.sci b/macros/xcov1.sci new file mode 100644 index 0000000..4c1f37e --- /dev/null +++ b/macros/xcov1.sci @@ -0,0 +1,17 @@ +function [R,lag] = xcov1(X, Y, biasflag) + +funcprot(0); +rhs = argn(2) +if(rhs<1 | rhs>3) +error("Wrong number of input arguments."); +end + + select(rhs) + case 1 then + [R,lag] = callOctave("xcov",X); + case 2 then + [R,lag] = callOctave("xcov",X,Y); + case 3 then + [R,lag] = callOctave("xcov",X,Y,biasflag); + end +endfunction |