library(reshape)#
head(tips)

library(grDevices)

attach(tips)
iplot(total_bill, tip)

# use up/down arrows to increase/decrease point size
# use left/right arrows to increase/decrease amount of alpha blending

iabline(lm(tip~total_bill, data=tips))

#########
iset.selected()

tips[iset.selected(),]

##########
ibox(tip, sex)

# Linked Barcharts
ibar(sex)
ibar(smoker)
ibar(day)

# Interactive Mosaicplots

imosaic(sex, smoker, day)

####################

whodunnit <- read.csv("http://streaming.stat.iastate.edu/~stat480/whodunnit.csv")