# NOT RUN {
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