added input full_partial to qempanelset

qem/qemextract.m

@@ -3,7 +3,17 @@ function [qemb,qemres,semres] = qemextract(dirname)
 %
 %[QEMB,QEMRES,SEMRES]=qemextract(DIRNAME)
 %
-[qemres,semres,qemb]=qempanelset(dirname);      % load quad corrections
+
+filesRM=dir(fullfile(dirname,'steer*'));
+if length(filesRM)==66 
+    full_partial=0; % case partial matrix
+elseif length(filesRM)==386
+    full_partial=1; % case full matrix
+else
+    error('wrong number of files for response matrix');
+end
+    
+[qemres,semres,qemb]=qempanelset(dirname,full_partial);      % load quad corrections
 [qemb(2).kn,qemb(2).dipdelta,qemb(2).dxs]=...   % load quad errors
     qemerrload(qemres,fullfile(qemres.datadir,'quaderrors.mat'));