remove PMCode from acf() definition

Author: duffee

lib/PDL/Stats/TS.pd

@@ -48,8 +48,9 @@ pp_addhdr('
 );
 
 pp_def('acf',
-  Pars  => 'x(t); [o]r(h)',
-  OtherPars => 'IV lag=>h',
+  Pars  => 'x(t); [o]r(h=CALC($COMP(lag) < 0 ? $SIZE(t) : $COMP(lag) + 1))',
+  OtherPars => 'IV lag',
+  OtherParsDefaults => { lag => -1 },
   GenericTypes => $F,
   Code  => '
 $GENERIC(x) s, s2, m, cov0, covh;
@@ -75,14 +76,6 @@ loop (h) %{
   }
 %}
 ',
-  PMCode => pp_line_numbers(__LINE__, <<'EOF'),
-sub PDL::acf {
-  my ($self, $h) = @_;
-  $h //= $self->dim(0) - 1;
-  PDL::_acf_int($self, my $r = PDL->null, $h+1);
-  $r;
-}
-EOF
  Doc => <<'EOD',
 =for ref
 

t/ts.t

@@ -79,7 +79,6 @@ subtest 'acf and acvf with lags' => sub {
 
   note 'Take autocorrelation on higher order pdls to be a collection of 1D arrays';
   is_pdl $m->acvf(4), $acvf->slice('0:4')->dummy(1,2), "acvf is the same for both rows of sequence(10,2)";
-
 };
 
 done_testing();