using RDatasets
iris = dataset("datasets", "iris");

using CrossfilterCharts
dc(iris)

df = dataset("mlmRev", "Exam")
dcout = DCOut(df)
infer_dimensions!(dcout) # infer all dimensions
infer_groups!(dcout) # infer all groups
quick_add!(dcout, :School, piechart)
quick_add!(dcout, :NormExam, barchart)
quick_add!(dcout, :SchGend, rowchart)
quick_add!(dcout, :SchAvg, linechart)
quick_add!(dcout, :VR, piechart)
quick_add!(dcout, :Sex, piechart)
dcout.charts[end].typ[:innerRadius] = "50"
add_bubblechart!(dcout, :School, :NormExam, :SchAvg, :StandLRT)
add_datacountwidget!(dcout)
add_datatablewidget!(dcout)
dcout

msleep = dataset("ggplot2","msleep")
dc(msleep)