Nothing
median(~ Price, data = MustangPrice )
Boot.Mustang <- do(5000) * median( ~Price, data = resample(MustangPrice) )
head(Boot.Mustang, 3)
histogram( ~ median, n = 50, data = Boot.Mustang)
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.