1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
% STK_ORTHO_FUNC [deprecated]
%
% CALL: P = stk_ortho_func (MODEL, X)
%
% computes the design matrix for the linear part of model MODEL at the set of
% evaluation points X. In general (see special case below), X is expected to
% be a structure, whose field 'a' contains the actual numerical data as an N
% x DIM matrix, where N is the number of evaluation points and and DIM the
% dimension of the space of factors. A matrix P of size N x L is returned,
% where L is the number of regression functions in the linear part of the
% model; e.g., L = 1 if MODEL.order is zero (ordinary kriging).
%
% DEPRECATION WARNINGS:
%
% The use of a .order field in model structures is deprecated and will be
% removed in a future release of STK. The recommended approach is now to use
% a .lm field, which contains a function handle or any object that behaves
% like one (see stk_lm_*).
%
% stk_orth_func is deprecated and will be removed from future versions of
% STK (http://sourceforge.net/p/kriging/tickets/12).
%
% See also stk_make_matcov
% Copyright Notice
%
% Copyright (C) 2016, 2018 CentraleSupelec
% Copyright (C) 2011-2014 SUPELEC
%
% Authors: Julien Bect <julien.bect@centralesupelec.fr>
% Emmanuel Vazquez <emmanuel.vazquez@centralesupelec.fr>
% Copying Permission Statement
%
% This file is part of
%
% STK: a Small (Matlab/Octave) Toolbox for Kriging
% (http://sourceforge.net/projects/kriging)
%
% STK is free software: you can redistribute it and/or modify it under
% the terms of the GNU General Public License as published by the Free
% Software Foundation, either version 3 of the License, or (at your
% option) any later version.
%
% STK is distributed in the hope that it will be useful, but WITHOUT
% ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
% License for more details.
%
% You should have received a copy of the GNU General Public License
% along with STK. If not, see <http://www.gnu.org/licenses/>.
function P = stk_ortho_func (model, x)
x = double (x);
if strcmp (model.covariance_type, 'stk_discretecov')
P = model.param.P(x, :);
else % General case
% Ensure backward compatiblity
model = stk_model_fixlm (model);
P = feval (model.lm, x);
end
end % function
%!shared model, x, n, d
%! n = 15; d = 4;
%! model = stk_model ('stk_materncov_aniso', d);
%! x = stk_sampling_randunif (n, d);
%! model = rmfield (model, 'lm'); % Test the old .order approach
%!error P = stk_ortho_func ();
%!error P = stk_ortho_func (model);
%!test P = stk_ortho_func (model, x);
%!test
%! model.order = -1; P = stk_ortho_func (model, x);
%! assert (isequal (size (P), [n, 0]));
%!test
%! model.order = 0; P = stk_ortho_func (model, x);
%! assert (isequal (size (P), [n, 1]));
%!test
%! model.order = 1; P = stk_ortho_func (model, x);
%! assert (isequal (size (P), [n, d + 1]));
%!test
%! model.order = 2; P = stk_ortho_func (model, x);
%! assert (isequal (size (P), [n, 1 + d * (d + 3) / 2]));
%!test
%! model.order = 3; P = stk_ortho_func (model, x);
%! assert (isequal (size (P), [n, 1 + d * (11 + d * (6 + d)) / 6]));
%!error
%! model.order = 4; P = stk_ortho_func (model, x);
%! % model.order > 3 is not allowed
|
