Nothing
`lorentz` <-
function(p,x){
y0<- p[1]
A1<- abs(p[2])
w1<- abs(p[3])
x01<-p[4]
B1<-(2*A1/pi)*(w1/(4*(x-x01)^2+w1^2))
y0+B1
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.