Added directory creation command

rscripts/get_height_ens.R

@@ -624,6 +624,7 @@ for ( year in my_args[1]:my_args[2] ) {
     } ## end test for pre-pub47
 
     if ( TRUE ) {
+        if(!dir.exists(out_dir)) dir.create(out_dir)
         ## output heights for reports with known ids
         fn.out <- paste0(out_dir,"htbyid_",year,".psv")
         write.table(ship.ht.ens, file=fn.out, append=F, sep="|", col.names = FALSE)