# \donttest{
## Cut up a randomly normally distributed observations into 5 evenly spaced
## categories and estimate the mean and variance based on this cateogorisation.
junk<-rnorm(1000,3,2)
fun.disc.estimation(junk,5)
# }
Run the code above in your browser using DataLab