Nothing
balldrop.nls <-
nls(time ~ alpha0 + alpha1 * height^d,
data = BallDrop,
start = list(alpha0 = 0, alpha1 = 1, d = 1))
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.