Fixing an issue in the parameters parsing.

atmoswing · Jun 19, 2018 · 5b7da3c · 5b7da3c
1 parent 3bae2ed
commit 5b7da3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parseOutputs.R b/R/parseOutputs.R
@@ -494,7 +494,7 @@ parseAllResultsText <- function(directory, predictandDB, datasets, methods, verb
           if(!fullFieldName %in% colnames(stations)) {
             stations[fullFieldName] <- NA
           }
-          stations[[fullFieldName]][which(stations$id == stationId)] <- (dat[[pos[[i]]+1]] - 1) * dat[[pos[[i]]+9]]
+          stations[[fullFieldName]][which(stations$id == stationId)] <- (dat[[pos[[i]]+1]] - 1) * dat[[pos[[i]]+3]]
         }
 
         # Ypts