Nothing

```
## ---- include=FALSE------------------------------------------------------
library(tvm)
## ------------------------------------------------------------------------
rate_curve(rates = c(0.1, 0.2, 0.3), rate_type = "zero_eff")
rate_curve(fun_r = function(x) rep_len(0.1, length(x)), rate_type = "swap", knots = 1:10)
rate_curve(fun_d = function(x) 1 / (1 + x), knots = 1:10)
## ------------------------------------------------------------------------
r <- rate_curve(rates = c(0.1, 0.2, 0.3), rate_type = "zero_eff")
r[, c(1, 2)]
r["zero_eff"]
r["swap",c(1.5, 2)]
## ------------------------------------------------------------------------
plot(r)
plot(r, rate_type = "german")
plot(r, rate_type = c("french", "german"))
```

**Any scripts or data that you put into this service are public.**

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.