zap TS::inte which is identical to cumusumover

Author: mohawk2

Changes

@@ -1,3 +1,5 @@
+- removed TS::inte which is identical to cumusumover
+
 0.84 2024-05-27
 - effect_code exception if only one unique value
 - fix for Distr so M_PI found - thanks @shawnlaffan

Kmeans/kmeans.pd

@@ -204,17 +204,14 @@ Takes data pdl dim [obs x var] and centroid pdl dim [cluster x var] and returns
 
 =for usage
 
-    perldl> $centroid = ones 2, 3
-    perldl> $centroid(0,) .= 0
-    perldl> p $centroid
+    perldl> p $centroid = xvals 2, 3
     [
      [0 1]
      [0 1]
      [0 1]
     ]
 
-    perldl> $b = qsort( random 4, 3 )
-    perldl> p $b
+    perldl> p $b = qsort( random 4, 3 )
     [
      [0.022774068 0.032513883  0.13890034  0.30942479]
      [ 0.16943853  0.50262636  0.56251531   0.7152271]

TS/ts.pd

@@ -163,11 +163,8 @@ pp_def('diff',
   Inplace   => 1,
   GenericTypes => [U,L,Q,F,D],
   Code  => '
-
 long tr;
-
 /* do it in reverse so inplace works */
-
 for (tr = $SIZE(t) - 1; tr >= 0; tr --) {
   if (tr) {
     $dx(t=>tr) = $x(t=>tr) - $x(t=>tr-1);
@@ -176,40 +173,11 @@ for (tr = $SIZE(t) - 1; tr >= 0; tr --) {
     $dx(t=>tr) = $x(t=>tr);
   }
 }
-
-  ',
-  Doc   => '
-=for ref
-
-Differencing. DX(t) = X(t) - X(t-1), DX(0) = X(0). Can be done inplace.
-
-=cut
-
 ',
-);
-
-pp_def('inte',
-  Pars  => 'x(n); [o]ix(n)',
-  Inplace   => 1,
-  GenericTypes => [L,Q,F,D],
-  Code  => '
-
-$GENERIC(x) tmp;
-tmp = 0;
-
-loop(n) %{
-  tmp += $x();
-  $ix() = tmp;
-%}
-
-  ',
   Doc   => '
 =for ref
 
-Integration. Opposite of differencing. IX(t) = X(t) + X(t-1), IX(0) = X(0). Can be done inplace.
-
-=cut
-
+Differencing. DX(t) = X(t) - X(t-1), DX(0) = X(0). Can be done inplace.
 ',
 );
 

t/stats_ts.t

@@ -54,7 +54,6 @@ sub tapprox {
 {
   my $a = sequence 5;
   is( tapprox( sum( $a->diff - pdl(0, 1, 1, 1, 1) ), 0 ), 1, "difference data on $a - DX(t) = X(t) - X(t-1)");
-  is( tapprox( sum( $a->diff->inte - $a ), 0 ), 1, "add data on $a - IX(t) = X(t) + X(t-1)");
 }
 
 {