# Parameters (potentially) computed during shape prediction stage
predicted_shape <- self$predictShape(data,today,memory,predict_from,horizon,...)
- if (is.na(predicted_shape))
+ if (is.na(predicted_shape[1]))
return (NA)
predicted_delta <- private$.pjump(data, today, memory, predict_from,