# NOT RUN {
endp <- customvision_training_endpoint(url="endpoint_url", key="key")
myproj <- get_project(endp, "myproject")
train_model(myproj)
train_model(myproj, method="advanced", force=TRUE, email="me@example.com")
list_models(myproj)
mod <- get_model(myproj)
rename(mod, "mymodel")
mod <- get_model(myproj, "mymodel")
delete_model(mod)
# }
Run the code above in your browser using DataLab