В этом примере используйте crossval вычислить оценку перекрестной проверки среднеквадратической ошибки для модели регрессии. Запустите расчеты параллельно.
mypool = parpool()
Starting parpool using the 'local' profile ... connected to 2 workers.
mypool =
Pool with properties:
AttachedFiles: {0x1 cell}
NumWorkers: 2
IdleTimeout: 30
Cluster: [1x1 parallel.cluster.Local]
RequestQueue: [1x1 parallel.RequestQueue]
SpmdEnabled: 1
opts = statset('UseParallel',true);
load('fisheriris');
y = meas(:,1);
X = [ones(size(y,1),1),meas(:,2:4)];
regf=@(XTRAIN,ytrain,XTEST)(XTEST*regress(ytrain,XTRAIN));
cvMse = crossval('mse',X,y,'Predfun',regf,'Options',opts)
cvMse =
0.1028
Этим простым примером не является хороший кандидат на параллельный расчет:
% How long to compute in serial?
tic;cvMse = crossval('mse',X,y,'Predfun',regf);toc
Elapsed time is 0.073438 seconds.
% How long to compute in parallel?
tic;cvMse = crossval('mse',X,y,'Predfun',regf,...
'Options',opts);toc
Elapsed time is 0.289585 seconds.Запускать crossval параллельно восстанавливаемым способом, устанавливает опции и сброс случайный поток соответственно (см. Рабочие Восстанавливаемые Параллельные Расчеты).
mypool = parpool()
Starting parpool using the 'local' profile ... connected to 2 workers.
mypool =
Pool with properties:
AttachedFiles: {0x1 cell}
NumWorkers: 2
IdleTimeout: 30
Cluster: [1x1 parallel.cluster.Local]
RequestQueue: [1x1 parallel.RequestQueue]
SpmdEnabled: 1
s = RandStream('mlfg6331_64');
opts = statset('UseParallel',true,...
'Streams',s,'UseSubstreams',true);
load('fisheriris');
y = meas(:,1);
X = [ones(size(y,1),1),meas(:,2:4)];
regf=@(XTRAIN,ytrain,XTEST)(XTEST*regress(ytrain,XTRAIN));
cvMse = crossval('mse',X,y,'Predfun',regf,'Options',opts)
cvMse =
0.1020Сбросьте поток:
reset(s)
cvMse = crossval('mse',X,y,'Predfun',regf,'Options',opts)
cvMse =
0.1020