Nothing

```
BlackscholesCalls <-
function(s0,k,t,r,vol){
d1<-(log(s0/k)+(r+vol^2/2)*t)/(vol*t^(1/2))
d2<-d1-vol*t^(1/2)
callPrice<-s0*pnorm(d1)-k*exp(-r*t)*pnorm(d2)
return(callPrice)
}
```

**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.