LVAL xsbaselowess(V)
{
LVAL x, y, ys, rw, res;
double *dx, *dy, *dys, *drw, *dres;
int n, nsteps, error;
double f, delta;
x = xlgetarg();
y = xlgetarg();
n = getfixnum(xlgafixnum());
f = makefloat(xlgetarg());
nsteps = getfixnum(xlgafixnum());
delta = makefloat(xlgetarg());
ys = xlgetarg();
rw = xlgetarg();
res = xlgetarg();
xllastarg();
dx = getlinalgdvec(0, n, x);
dy = getlinalgdvec(0, n, y);
dys = getlinalgdvec(0, n, ys);
drw = getlinalgdvec(0, n, rw);
dres = getlinalgdvec(0, n, res);
error = lowess(dx, dy, n, f, nsteps, delta, dys, drw, dres);
return error ? s_true : NIL;
}
void lowess(const std::vector<double> &x, const std::vector<double> &y, double f, long nsteps, std::vector<double> &ys){//{{{
std::vector<double> rw,res;
lowess(x,y,f,nsteps,0.,ys,rw,res);
}//}}}
