0001 function Y = slkernelfea(X, X0, kparams, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052
0053
0054
0055
0056
0057
0058
0059 if nargin < 3
0060 raise_lackinput('slkernelfea', 3);
0061 end
0062
0063
0064 if ndims(X) ~= 2
0065 error('sltoolbox:invaliddims', ...
0066 'The sample matrix X should be a 2D matrix');
0067 end
0068 d = size(X, 1);
0069
0070
0071 if ndims(X0) ~= 2
0072 error('sltoolbox:invaliddims', ...
0073 'The sample matrix X0 should be a 2D matrix');
0074 end
0075 if size(X0, 1) ~= d
0076 error('sltoolbox:sizmismatch', ...
0077 'Size inconsistency between X and X0');
0078 end
0079 n0 = size(X0, 2);
0080
0081
0082 if ~iscell(kparams)
0083 error('sltoolbox:invalidarg', ...
0084 'kernel parameters should be given by cell array');
0085 end
0086
0087
0088 opts.cen = false;
0089 opts.proj = [];
0090 opts.gram = [];
0091 opts.kfunc = [];
0092 opts.weights = [];
0093 opts = slparseprops(opts, varargin{:});
0094
0095
0096 if isempty(opts.proj)
0097 need_proj = false;
0098 else
0099 if ndims(opts.proj) ~= 2
0100 error('sltoolbox:invaliddims', ...
0101 'The projection coefficient matrix should be 2D');
0102 end
0103 need_proj = true;
0104 A = opts.proj;
0105 if size(A, 1) ~= n0
0106 error('sltoolbox:sizmismatch', ...
0107 'Size inconsistency between X0 and A, the projection matrix A should be an n0 x d matrix');
0108 end
0109 end
0110
0111
0112 if isempty(opts.gram)
0113 has_gram = false;
0114 else
0115 has_gram = true;
0116 K0 = opts.gram;
0117 if ~isequal(size(K0), [n0, n0])
0118 error('sltoolbox:sizmismatch', ...
0119 'Invalid size of gram matrix, which should be n0 x n0');
0120 end
0121 end
0122
0123
0124 if ...
0125 isempty(opts.kfunc) || ...
0126 isequal(opts.kfunc, @slkernel) || ...
0127 strcmpi(opts.kfunc, 'slkernel')
0128
0129 use_special_kfunc = false;
0130 else
0131 use_special_kfunc = true;
0132 end
0133
0134
0135 if ~isempty(opts.weights)
0136 if ~isequal(size(opts.weights), [1, n0])
0137 error('sltoolbox:sizmismatch', ...
0138 'The weights should be a 1 x n0 row vector');
0139 end
0140 end
0141
0142
0143
0144
0145
0146
0147 if ~use_special_kfunc
0148 Kx = slkernel(X0, X, kparams{:});
0149 else
0150 Kx = feval(opts.kfunc, X0, X, kparams{:});
0151 end
0152
0153
0154
0155 if opts.cen
0156
0157
0158 if ~has_gram
0159 if ~use_special_kfunc
0160 K0 = slkernel(X0, kparams{:});
0161 else
0162 K0 = feval(opts.kfunc, X0, X0, kparams{:});
0163 end
0164 end
0165
0166
0167 Kx = slcenkernel(K0, Kx, opts.weights);
0168 end
0169
0170
0171
0172 if need_proj
0173 Y = A' * Kx;
0174 else
0175 Y = Kx;
0176 end
0177
0178