annotate rDiff/src/locfit/m/kappa0.m @ 0:0f80a5141704

version 0.3 uploaded
author vipints
date Thu, 14 Feb 2013 23:38:36 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
1 function kap=kappa0(x,y,varargin)
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
2
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
3 % Compute the constants for `tube-formula' based simultaneous
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
4 % confidence bands.
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
5 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
6 % Works for regression models only. Density estimation problems
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
7 % should be converted to counts, and use poisson regression
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
8 % 'family','poisson'.
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
9 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
10 % Essentially, this is a front-end to locfit, and so all optional
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
11 % arguments to locfit (eg, smoothing parameters) can be provided.
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
12 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
13 % To compute (or plot) the confidence bands, provide the output
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
14 % of the kappa0() function as the 'kappa' argument to a
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
15 % predict() or lfband() call.
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
16 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
17 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
18 % Example:
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
19 %
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
20 % load ethanol;
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
21 % fit = locfit(E,NOx,'alpha',0.5)
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
22 % kap = kappa0(E,NOx,'alpha',0.5) % give same arguments!
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
23 % lfplot(fit)
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
24 % lfband(fit,'kappa',kap) % plot the simultaneous bands
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
25 % z = predict(fit,[0.6 0.7 0.8]','kappa',kap,'band','g')
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
26 % z{3} % evaluate the bands.
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
27
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
28 fit = locfit(x,y,'module','kappa','ev','grid','mg',20,varargin{:});
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
29 z = fit.fit_points.kappa;
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
30 d = size(fit.data.x,2);
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
31 kap = z(1:(d+1));
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
32
0f80a5141704 version 0.3 uploaded
vipints
parents:
diff changeset
33 return;