comparison rDiff/src/locfit/m/smooth_lf.m @ 0:0f80a5141704

version 0.3 uploaded
author vipints
date Thu, 14 Feb 2013 23:38:36 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:0f80a5141704
1 function z=smooth_lf(x,y,varargin)
2
3 % must (unlike R smooth.lf() function) give x and y.
4 % also R's direct=T is automatic.
5 %
6
7 xev = x;
8 if (k>1)
9 if (strcmp(varargin{1},'xev'))
10 xev = varargin{2};
11 varargin(1:2) = [];
12 end;
13 end;
14 fit = locfit(x,y,varargin{:},'ev',xev,'module','simple');
15 z = lfknots(fit);
16 fv = invlink(z(:,1),fit.fit_points.family_link);
17
18 z = { xev, fv };
19
20 return;