# NOT RUN {
# Retrieve by predictJobID
dataset <- UploadPredictionDataset(project, diamonds_small)
model <- ListModels(project)[[1]]
modelId <- model$modelId
predictJobId <- RequestPredictions(project, modelId, dataset$id)
predictions <- GetPredictions(project, predictJobId)
# Retrieve by predictionID
predictions <- ListPredictions(project)
predictions <- GetPredictions(project, predictions$predictionId[[1]])
# }
Run the code above in your browser using DataLab