# Solution to STA 410/2102 Assignment #4, Spring 2003 - Test runs. # FIRST TEST DATA SET. d1 <- c(0,1,1,0,1,0,0,2,0,1) do.it(d1,25) do.it(d1,50) do.it(d1,100) # SECOND TEST DATA SET. d2 <- c(5,8,5,5,4,8,6,6,4,6,3,8,1,3,7,7,4,8,5,7) do.it(d2,25) do.it(d2,50) do.it(d2,100)