```
library(uwot)
context("Curve Parameters")
expect_equal(as.vector(find_ab_params(spread = 1, min_dist = 0.001)),
c(1.929, 0.792),
tol = 1e-3
)
expect_equal(as.vector(find_ab_params(spread = 1, min_dist = 0.1)),
c(1.577, 0.895),
tol = 1e-3
)
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.