# TESTS FOR ASSIGNMENT 3.

d1 <- scan("/u/radford/a2data1")
d2 <- scan("/u/radford/a2data2")
d3 <- scan("/u/radford/a2data3")

cat("\nDATA SET 1\n\n")

print ( em(d1,0.0,0.5,debug=TRUE) )
cat("\n")
print ( em(d1,2.5,0.5,debug=TRUE) )
cat("\n")
print ( em(d1,5.0,0.5,debug=TRUE) )
cat("\n")
print ( em(d1,0.0,5.0,debug=TRUE) )

cat("\nDATA SET 2\n\n")

print ( em(d2,0.0,0.5,debug=TRUE) )
cat("\n")
print ( em(d2,2.5,0.5,debug=TRUE) )
cat("\n")
print ( em(d2,5.0,0.5,debug=TRUE) )
cat("\n")
print ( em(d2,2.0,1.0,debug=TRUE) )

cat("\nDATA SET 3\n\n")

print ( em(d3,0.0,0.5,debug=TRUE) )
cat("\n")
print ( em(d3,2.5,0.5,debug=TRUE) )
cat("\n")
print ( em(d3,5.0,0.5,iters=100,debug=TRUE) )