# NOT RUN {
# create model
model <- umap(iris[1:100, ], ret_model = TRUE)
# save
model_file <- tempfile("iris_umap")
save_uwot(model, file = model_file)
# restore
model2 <- load_uwot(file = model_file)
identical(model, model2)
unlink(model_file)
# }
Run the code above in your browser using DataLab