"coal.dat" <- c(4., 5., 4., 1., 0., 4., 3., 4., 0., 6., 3., 3., 4., 0., 2., 6., 3., 3., 5., 4., 5., 3., 1., 4., 4., 1., 5., 5., 3., 4., 2., 5., 2., 2., 3., 4., 2., 1., 3., 2., 2., 1., 1., 1., 1., 3., 0., 0., 1., 0., 1., 1., 0., 0., 3., 1., 0., 3., 2., 2., 0., 1., 1., 1., 0., 1., 0., 1., 0., 0., 0., 2., 1., 0., 0., 0., 1., 1., 0., 2., 3., 3., 1., 1., 2., 1., 1., 1., 1., 2., 4., 2., 0., 0., 0., 1., 4., 0., 0., 0., 1., 0., 0., 0., 0., 0., 1., 0., 0., 1., 0., 1.) "hormone.dat" <- c(-0.0625, -0.0625, -0.0625, -0.26250000000000001, -0.36249999999999999, -0.96250000000000002 , -0.16250000000000001, -0.16250000000000001, 0.037500000000000103, -0.46250000000000002, -0.5625, -0.76249999999999996, -0.26250000000000001, -0.66249999999999998, 0.73750000000000004, 0.73750000000000004, 0.23749999999999999, -0.26250000000000001, -0.26250000000000001, 0.4375, 0.4375, 0.33750000000000002, 0.23749999999999999, 0.53749999999999998, -0.16250000000000001, -0.46250000000000002, -0.46250000000000002, 0.4375, 0.4375, 0.23749999999999999, 0.23749999999999999, -0.16250000000000001, 0.13750000000000001, -0.0625, -0.66249999999999998, -0.76249999999999996, -0.96250000000000002, -1.0625, -0.36249999999999999, 0.83750000000000002, 1.0375000000000001, 1.0375000000000001, 0.63749999999999996, 0.13750000000000001, -0.36249999999999999, 0.9375, 0.53749999999999998, 0.4375) "law.dat" <- matrix(c(576., 635., 558., 578., 666., 580., 555., 661., 651., 605., 653., 575., 545., 572., 594., 3.3900000000000001, 3.2999999999999998, 2.8100000000000001, 3.0299999999999998, 3.4399999999999999, 3.0699999999999998, 3., 3.4300000000000002, 3.3599999999999999, 3.1299999999999999, 3.1200000000000001, 2.7400000000000002, 2.7599999999999998, 2.8799999999999999, 2.96) , nrow = 15, ncol = 2 , dimnames = list(character(0) , c("LSAT", "GPA") ) ) "mc.dat" <- matrix(c(2.3999999999999999, 3.2000000000000002, 4., 6.5999999999999996, 7.7999999999999998, 8.8000000000000007, 9.5999999999999996, 10.199999999999999, 11., 13.199999999999999, 13.800000000000001, 14.6, 14.6, 14.6, 15.4, 15.4, 15.6, 15.800000000000001, 16., 16.199999999999999, 16.199999999999999, 16.399999999999999, 16.800000000000001, 16.800000000000001, 17.600000000000001, 17.600000000000001, 17.800000000000001, 18.600000000000001, 19.399999999999999, 19.600000000000001, 20.399999999999999, 21.399999999999999, 22., 23.399999999999999, 24.199999999999999, 24.600000000000001, 25., 25.399999999999999, 26., 26.199999999999999, 27., 27.199999999999999, 27.600000000000001, 28.399999999999999, 28.600000000000001, 30.199999999999999, 31.199999999999999, 32., 33.399999999999999, 34.399999999999999, 35.200000000000003, 35.399999999999999, 35.600000000000001, 36.200000000000003, 38., 39.399999999999999, 40.399999999999999, 41.600000000000001, 42.799999999999997, 43., 44.399999999999999, 46.600000000000001, 47.799999999999997, 50.600000000000001, 53.200000000000003, 55., 57.600000000000001, 2.6000000000000001, 3.6000000000000001, 6.2000000000000002, 6.7999999999999998, 8.1999999999999993, 8.8000000000000007, 10., 10.6, 11.4, 13.6, 14.6, 14.6, 14.6, 14.800000000000001, 15.4, 15.4, 15.6, 15.800000000000001, 16., 16.199999999999999, 16.399999999999999, 16.600000000000001, 16.800000000000001, 17.600000000000001, 17.600000000000001, 17.800000000000001, 18.600000000000001, 19.199999999999999, 19.399999999999999, 20.199999999999999, 21.199999999999999, 21.800000000000001, 23.199999999999999, 24., 24.199999999999999, 25., 25.399999999999999, 25.600000000000001, 26.199999999999999, 26.399999999999999, 27.199999999999999, 27.199999999999999, 28.199999999999999, 28.399999999999999, 29.399999999999999, 31., 32., 32.799999999999997, 33.799999999999997, 34.799999999999997, 35.200000000000003, 35.600000000000001, 36.200000000000003, 38., 39.200000000000003, 40., 41.600000000000001, 42.399999999999999, 42.799999999999997, 44., 45., 47.799999999999997, 48.799999999999997, 52., 55., 55.399999999999999, -1.3, 0., -2.7000000000000002, -1.3, -2.7000000000000002, -2.7000000000000002, -2.7000000000000002, -2.7000000000000002, 0., -2.7000000000000002, -13.300000000000001, -5.4000000000000004, -16., -2.7000000000000002, -32.100000000000001, -54.899999999999999, -21.5, -50.799999999999997, -26.800000000000001, -50.799999999999997, -5.4000000000000004, -59., -91.099999999999994, -37.5, -123.09999999999999, -99.099999999999994, -112.5, -123.09999999999999, -72.299999999999997, -123.09999999999999, -134., -108.40000000000001, -123.09999999999999, -112.5, -81.799999999999997, -64.400000000000006, -72.299999999999997, -26.800000000000001, -107.09999999999999, -65.599999999999994, -45.600000000000001, 9.5, 12., 37.5, -17.399999999999999, 75., 54.899999999999999, 46.899999999999999, 45.600000000000001, 75., -54.899999999999999, 34.799999999999997, -37.5, 46.899999999999999, 5.4000000000000004, -21.5, 30.800000000000001, 29.399999999999999, -10.699999999999999, -1.3, 10.699999999999999, -26.800000000000001, -13.300000000000001, 10.699999999999999, -2.7000000000000002, -2.7000000000000002, 0., -2.7000000000000002 , -2.7000000000000002, -2.7000000000000002, -2.7000000000000002, -1.3 , -2.7000000000000002, -5.4000000000000004, -5.4000000000000004, -2.7000000000000002 , 0., -5.4000000000000004, -9.3000000000000007, -22.800000000000001, -22.800000000000001, -53.5, -40.200000000000003, -21.5, -42.899999999999999, -21.5, -61.700000000000003, -80.400000000000006, -71., -77.700000000000003, -85.599999999999994, -101.90000000000001, -104.40000000000001, -50.799999999999997, -85.599999999999994, -127.2, -117.90000000000001, -101.90000000000001, -123.09999999999999, -128.5, -95.099999999999994, -53.5, -57.600000000000001, -44.299999999999997, -5.4000000000000004, -21.5, -16., -24.199999999999999, 4., -21.5, 46.899999999999999, 36.200000000000003, 8.0999999999999996, 48.200000000000003, 16., 1.3, -16., 69.599999999999994, 32.100000000000001, 22.800000000000001, 10.699999999999999, -1.3, -13.300000000000001 , -10.699999999999999, 0., 14.699999999999999, 0., 10.699999999999999, -14.699999999999999, 0., -14.699999999999999, 10.699999999999999, 10.699999999999999) , nrow = 133, ncol = 2) "motor.dat" <- matrix(c(170., 170., 170., 170., 170., 170., 170., 190., 190., 190., 190., 190., 220., 220., 220., 220., 220., 150., 150., 150., 150., 150., 150., 150., 150., 150., 150., 170., 170., 170., 190., 190., 190., 190., 190., 220., 220., 220., 220., 220., 1764., 2772., 3444., 3542., 3780., 4860., 5196., 408., 408., 1344., 1344., 1440., 408., 408., 504., 504., 504., 8064., 8064., 8064., 8064., 8064., 8064., 8064., 8064., 8064., 8064., 5448., 5448., 5448., 1680., 1680., 1680., 1680., 1680., 528., 528., 528., 528., 528., 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., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.) , nrow = 40, ncol = 3 , dimnames = list(character(0) , c("", "", "temp") ) ) "motor2.dat" <- matrix(c(2.256317689530686, 2.256317689530686, 2.256317689530686, 2.256317689530686, 2.256317689530686, 2.256317689530686, 2.256317689530686, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.3629489603024574, 2.256317689530686, 2.256317689530686, 2.256317689530686, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.1588946459412783, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 2.0275750202757501, 3.2464985807958007, 3.4427932259397691, 3.537063142781617, 3.5492485568540557, 3.5774917998372247, 3.6866362692622929, 3.7156691424009898, 2.6106601630898796, 2.6106601630898796, 3.1283992687178062, 3.1283992687178062, 3.1583624920952493, 2.6106601630898796, 2.6106601630898796, 2.702430536445525, 2.702430536445525, 2.702430536445525, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.9065505191014496, 3.7362370989047289, 3.7362370989047289, 3.7362370989047289, 3.2253092817258624, 3.2253092817258624, 3.2253092817258624, 3.2253092817258624, 3.2253092817258624, 2.7226339225338121, 2.7226339225338121, 2.7226339225338121, 2.7226339225338121, 2.7226339225338121, 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., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.) , nrow = 40, ncol = 3) "norm.dat" <- c(13.800000000000001, 17.100000000000001, 8.6999999999999993, 7.0999999999999996, 8.1999999999999993, 4.7999999999999998, 16.600000000000001, 10., 8., 10.800000000000001, 8.1999999999999993, 12.300000000000001, 6.5999999999999996, 6.0999999999999996, 6.5999999999999996, 9.4000000000000004, 6.5999999999999996, 9.4000000000000004, 10.9, 9.3000000000000007, 10.6, 16.300000000000001, 11.4, 8.5999999999999996, 8., 7.5, 11.5, 8.8000000000000007, 6.0999999999999996, 11.9, 10.4, 7.7000000000000002, 11.300000000000001, 8.3000000000000007, 11., 8.4000000000000004, 10.9, 16.100000000000001, 8.8000000000000007, 11.800000000000001) "ph1.dat" <- c(8.25915, 6.6219599999999996, 8.0285600000000006, 7.9709099999999999, 7.8902099999999997, 8.3168000000000006, 8.4320900000000005, 7.4866799999999998, 6.7026700000000003, 6.5873699999999999, 5.8956, 5.3191300000000004, 4.9732399999999997, 8.1669199999999993, 8.4320900000000005, 7.42903, 8.1438600000000001, 7.4866799999999998, 8.1438600000000001, 6.5873699999999999, 6.9332599999999998, 6.7026700000000003, 7.5097300000000002, 6.8179600000000002, 7.3944400000000003, 5.7803100000000001, 6.2414899999999998, 7.0485499999999996, 6.8179600000000002, 7.9709099999999999, 7.1638500000000001, 5.4344200000000003, 5.8379599999999998, 8.2360900000000008, 8.0054999999999996, 6.1261900000000002, 6.3567799999999997, 5.4344200000000003, 6.0570199999999996, 6.5873699999999999, 6.8179600000000002, 7.0485499999999996, 8.7203300000000006, 7.0485499999999996, 6.1607799999999999, 6.5873699999999999, 7.5097300000000002, 6.4720800000000001, 6.5873699999999999, 6.5873699999999999, 8.2014999999999993, 6.2760800000000003, 7.1638500000000001, 6.4720800000000001, 8.1438500000000005, 8.2360900000000008, 8.1092700000000004, 7.7979700000000003, 6.2414899999999998, 8.4897399999999994, 6.5873699999999999, 7.9709099999999999, 7.3944400000000003, 6.7603200000000001, 8.2014999999999993, 7.4520799999999996, 6.8179600000000002, 7.7979700000000003, 7.7403199999999996, 5.9763099999999998, 7.5097300000000002, 6.5297299999999998, 6.9332599999999998, 6.7718499999999997, 6.3913700000000002, 5.8956, 5.8956, 6.0108899999999998, 7.85562, 6.5873699999999999, 6.8179600000000002, 6.3567799999999997, 6.7026700000000003, 6.7026700000000003, 7.3944400000000003, 6.32219, 6.7026700000000003, 7.7403199999999996, 7.1292600000000004, 5.8379599999999998, 5.9532499999999997, 6.8756000000000004, 6.9332500000000001, 6.5873600000000003, 7.1638299999999999, 6.06853, 6.4374799999999999, 6.4144300000000003, 6.4720700000000004, 6.7833699999999997, 6.8986700000000001, 5.8379500000000002, 6.0108899999999998, 6.1031300000000002, 6.0108899999999998, 6.2645299999999997, 6.3452500000000001, 6.04549, 6.1607700000000003, 5.8610100000000003, 6.1261900000000002, 6.7026700000000003, 6.2184200000000001, 5.8955900000000003, 5.8379500000000002, 5.4344099999999997, 6.1607700000000003, 5.93018, 6.4951299999999996, 6.5873600000000003, 5.5497100000000001, 6.1261900000000002, 6.5297200000000002, 7.0485499999999996) "ph2.dat" <- c(8.4800000000000004, 7.1600000000000001, 7.9299999999999997, 7.9800000000000004, 7.8899999999999997, 8.1999999999999993, 8.3800000000000008, 7.8899999999999997, 6.9400000000000004, 6.7300000000000004, 6.0099999999999998, 5.5650000000000004, 4.8975, 7.6600000000000001, 8.6999999999999993, 7.7699999999999996, 8.0700000000000003, 7.6699999999999999, 8.8300000000000001, 7.25, 7.7199999999999998, 7.7800000000000002, 6.4500000000000002, 7.6500000000000004, 7.7000000000000002, 5.7000000000000002, 6.3399999999999999, 7.2000000000000002, 7.1900000000000004, 8.8399999999999999, 7.8399999999999999, 6.2450000000000001, 6.4032999999999998, 8.4199999999999999, 7.8499999999999996, 6.3399999999999999, 7.0300000000000002, 5.4100000000000001, 6.3799999999999999, 7.1699999999999999, 7.2599999999999998, 7.7000000000000002, 8.4800000000000004, 7.5, 5.7432999999999996, 7.3666999999999998, 7.8099999999999996, 6.5732999999999997, 6.0949999999999998, 6.4000000000000004, 7.9800000000000004, 6.9900000000000002, 7.3899999999999997, 5.9400000000000004, 7.9649999999999999, 7.8532999999999999, 7.5599999999999996, 7.7000000000000002, 6.5700000000000003, 8.5800000000000001, 7.0999999999999996, 7.6100000000000003, 7.9500000000000002, 7.2599999999999998, 7.71, 7.5700000000000003, 7.2300000000000004, 7.79, 7.4500000000000002, 6.3249000000000004, 7.4500000000000002, 7.125, 6.9199999999999999, 6.9100000000000001, 5.7999999999999998, 6.0750000000000002, 6.5700000000000003, 5.54, 8.1899999999999995, 6.3799999999999999, 7.2000000000000002, 6.9500000000000002, 6.8300000000000001, 6.9000000000000004, 8.1899999999999995, 5.9850000000000003, 6.8899999999999997, 8.1199999999999992, 7.0899999999999999, 6.0549999999999997, 6.1200000000000001, 7.3499999999999996, 6.9800000000000004, 6.0049999999999999, 7.46, 5.9950000000000001, 5.8049999999999997, 6.9299999999999997, 6.4775, 6.79, 7.3600000000000003, 5.2699999999999996, 6.8799999999999999, 6.335, 6.9900000000000002, 7.4500000000000002, 6.04, 5.9900000000000002, 6.3799999999999999, 5.3799999999999999, 6.0499999999999998, 6.7000000000000002, 6.2699999999999996, 5.1299999999999999, 6.5800000000000001, 5.5300000000000002, 5.8399999999999999, 6.1150000000000002, 6.46, 6.9800000000000004, 5.4249999999999998, 6.6399999999999997, 6.8300000000000001, 6.9299999999999997, 7.7300000000000004, 7.3099999999999996, 7.3300000000000001, 7.2850000000000001, 7.1399999999999997, 7.8200000000000003, 7.46, 7.54, 7.7300000000000004, 7.6200000000000001, 7.0899999999999999, 7.7400000000000002, 7.6399999999999997, 7.4199999999999999, 7.4699999999999998, 6.7800000000000002, 6.9900000000000002, 7.0099999999999998, 7.1299999999999999, 6.4555999999999996, 6.7199999999999998, 6.1299999999999999, 7.5199999999999996, 7.79, 8.) "sal.dat" <- c(0.20000000000000001, 1.2, 10.6, 13.199999999999999, 8.4000000000000004, 3.3999999999999999, 3.2000000000000002, 1.8, 0., 3.3999999999999999, 9., 6.4000000000000004, 6.2000000000000002, 2.7999999999999998, 1.2, 0.20000000000000001, 0.20000000000000001, 0., 0.40000000000000002, 0.20000000000000001, 0.20000000000000001, 0., 0., 2.7999999999999998, 4.2000000000000002, 8.8000000000000007, 15.800000000000001, 0.80000000000000004, 0., 0., 0., 0.20000000000000001, 4.5999999999999996, 3.3999999999999999, 0., 2.3999999999999999, 0.80000000000000004, 0., 0., 0.20000000000000001, 0., 0.20000000000000001, 1., 0.20000000000000001, 0., 0., 0., 1.2, 2.7999999999999998, 3., 4.4000000000000004, 1.6000000000000001, 1.3999999999999999, 1.6000000000000001, 0.20000000000000001, 0.40000000000000002, 0., 0., 0., 0., 0., 0., 2.7999999999999998, 3.6000000000000001, 0.80000000000000004, 1.3999999999999999, 3.6000000000000001, 3.3999999999999999, 0., 0., 12.4, 3.7999999999999998, 0., 0., 1.2, 7.2000000000000002, 2.7999999999999998, 1.2, 7.4000000000000004, 8.4000000000000004, 1., 0.20000000000000001, 3.3999999999999999, 2.6000000000000001, 0.80000000000000004, 4.5999999999999996, 4.7999999999999998, 0.80000000000000004, 0., 0., 0., 0.20000000000000001, 0.20000000000000001, 0., 0.59999999999999998, 1.3999999999999999, 0.20000000000000001, 1.2, 3.2000000000000002, 3.2000000000000002, 2.7999999999999998, 4.4000000000000004, 6.7999999999999998, 1.3999999999999999, 0.80000000000000004, 4.4000000000000004, 0.40000000000000002, 0., 0., 0., 1.3999999999999999, 0., 0., 4., 0.80000000000000004, 0., 0., 0., 0.20000000000000001, 0., 0., 0.20000000000000001, 0., 0., 0.40000000000000002, 1.2, 1., 0., 0., 1.2, 0.40000000000000002, 1., 0., 1.3999999999999999, 1.3999999999999999, 1.6000000000000001, 2., 5.7999999999999998, 2.7999999999999998, 3., 0.59999999999999998, 0., 0.40000000000000002, 1.8) "wood.dat" <- matrix(c(24.699999999999999, 24.800000000000001, 27.300000000000001, 28.399999999999999, 28.399999999999999, 29., 30.300000000000001, 32.700000000000003, 35.600000000000001, 38.5, 38.799999999999997, 39.299999999999997, 39.399999999999999, 39.899999999999999, 40.299999999999997, 40.600000000000001, 40.700000000000003, 40.700000000000003, 42.899999999999999, 45.799999999999997, 46.899999999999999, 48.200000000000003, 51.5, 51.5, 53.399999999999999, 56., 56.5, 57.299999999999997, 57.600000000000001, 59.200000000000003, 59.799999999999997, 66., 67.400000000000006, 68.799999999999997, 69.099999999999994, 69.099999999999994, 484., 427., 413., 517., 549., 648., 587., 704., 979., 914., 1070., 1020., 1210., 989., 1160., 1010., 1100., 1130., 1270., 1180., 1400., 1760., 1710., 2010., 1880., 1980., 1820., 2020., 1980., 2310., 1940., 3260., 2700., 2890., 2740., 3140.) , nrow = 36, ncol = 2) "fuel.dat" <- matrix(c(0.90700000000000003, 0.76100000000000001, 1.1080000000000001, 1.016, 1.1890000000000001, 1.0009999999999999, 1.2310000000000001, 1.123, 1.042, 1.2150000000000001, 0.93000000000000005, 1.1519999999999999, 1.1379999999999999, 0.60099999999999998, 0.69599999999999995, 0.68600000000000005, 1.0720000000000001, 1.0740000000000001, 0.93400000000000005, 0.80800000000000005, 1.071, 1.0089999999999999, 1.1419999999999999, 1.2290000000000001, 1.175, 0.56799999999999995, 0.97699999999999998, 0.76700000000000002, 1.006, 0.89300000000000002, 1.1519999999999999, 0.69299999999999995, 1.232, 1.036, 1.125, 1.081, 0.86799999999999999, 0.76200000000000001, 1.1439999999999999, 1.0449999999999999, 0.79700000000000004, 1.115, 1.0700000000000001, 1.2190000000000001, 0.63700000000000001, 0.73299999999999998, 0.71499999999999997, 0.872, 0.76500000000000001, 0.878, 0.81100000000000005, 0.67600000000000005, 1.0449999999999999, 0.96799999999999997, 0.84599999999999997, 0.68400000000000005, 0.72899999999999998, 0.91100000000000003, 0.80800000000000005, 1.1679999999999999, 0.749, 0.89200000000000002, 1.002, 0.81200000000000006, 1.23, 0.80400000000000005, 0.81299999999999994, 1.002, 0.69599999999999995, 1.1990000000000001, 1.03, 0.60199999999999998, 0.69400000000000006, 0.81599999999999995, 1.0369999999999999, 1.181, 0.89900000000000002, 1.2270000000000001, 1.1799999999999999, 0.79500000000000004, 0.98999999999999999, 1.2010000000000001, 0.629, 0.60799999999999998, 0.58399999999999996, 0.56200000000000006, 0.53500000000000003, 0.65500000000000003, 3.7410000000000001, 2.2949999999999999, 1.498, 2.8809999999999998, 0.76000000000000001, 3.1200000000000001, 0.63800000000000001, 1.1699999999999999, 2.3580000000000001, 0.60599999999999998, 3.669, 1., 0.98099999999999998, 1.1919999999999999, 0.92600000000000005, 1.5900000000000001, 1.806, 1.962, 4.0279999999999996, 3.1480000000000001, 1.8360000000000001, 2.8450000000000002, 1.0129999999999999, 0.41399999999999998, 0.81200000000000006, 0.374, 3.6230000000000002, 1.869, 2.8359999999999999, 3.5670000000000002, 0.86599999999999999, 1.369, 0.54200000000000004, 2.7389999999999999, 1.2, 1.7190000000000001, 3.423, 1.6339999999999999, 1.0209999999999999, 2.157, 3.3610000000000002, 1.3899999999999999, 1.9470000000000001, 0.96199999999999997, 0.57099999999999995, 2.2189999999999999, 1.419, 3.5190000000000001, 1.732, 3.206, 2.4710000000000001, 1.7769999999999999, 2.5710000000000002, 3.952, 3.931, 1.587, 1.397, 3.536, 2.202, 0.75600000000000001, 1.6200000000000001, 3.6560000000000001, 2.964, 3.7599999999999998, 0.67200000000000004, 3.677, 3.5169999999999999, 3.29, 1.139, 0.72699999999999998, 2.581, 0.92300000000000004, 1.5269999999999999, 3.3879999999999999, 2.085, 0.96599999999999997, 3.488, 0.754, 0.79700000000000004, 2.0640000000000001, 3.7320000000000002, 0.58599999999999997, 0.56100000000000005, 0.56299999999999994, 0.67800000000000005, 0.37, 0.53000000000000003, 1.8999999999999999) , nrow = 88, ncol = 2 , dimnames = list(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", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88") , c("E", "NOx") ) ) "bulb.dat" <- c(15.858000000000001, 1.851, 9.7520000000000007, 8.1210000000000004, 11.959, 1.216, 1.7410000000000001, 6.1689999999999996, 0.087999999999999995, 4.6369999999999996, 2.0579999999999998, 0.14499999999999999, 6.1849999999999996, 4.6790000000000003, 2.4550000000000001, 1.6080000000000001, 12.186, 1.605, 3.0950000000000002, 3.1619999999999999, 11.73, 0.14399999999999999, 6.7549999999999999, 2.423, 3.8679999999999999, 6.7119999999999997, 8.4600000000000009, 3.7650000000000001, 3.335, 0.76000000000000001) "norm.dat" <- c(13.800000000000001, 17.100000000000001, 8.6999999999999993, 7.0999999999999996, 8.1999999999999993, 4.7999999999999998, 16.600000000000001, 10., 8., 10.800000000000001, 8.1999999999999993, 12.300000000000001, 6.5999999999999996, 6.0999999999999996, 6.5999999999999996, 9.4000000000000004, 6.5999999999999996, 9.4000000000000004, 10.9, 9.3000000000000007, 10.6, 16.300000000000001, 11.4, 8.5999999999999996, 8., 7.5, 11.5, 8.8000000000000007, 6.0999999999999996, 11.9, 10.4, 7.7000000000000002, 11.300000000000001, 8.3000000000000007, 11., 8.4000000000000004, 10.9, 16.100000000000001, 8.8000000000000007, 11.800000000000001)