if (FALSE) {
dataset <- UploadPredictionDataset(project, diamonds_small)
model <- ListModels(project)[[1]]
modelId <- model$modelId
predictJobId <- RequestPredictions(project, modelId, dataset$id)
predictions <- GetPredictions(project, predictJobId)
# Or, if prediction intervals are desired (datetime only)
predictJobId <- RequestPredictions(datetimeProject,
DatetimeModelId,
includePredictionIntervals = TRUE,
predictionIntervalsSize = 100)
predictions <- GetPredictions(datetimeProject, predictJobId, type = "raw")
}
Run the code above in your browser using DataLab