source: prdatasets/mnist8.m

%MNIST8 70000 normalised digits given by 8x8 pixels (features) in 10 classes
%
%    [TRAIN,TEST] = mnist8
%     TRAIN_TEST  = mnist8
%
% Load the MNIST8 dataset. These are the original MNIST digits, normalised
% such that they fit exactly in images of 8x8 pixels. The first 60000 are
% the original training set, the last 10000 are the original test set.
%
% REFERENCE 
% <a href="http://yann.lecun.com/exdb/mnist/" The MNIST website</a>
%
% See also DATASETS, PRDATASETS

% Copyright: R.P.W. Duin 
% Faculty EWI, Delft University of Technology
% P.O. Box 5031, 2600 GA Delft, The Netherlands

function [a,b] = mnist8

a = pr_getdata([],30);
if nargout == 2
  b = a(60001:end,:);
  b = setname(b,'MNIST8_Test');
  a = setname(a(1:60000,:),'MNIST8_Train');
else
  a = setname(a,'MNIST8 Reduced Digits');
end