# NOT RUN {
data(Election2005)
# consider only demographic/economic information
election05_ds <- Election2005[,1:40]
# }
# NOT RUN {
scagdf <- sdf(election05_ds)
# new order
scagdf_o <- sdf_quicksort(scagdf)
# compare scaggrams
par(mfrow=c(1,2))
scaggram(scagdf,select=(c(1,5,9)))
scaggram(scagdf_o,select=(c(1,5,9)))
# }
Run the code above in your browser using DataLab