my $ifile = "read_parameters_by_file_batch";
    my $ofile = "outR.txt";
    my @args = ( $DirName, $SubDirName );
    my $cmd = "R --slave --args @args < $ifile > $SubDirName/$ofile 2>/dev/null &"

    my $failed = system( $cmd );
    if ( $failed ) {
        die "$0: command failed: ($failed) $!\n  trying: $cmd\n";
    }