#  This file  contains the Gauss2 data from Will Welch's notes Chapt. 1
#      
#  Authors:
#       W.J. Welch, 2002
#       R.W. Oldford, 2004
#
#
Gauss2.train <- 
 structure(list(x1 = c(3.84, 3.36, 1.83, 4.16, 2.52, 5.25, 2.94, 
                       4.44, 3.01, 2.48, 2.28, 2.6, 1.61, 2.92, 3.8, 3.76, 3.67, 2.12, 
                       1.72, 3.53, 5.12, 5.06, 7.22, 7.02, 6.68, 4.84, 5.54, 6.01, 5.62, 
                       6.96), 
                x2 = c(6.52, 14.06, 2.59, 9.37, 6.3, 8.38, 4.13, 4.91, 
                       2.68, 11.36, 7.06, 6.68, 2.35, 7.51, 3.91, 11.02, 7.09, 1.01, 
                       4.94, 5.54, 9.01, 7.64, 11.77, 14.14, 7.78, 11, 9.68, 12.85, 
                       9.84, 10.5), 
                y = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
                      0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)), 
           .Names = c("x1", "x2", "y"), 
           row.names = c("1", "2", "3", "4", "5", "6", "7", 
                            "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", 
                           "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", 
                           "30"), 
           class = "data.frame")

Gauss2.test <- 
 structure(list(x1 = c(3.68, 3.28, 3.67, 4.64), 
                x2 = c(5.65, 5.2, 8.82, 7.98), 
                y = c(2, 2, 2, 2)), 
           .Names = c("x1", "x2", "y"), 
           row.names = c("1","2", "3", "4"), 
           class = "data.frame")