#
# Create the simple data for agreg
#

test2 <- data.frame(start=c(1, 2, 5, 2, 1, 7, 3, 4, 8, 8),
		    stop =c(2, 3, 6, 7, 8, 9, 9, 9,14,17),
		    event=c(1, 1, 1, 1, 1, 1, 1, 0, 0, 0),
		    x    =c(1, 0, 0, 1, 0, 1, 1, 1, 0, 0) )