0001 function [PTP_Eden RMSE_Eden PTP_Kalman RMSE_Kalman PTP_Rich RMSE_Rich] = ...
0002 WBCexperimentSelect(iFolder,firstFr,lastFr,id1,id2)
0003
0004 iPath = strcat('/Research/WBC/Data/',iFolder,'/');
0005 cd(iPath);
0006 load \Research\WBC\Codes\_parameters
0007 load _tracksGT
0008
0009 tracksGT2 = tracksGT(tracksGT(:,1)==id1 | tracksGT(:,1)==id2,:);
0010 tracksGT3 = tracksGT2(tracksGT2(:,2) > firstFr & tracksGT2(:,2) <= lastFr,:);
0011
0012
0013
0014
0015
0016 disp(['Evaluating...', iFolder]);
0017 SS.Name = iFolder;
0018
0019 load _tracksK
0020 RMSEx_Kalman = WBCperformance(iFolder,tracksR,tracksGT3,P);
0021 load _tracksMH
0022 RMSEx_Rich = WBCperformance(iFolder,tracksR,tracksGT3,P);
0023 load tracksE
0024 RMSEx_Eden = WBCperformance(iFolder,tracksE,tracksGT3,P);
0025
0026 PTP_Kalman = size(RMSEx_Kalman,1)/size(tracksGT3,1);
0027 RMSE_Kalman = mean(RMSEx_Kalman(:,end));
0028
0029 PTP_Rich = size(RMSEx_Rich,1)/size(tracksGT3,1);
0030 RMSE_Rich = mean(RMSEx_Rich(:,end));
0031
0032 PTP_Eden = size(RMSEx_Eden,1)/size(tracksGT3,1);
0033 RMSE_Eden = mean(RMSEx_Eden(:,end));
0034 end
0035