- 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( sapply(indices, function(i) integerIndexToDate(i,data)) )
+ forecaster_class_name = getFromNamespace(paste(forecaster,"Forecaster",sep=""), "talweg")
+ forecaster = forecaster_class_name$new( #.pjump =
+ getFromNamespace(paste("get",pjump,"JumpPredict",sep=""), "talweg"))
+ for (today in integer_indices)