#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

library(lattice)

deathrate = c(40.7, 36, 27, 30.5, 27.6, 83.5 )
hosp = c("Cliniques of Vienna",
  "Efans Trouves at Petersburg",
  "Pesth",
  "Edinburgh",
  "Frankfort",
  "Lund")

hosp = factor( hosp, levels=hosp[ order(deathrate) ] )

dotchart( deathrate, labels=hosp, xlim=c(0,95), xlab="Death rate per 1000" )