Nothing
get.r = function(phi, egg) {
# Get the value of r for a given angle phi
optim.r = function(r) {
z.hat = normalise(r*cos(phi), -egg$length/2, egg$length/2, 0, 1)
x.obs = r*sin(phi)
x.exp = get.d(z.hat, egg)
return((x.obs - x.exp)^2)
}
opt = optimize(f=optim.r, interval=c(0,egg$length/2), tol=1e-10)
r = opt$minimum
return(r)
}
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.