# NOT RUN {
projectId <- "59a5af20c80891534e3c2bde"
modelId <- "5996f820af07fc605e81ead4"
datasets <- ListPredictionDatasets(projectId)
dataset <- datasets[[1]]
datasetId <- dataset$id
model <- GetModel(model, datasetId)
jobId <- RequestReasonCodes(model, datasetId)
reasonCodeId <- GetReasonCodesMetadataFromJobId(projectId, jobId)
file <- file.path(tempdir(), "testReasonCode.csv")
DownloadReasonCodes(projectId, reasonCodeId, file)
# }
Run the code above in your browser using DataLab