Home > analysis > WBCcollect.m

WBCcollect

PURPOSE ^

SYNOPSIS ^

function WBCcollect(remote)

DESCRIPTION ^

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function WBCcollect(remote)
0002 
0003 if (remote==0)
0004     iPath = 'C:\Research\DataSets\LILLYwbcrollingapc\';
0005 else
0006     iPath = '/v1/rich/DataSets/LILLYwbcrollingapc/';
0007 end
0008 cd(iPath);
0009 dataFolders = dir(iPath);
0010 fid = fopen('DataReport.txt','w');
0011 
0012 for fo = 3: length(dataFolders)
0013     if (dataFolders(fo).isdir ==1)
0014         dataFolder = dataFolders(fo).name;
0015         
0016         try
0017             report = csvread(strcat(dataFolder,'/',dataFolder,'.csv'));            
0018             if (length(report)<4)
0019                 report = [report 0  0];
0020             end
0021             fprintf(fid,'%s %4.0f %4.0f %7.2f %7.2f\n',...
0022                 dataFolder,report(1),report(2),report(3),report(4));
0023         catch
0024            disp(['Report file in ', dataFolder ,' is not available']);  
0025         end      
0026     end    
0027 end
0028 
0029 fclose(fid);
0030     
0031     
0032 end

Generated on Thu 17-Mar-2011 14:45:51 by m2html © 2005