Changeset 120 for distools/kpca.m

Timestamp:

04/09/17 20:54:03 (8 years ago)

Author:

bduin

Message:

 

File:

• distools/kpca.m (modified) (2 diffs)

distools/kpca.m

@@ -42 +42 @@
 
 
-function [W,L] = kpca (K,alf)
+function [W,L] = kpca (K,alf,reg)
 
 if nargin < 2 | isempty(alf),
@@ -48 +48 @@
 end
 if nargin < 1 | isempty(K),
-  W = prmapping(mfilename,alf);
+  W = prmapping(mfilename,{alf,reg});
   W = setname(W,'Kernel PCA');
   return
 end
 
+if nargin > 2 && ~isempty(reg)
+  K = K+reg*eye(size(K,1));
+end
 
 if (isdataset(K) | isa(K,'double')),