# NOT RUN {
data(Election2005)
# }
# NOT RUN {
discrete <- discrete1d(Election2005)
maxv <- order(discrete,decreasing=TRUE)[1:4]
par(mfrow=c(2,2))
for(i in 1:4){
hist(Election2005[,maxv[i]], ,xlab="",breaks=30,
main=paste(names(Election2005[maxv[i]])))
}
# Explore skewness, multimodality and discreteness
# within an interactive environment.
iaunivariate(Election2005)
# }
Run the code above in your browser using DataLab