Changeset 79 for distools/sphem.m

Timestamp:

07/23/13 12:22:18 (11 years ago)

Author:

bduin

Message:

 

File:

• distools/sphem.m (modified) (4 diffs)

distools/sphem.m

@@ -62 +62 @@
 if nargin < 2 | isempty(R), R = 1; end
 if nargin < 1 | isempty(d),
-  W = mapping(mfilename,{R,alf,prec});
+  W = prmapping(mfilename,{R,alf,prec});
   W = setname(W,'Spherical embedding');
   return
@@ -82 +82 @@
     W = R^2*(cos(+d/R)) * Q * diag(sqrt(abs(L))./L);
     if isdataset(d),
-      W = dataset(W,getlab(d),'prior',getprior(d));
+      W = prdataset(W,getlab(d),'prior',getprior(d));
 
       % Store signature in the USER field
@@ -109 +109 @@
   L = L(J);          % Eigenvalues
 
-  W = mapping(mfilename,'trained',{R,Q,L,pars{4},pars{5}},[],m,length(J));
+  W = prmapping(mfilename,'trained',{R,Q,L,pars{4},pars{5}},[],m,length(J));
   W = setname(W,'Spherical embedding');
   return
@@ -150 +150 @@
 Q = Q(:,J);                   % Eigenvectors
 
-W = mapping(mfilename,'trained',{R,Q,L,sig,prec},[],m,sum(sig));
+W = prmapping(mfilename,'trained',{R,Q,L,sig,prec},[],m,sum(sig));
 W = setname(W,'Spherical  embedding');
 return