Nothing
"drt.error" <-
function (t, v, a, z, s = 0.1, k = 1:100)
{
defect = sapply(t, function(t) pi * s^2 * (exp(-v * z/s^2)/a^2) *
sum(k * sin(k * pi * z/a) * exp(-(v^2/s^2 + pi^2 * k^2 *
s^2/a^2) * t/2)))
defect/p.error(v = v, a = a, z = z, s2 = s^2)
}
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.