Nothing
mhistogram <- function(..., n=12, nint=n) {
if ( require(manipulate) ) {
manipulate(
xhistogram( ..., nint = N, fit=FIT ),
N = slider( 3, 50, initial=nint ),
FIT = picker( none=NULL,
normal="normal",
"log-normal" = "log-normal",
exponential='exponential',
gamma='gamma'
)
)
}
else {
histogram(..., nint=nint)
}
}
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.