# NOT RUN {
projectId <- "59a5af20c80891534e3c2bde"
modelId <- "5996f820af07fc605e81ead4"
jobId <- RequestTransferrrableModel(projectId, modelId)
WaitForJobToComplete(projectId, jobId)
file <- file.path(tempdir(), "model.drmodel")
DownloadTransferableModel(projectObject, modelId, file)
# }
Run the code above in your browser using DataLab