fix(RunModel_lag): remove extra "names" attribute on OutputsModel$Qsim

Refs  #131, in-wop/airGRiwrm#50

R/RunModel_Lag.R

@@ -81,7 +81,7 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param, QcontribDown) {
           # If warm-up period is not enough long complete beginning with first value
           ini <- c(rep(ini[1], floor(PT[iUpBasins] + 1) - length(ini)), ini)
         }
-        return(ini)
+        return(as.vector(ini))
       }
     )
   }