type file;


(file t) runR (file f, file d, int n){
app {
RBATCH @filename(f) @filename(t) @filename(d) n;
}
}
 
string datafiles=" /home/mhitczen/Data/Sept_07_08/goodAOD244_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD245_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD246_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD247_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD248_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD249_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD250_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD251_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD252_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD253_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD254_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD255_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD256_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD257_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD258_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD259_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD260_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD261_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD262_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD263_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD264_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD265_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD266_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD267_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD268_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD269_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD270_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD271_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD272_07.txt  /home/mhitczen/Data/Sept_07_08/goodAOD273_07.txt /home/mhitczen/Data/Sept_07_08/goodAOD245_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD246_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD247_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD248_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD249_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD250_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD251_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD252_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD253_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD254_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD255_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD256_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD257_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD258_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD259_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD260_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD261_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD262_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD263_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD264_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD265_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD266_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD267_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD268_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD269_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD270_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD271_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD272_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD273_08.txt /home/mhitczen/Data/Sept_07_08/goodAOD274_08.txt";

file getcoeffs <"/home/mhitczen/R_Code/get_coeffs.R">;

file input[] <fixed_array_mapper; files=datafiles>;

file output[] <simple_mapper;prefix="/home/mhitczen/swift_output/gc_run",suffix=".Rout">;

int run[] =[0:59];


foreach r,ridx in run {
int t=r+1;
output[ridx]=runR(getcoeffs,input[r],t);
}