RunModel_Lag crashes when called from RunModel

Try this:

library(airGR)
example(RunModel_Lag)
OutputsModel <- RunModel(InputsModel = InputsModel,RunOptions = RunOptions, Param = Velocity, FUN_MOD = RunModel_Lag)

The following error occurs: Error in rep(0, floor(PT[x] + 1)) : invalid 'times' argument

@olivier.delaigue and @guillaume.thirel, despite what we discussed, I think it looks like a normal way of using the model as we use the other ones.