# BodyBrain Example --
# Clicking on points in scatterplot shows the animal name for
# that point.  This process is called brushing.

bodybrain <- read.table("c:/datasets/bodybrain.txt", header=T)
plot(x=bodybrain$BodyWeight, y=bodybrain$BrainWeight, log="xy",
   main="BodyBrain Example using Brushing", xlab="Log Body Weight (kg)", 
   ylab="Log Brain Weight (g)")
identify(x=bodybrain$BodyWeight, y=bodybrain$BrainWeight,
   labels=bodybrain$Animal)