Nothing
summary.minimum.entropy <- function(object, ..., average=FALSE) {
## calculate the proportion in each \hat{C}
if (average)
return(tapply( object$Prop, object$MinEnt, sum))
else
return( as.data.frame(object))
}
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.