Nothing
g <-
function(time,t,l,mu,rho) {
i <- inter(time,t)
ci <- const(i,t,l,mu,rho)
zah <- exp(-(l[i]-mu[i]) * (t[i]+time))
a<-(ci-1) * exp(-(l[i]-mu[i]) * t[i])
b<- (mu[i] - ci * l[i]) * exp(-(l[i]-mu[i]) * time)
nen <- l[i] * a + b
res <- zah/(nen)^2
res
}
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.