view release on metacpan or  search on metacpan

lib/DSP/LinPred_XS.pm  view on Meta::CPAN

    push(@$estimated,$x_est);
    pop(@$x_stack);
  }
  shift(@$estimated);
  return($estimated);
}

# update only
# x should be array reference

sub update{
  my $self = shift;
  my $x = shift;
  my $h_length = $self->h_length;
  my $h = $self->h;
  my $x_stack = $self->x_stack;
  
  for ( my $kx=0; $kx <= $#{$x}; $kx++){
    
    unshift(@$x_stack,$x->[$kx]);
    pop(@$x_stack);