- pred = list()
- forecaster = new(paste(forecaster,"Forecaster",sep=""), data=data,
- pjump =
- if (is.null(pjump))
- function() {}
- else
- getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
- for (today in indices)
+ pred = Forecast$new( dates=sapply( indices, integerIndexToDate, data ) )
+ forecaster_class_name = getFromNamespace(paste(forecaster,"Forecaster",sep=""), "talweg")
+ forecaster = forecaster_class_name$new(.data=data,
+ .pjump = getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
+ for (today in integer_indices)