flower <-
data.frame(V1 =
	   factor(c(1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1),
		  labels = 0:1),
	   V2 =
	   factor(c(2, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1),
		  labels = 0:1),
	   V3 =
	   factor(c(2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 1, 2),
		  labels = 0:1),
	   V4 =
	   factor(c(4, 2, 3, 4, 5, 4, 4, 2, 3, 5, 5, 1, 1, 4, 3, 4, 2, 2)),
	   V5 =
	   ordered(c(3, 1, 3, 2, 2, 3, 3, 2, 1, 2, 3, 2, 2, 2, 2, 2, 2, 1)),
	   V6 =
	   ordered(c(15, 3,1,16, 2,12,13, 7, 4,14, 8, 9, 6,11,10,18,17, 5)),
	   V7 = c(25, 150, 150, 125, 20, 50, 40, 100, 25,
		  100, 45, 90, 20, 80, 40, 200, 150, 25),
	   V8 = c(15, 50, 50, 50, 15, 40, 20, 15, 15, 60,
		  10, 25, 10, 30, 20, 60, 60, 10)
	  )