view release on metacpan or  search on metacpan

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

#define NEED_newSVpvn_flags
#include "ppport.h"

MODULE = DSP::LinPred_XS    PACKAGE = DSP::LinPred_XS

PROTOTYPES: DISABLE

void
get_stat(...)
PPCODE:
{
    if(items != 1){
	croak("Invalid argument");
    }
    SV* input = ST(0);
    AV* av = (AV*)SvRV(input);
    IV length = av_len(av) + 1;
    IV k;
    NV sum = 0;
    NV variance = 0;