Nothing
V.theta <-
function(t, N, theta, lambda){
alpha<-lambda-(1-lambda)*theta
bta<-4*theta*lambda*(1-lambda)
sqrt(((theta-1)*t+alpha)^2+bta)
}
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.