### This is basically http://lib.stat.cmu.edu/datasets/nonlin ### --------------------------------------- ## Enclosed are the data sets from Bates and Watts (1988) "Nonlinear ## Regression Analysis and Its Applications", Wiley. They are in S dump ## format as data frames. (If you don't know what a data frame is, don't ## worry. Just consider them to be lists. Data frames will be described ## in a book on "Statistical Modelling in S" to be published Real Soon Now.) ## -- Doug Bates (bates@stat.wisc.edu) "BOD"<- structure(.Data = list(time = c(1, 2, 3, 4, 5, 7), demand = c(8.300000000000001, 10.3, 19, 16, 15.6, 19.8)), row.names = c("1", "2", "3", "4", "5", "6"), class = "data.frame", reference = "A1.4, p. 270") "BOD2"<- structure(.Data = list(time = c(1, 2, 3, 4, 5, 7, 9, 11), bod = c(.47, .74, 1.17, 1.42, 1.6, 1.84, 2.19, 2.17)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8"), class = "data.frame", reference = "A4.1, p. 305") "Chloride"<- structure(.Data = list(time = c(2.45, 2.55, 2.65, 2.75, 2.85, 2.95, 3.05, 3.15, 3.25, 3.35, 3.45, 3.55, 3.65, 3.75, 3.85, 3.95, 4.05, 4.15, 4.25, 4.35, 4.45, 4.55, 4.65, 4.75, 4.85, 4.95, 5.05, 5.15, 5.25, 5.35, 5.45, 5.55, 5.65, 5.75, 5.85, 5.95, 6.05, 6.15, 6.25, 6.35, 6.45, 6.55, 6.65, 6.75, 6.85, 6.95, 7.05, 7.15, 7.25, 7.35, 7.45, 7.55, 7.65, 7.75), conc = c( 17.3, 17.6, 17.9, 18.3, 18.5, 18.9, 19, 19.3, 19.8, 19.9, 20.2, 20.5, 20.6, 21.1, 21.5, 21.9, 22, 22.3, 22.6, 22.8, 23, 23.2, 23.4, 23.7, 24, 24.2, 24.5, 25, 25.4, 25.5, 25.9, 25.9, 26.3, 26.2, 26.5, 26.5, 26.6, 27, 27, 27, 27, 27.3, 27.8, 28.1, 28.1, 28.1, 28.4, 28.6, 29, 29.2, 29.3, 29.4, 29.4, 29.4)), 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", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54"), class = "data.frame", reference = "A1.9, p. 274") "Coal"<- structure(.Data = list(time = c(25, 25, 25, 25, 25, 25, 25, 40, 25, 25, 25, 25, 25, 70, 90, 70, 25, 55, 55, 55, 55, 55, 55), temp = c(713.7, 713.7, 713.7, 713.7, 713.7, 713.7, 705.4, 705.4, 705.4, 705.4, 705.4, 705.4, 705.4, 697, 688.7, 697, 697, 697, 697, 697, 697, 697, 697), pressure = c(16.028, 16.304, 16.166, 16.166, 13.96, 13.822, 13.684, 13.546, 13.063, 13.063, 13.684, 16.235, 13.684, 13.27, 13.27, 13.339, 13.339, 12.926, 15.27, 18.717, 17.338, 14.442, 17.338), fe2o3 = c(2.608, 2.609, 2.611, 2.607, 2.597, 2.607, 2.611, 2.612, 2.64, 2.639, 2.609, 2.511, 2.593, 2.589, 2.599, 2.599, 2.597, 2.599, 1.688, 0, 1.723, 1.65, 2.611), tr = c(66.34099999999999, 66.34, 66.34099999999999, 66.339, 66.358, 66.373, 66.395, 66.38, 85.878, 77.92700000000001, 83.91500000000001, 56.633, 66.358, 66.35899999999999, 66.346, 66.351, 66.358, 66.351, 48.74, 46.306, 46.44, 24.786, 66.33199999999999), x1 = c(0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0.012, 0.014, 0.015, 0.015, 0.015, 0.015, 0.015, 0.015, 0, 0, 0, 0, 0.018), x2 = c(22.308, 22.306, 22.316, 22.308, 22.384, 22.381, 22.39, 22.388, 28.726, 26.043, 23.684, 18.764, 22.423, 22.388, 22.389, 22.416, 22.418, 22.387, 17.879, 16.896, 16.879, 9.016999999999999, 20.634), x3 = c(41.013, 41.009, 41.027, 41.013, 41.133, 41.13, 41.134, 41.142, 35.106, 37.783, 45.926, 43.472, 41.217, 41.147, 41.166, 41.207, 41.209, 41.154, 41.423, 39.141, 39.11, 51.088, 37.928), x4 = c(.18, .18, .184, .18, .18, .18, .18, .18, .181, .185, .151, .173, 0, .184, .179, 0, 0, .18, 0, 0, 0, 0, 0), x5 = c(0.008, 0.007, 0.016, 0.008, 0.008999999999999999, 0.008, 0.007, 0.007, 0.008999999999999999, 0.017, 0.006, 0.011, 0, 0.019, 0.007, 0, 0, 0.008999999999999999, 0, 0, 0, 0, 0), x6 = c(.82, .82, .82, .82, .821, .822, .823, .823, .819, .8179999999999999, .6879999999999999, 2.812, .822, .82, .822, .823, .822, .822, 2.137, 4.805, 4.998, 1.57, 7.618), x7 = c(2.029, 2.04, 1.984, 2.03, 1.726, 1.746, 1.73, 1.717, 1.694, 1.719, 1.31, 1.622, 1.733, 1.689, 1.676, 1.757, 1.753, 1.693, 1.88, 2.67, 2.669, 1.946, 2.696), x8 = c(33.627, 33.623, 33.638, 33.627, 33.731, 33.719, 33.722, 33.728, 33.45, 33.419, 28.223, 33.132, 33.79, 33.738, 33.747, 33.783, 33.783, 33.74, 36.682, 36.489, 36.345, 36.38, 31.106), y1 = c(1.702, 1.777, 1.39, 1.674, 2.392, 1.909, 2.694, 1.843, 2.998, 2.793, 2.103, 2.455, 2.276, 1.5, 1.699, 1.679, 3.138, 1.615, 2.177, 4.423, 1.672, 2.347, 1.226), y2 = c(35.197, 34.87, 36.224, 36.295, 35.439, 34.65, 36.093, 33.549, 42.572, 40.889, 34.867, 36.858, 38.326, 36.885, 35.716, 36.764, 38.821, 36.61, 39.042, 35.829, 35.249, 29.585, 31.952), y3 = c(53.884, 54.317, 52.909, 52.692, 52.698, 53.758, 53.323, 55.452, 46.972, 48.832, 56.44, 48.818, 50.961, 52.21, 53.325, 52.093, 50.516, 52.378, 46.474, 44.133, 47.062, 55.937, 50.266), y4 = c(1.729, 1.715, 1.902, 1.842, 2.046, 1.972, 1.442, 1.816, 1.404, 1.461, 1.182, 1.567, 1.424, 2.225, 1.854, 2.017, .927, 1.744, 1.904, 1.989, 1.882, 1.832, 1.856), y5 = c(1.985, 1.83, 2.063, 2.006, 2.146, 2.067, 1.935, 2.041, 1.62, 1.744, 1.619, 3.015, 1.797, 2.099, 2.289, 2.183, 1.71, 2.137, 3.339, 3.558, 3.356, 3.231, 2.203), y6 = c( 4.01, 4.02, 4.027, 4.017, 3.986, 4.401, 3.234, 4.151, 3.199, 3.051, 2.759, 5.909, 3.87, 3.99, 4.032, 4.085, 3.532, 4.403, 5.737, 7.811, 8.813000000000001, 5.66, 10.507), y7 = c(1.491, 1.47, 1.485, 1.474, 1.294, 1.242, 1.279, 1.148, 1.235, 1.229, 1.03, 1.38, 1.346, 1.091, 1.084, 1.178, 1.356, 1.113, 1.327, 2.258, 1.967, 1.41, 1.989)), row.names = c(52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 64, 65, 77, 78, 79, 80, 81, 82, 86, 91, 92, 94, 95), class = "data.frame") "Ethyl"<- structure(.Data = list(start = c(0, .25, .5, .75, 1, 1.5, 2, 4, 6, 8, 24, 48), length = c(.25, .25, .25, .25, .5, .5, 2, 2, 2, 16, 24, 24), CO2 = c( 0.01563, 0.0419, 0.05328, 0.05226, 0.0885, 0.0634, .13419, 0.04502, 0.02942, 0.02716, 0.01037, 0.00602)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame", reference = "A1.10, p. 274") "Isom"<- structure(.Data = list(hyd = c(205.8, 404.8, 209.7, 401.6, 224.9, 402.6, 212.7, 406.2, 133.3, 470.9, 300, 301.6, 297.3, 314, 305.7, 300.1, 305.4, 305.2, 300.1, 106.6, 417.2, 251, 250.3, 145.1), n.pent = c(90.90000000000001, 92.90000000000001, 174.9, 187.2, 92.7, 102.2, 186.9, 192.6, 140.8, 144.2, 68.3, 214.6, 142.2, 146.7, 142, 143.7, 141.1, 141.5, 83, 209.6, 83.90000000000001, 294.4, 148, 291), iso.pen = c(37.1, 36.3, 49.4, 44.9, 116.3, 128.9, 134.4, 134.9, 87.59999999999999, 86.90000000000001, 81.7, 101.7, 10.5, 157.1, 86, 90.2, 87.40000000000001, 87, 66.40000000000001, 33, 32.9, 41.5, 14.7, 50.2), rate = c(3.541, 2.397, 6.694, 4.722, .593, .268, 2.797, 2.451, 3.196, 2.021, .896, 5.084, 5.686, 1.193, 2.648, 3.303, 3.054, 3.302, 1.271, 11.648, 2.002, 9.603999999999999, 7.754, 11.59)), 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"), class = "data.frame", reference = "A1.4, p. 271") "Leaves"<- structure(.Data = list(time = c(.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5, 14.5), length = c(1.3, 1.3, 1.9, 3.4, 5.3, 7.1, 10.6, 16, 16.4, 18.3, 20.9, 20.5, 21.3, 21.2, 20.9)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15"), class = "data.frame", reference = "A4.5, p. 310") "Lipo"<- structure(.Data = list(time = c(.5, 1, 1.5, 2, 3, 4, 5, 6, 7, 8, 9, 10), conc = c(46.1, 25.9, 17, 12.1, 7.22, 4.51, 3.19, 2.4, 1.82, 1.41, 1, .9399999999999999)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame", reference = "A1.16, p. 282") "Lubricant"<- structure(.Data = list(pressure = c(1, 740.803, 1407.47, 363.166, 1, 805.5, 1868.09, 3285.1, 3907.47, 4125.47, 2572.03, 1, 805.5, 1505.92, 2339.96, 422.941, 1168.37, 2237.29, 4216.89, 5064.29, 5280.88, 3647.27, 2813.94, 516.822, 1737.99, 1008.73, 2749.24, 1375.82, 191.084, 1, 2922.94, 4044.6, 4849.8, 5605.78, 6273.85, 3636.72, 1948.96, 1298.47, 1, 685.95, 1423.64, 2791.43, 4213.37, 2103.67, 402.195, 1, 2219.7, 3534.75, 4937.71, 6344.17, 7469.35, 5640.94, 4107.89), viscos = c(5.10595, 6.38705, 7.38511, 5.79057, 5.10716, 6.36113, 7.97329, 10.4725, 11.9272, 12.4262, 9.1563, 4.54223, 5.82452, 6.70515, 7.71659, 5.29782, 6.22654, 7.57338, 10.354, 11.9844, 12.4435, 9.52333, 8.34496, 5.17275, 6.64963, 5.80754, 7.74101, 6.23206, 4.6606, 4.29865, 7.96731, 9.34225, 10.5109, 11.8215, 13.068, 8.804449999999999, 6.8553, 6.11898, 3.38099, 4.45783, 5.20675, 6.29101, 7.32719, 5.76988, 4.08766, 3.37417, 5.83919, 6.72635, 7.76883, 8.91362, 9.98334, 8.32329, 7.1321), tempC = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 37.77777777777778, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889, 98.88888888888889)), 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", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53"), class = "data.frame", reference = "A1.8, p. 274") "Nitren"<- structure(.Data = list(log.NIF = c(NA, NA, NA, -11, -11, -11, -10, -10, -10, -9, -9, -9, -8, -8, -8, -7, -7, -7, -6, -6, -6, -5, -5, -5, NA, NA), tiss1 = c(6696, 6211, 6385, 6396, 6283, 6071, 6545, 6378, 5932, 5509, 6573, 5932, 4763, 5389, 4131, 4583, 3815, 3539, 3211, 4263, 3537, NA, NA, NA, NA, NA), tiss2 = c(4403, 5042, NA, 5259, 5598, NA, 4868, 4769, NA, 3931, 4503, NA, 2588, 3089, NA, 2084, 3665, NA, 2149, 2216, NA, 1433, 1926, NA, NA, NA), tiss3 = c(6133, 5688, 6544, 6783, 6194, 6188, 5674, 5583, 6027, 5458, 5482, 5878, 4173, 3837, 4852, 4359, 3936, 4468, 3110, 3860, 4297, 3471, 3674, 3990, 5938, 5948), tiss4 = c(5327, 6274, 5210, 6811, 6751, 7289, 7214, 5652, 5700, 6184, 5175, 5802, 3582, 7021, 4187, 3838, 3273, 4562, 4004, 3520, 4581, 3719, 2915, 4504, 6396, 6071) ), 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"), class = "data.frame", reference = "A4.2, p. 306") "Nitrite"<- structure(.Data = list(light = c(2.2, 2.2, 2.2, 5.5, 5.5, 5.5, 9.6, 9.6, 9.6, 17.5, 17.5, 17.5, 27, 27, 27, 46, 46, 46, 94, 94, 94, 170, 170, 170), day1 = c(256, 685, 1537, 2148, 2583, 3376, 3634, 4960, 3814, 6986, 6903, 7636, 9884, 11597, 10221, 17319, 16539, 15047, 19250, 20282, 18357, 19638, 19043, 17475), day2 = c(549, 1550, 1882, 1888, 3372, 2362, 4561, 4939, 4356, 7548, 7471, 7642, 9684, 8988, 8385, 13505, 15324, 15430, 17842, 18185, 17331, 18202, 18315, 15605)), 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"), class = "data.frame", reference = "A1.12, p. 279") "O.xylene"<- structure(.Data = list(oxygen = c(0.00502, 0.00499, 0.00504, 0.00505, 0.01, 0.0101, 0.0103, 0.0104, 0.0101, 0.0101, 0.0101, 0.0057, 0.00552, 0.00551, 0.00551, 0.00554, 0.00553, 0.00108, 0.00707, 0.00554, 0.00605, 0.00552, 0.01016, 0.00552, 0.00603, 0.01, 0.0101, 0.00805, 0.00552, 0.00249, 0.00571, 0.00555, 0.00549, 0.00554, 0.00507, 0.00502, 0.00505, 0.00506, 0.005, 0.001, 0.00505, 0.00306, 0.00502, 0.00504, 0.01017, 0.00499, 0.01, 0.00496, 0.01, 0.00502, 0.00399, 0.00107, 0.00499, 0.00503, 0.00251, 0.00499, 0.00906), o.xyl = c(0.0002, 0.00019, 0.0002, 0.0002, 0.000351, 0.000351, 5e-05, 0.000361, 4.9e-05, 5e-05, 5e-05, 0.000201, 0.000201, 0.000202, 0.000186, 0.000202, 0.000199, 5.1e-05, 9.899999999999999e-05, 0.000197, 0.000351, 0.000202, 0.000189, 0.0002, 4.9e-05, 0.000201, 0.000151, 0.000354, 0.000199, 0.000198, 4.9e-05, 0.000347, 0.000274, 9.500000000000001e-05, 0.000191, 0.000187, 0.000192, 0.000188, 0.000201, 0.00035, 0.000202, 0.000349, 0.000198, 0.000201, 0.000245, 0.000187, 0.000253, 0.000346, 0.000253, 0.000199, 0.000357, 0.000196, 0.000353, 0.0001, 0.000199, 0.000277, 0.000205), temp = c(543, 543, 543, 543, 543, 543, 543, 543, 543, 543, 543, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 563, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573, 573), rate = c(116, 120, 114, 117, 245, 230, 106, 230, 121, 115, 127, 408, 380, 320, 399, 371, 368, 63, 333, 322, 413, 344, 543, 372, 229, 563, 490, 595, 352, 224, 198, 463, 370, 258, 543, 561, 560, 578, 542, 197, 559, 414, 467, 468, 933, 509, 955, 650, 902, 532, 552, 184, 663, 409, 326, 580, 831)), 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", "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"), class = "data.frame", reference = "A4.4, p. 306") "Oilshale"<- structure(.Data = list(time = c(5, 7, 10, 15, 20, 25, 30, 40, 50, 60, 80, 100, 120, 150, 5, 7, 10, 12.5, 15, 17.5, 20, 25, 30, 40, 50, 60, 5, 7.5, 8, 9, 10, 11, 12.5, 15, 17.5, 17.5, 20, 20, 3, 4.5, 5, 5.5, 6, 6.5, 7, 8, 9, 10, 12.5, 15, 3, 4, 4.5, 5, 5.5, 6, 6.5, 10, 3, 3.25, 3.5, 4, 5, 7), bitumen = c(0, 2.2, 11.5, 13.7, 15.1, 17.3, 17.3, 20.1, 20.1, 22.3, 20.9, 11.5, 6.5, 3.6, 6.5, 14.4, 18, 16.5, 29.5, 23.7, 36.7, 27.3, 16.5, 7.2, 3.6, 2.2, 8.6, 15.8, 25.9, 25.2, 26.6, 33.8, 25.9, 20.1, 12.9, 9.300000000000001, 3.6, 2.2, .7, 17.3, 23, 24.4, 23, 33.1, 31.6, 20.9, 10.1, 4.3, .7, .7, 6.5, 24.4, 26.6, 25.9, 17.3, 21.6, 1.4, 0, 25.2, 33.1, 21.6, 20.9, 4.3, 0), oil = c(0, 0, .7, 7.2, 11.5, 15.8, 20.9, 26.6, 32.4, 38.1, 43.2, 49.6, 51.8, 54.7, 0, 1.4, 10.8, 14.4, 21.6, 30.2, 33.1, 40.3, 47.5, 55.4, 56.8, 59.7, 0, 2.9, 16.5, 24.4, 29.5, 35.2, 39.5, 45.3, 43.1, 54.6, 59.7, 53.9, 0, 2.9, 17.3, 20.9, 25.9, 29.5, 33.8, 45.3, 53.2, 58.2, 57.5, 61.1, 0, 23, 32.4, 37.4, 45.3, 45.3, 57.5, 60.4, 20.9, 25.2, 17.3, 36.7, 56.8, 61.8), temp = c( 673, 673, 673, 673, 673, 673, 673, 673, 673, 673, 673, 673, 673, 673, 698, 698, 698, 698, 698, 698, 698, 698, 698, 698, 698, 698, 723, 723, 723, 723, 723, 723, 723, 723, 723, 723, 723, 723, 748, 748, 748, 748, 748, 748, 748, 748, 748, 748, 748, 748, 773, 773, 773, 773, 773, 773, 773, 773, 798, 798, 798, 798, 798, 798)), 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", "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"), class = "data.frame", reference = "A1.15, p. 282") "PCB"<- structure(.Data = list(age = c(1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 11, 12, 12, 12), conc = c(.6, 1.6, .5, 1.2, 2, 1.3, 2.5, 2.2, 2.4, 1.2, 3.5, 4.1, 5.1, 5.7, 3.4, 9.699999999999999, 8.6, 4, 5.5, 10.5, 17.5, 13.4, 4.5, 30.4, 12.4, 13.4, 26.2, 7.4)), 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"), class = "data.frame", reference = "A1.1, p. 267") "Pinene"<- structure(.Data = list(time = c(1230, 3060, 4920, 7800, 10680, 15030, 22620, 36420), a.pin = c(88.34999999999999, 76.40000000000001, 65.09999999999999, 50.4, 37.5, 25.9, 14, 4.5), dipen = c(7.3, 15.6, 23.1, 32.9, 42.7, 49.1, 57.4, 63.1), alloo = c(2.3, 4.5, 5.3, 6, 6, 5.9, 5.1, 3.8), pyron = c(.4, .7, 1.1, 1.5, 1.9, 2.2, 2.6, 2.9), dimer = c(1.75, 2.8, 5.8, 9.300000000000001, 12, 17, 21, 25.7)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8"), class = "data.frame", reference = "A1.6, p. 272") "Pinene2"<- structure(.Data = list(time = c(440, 825, 1200, 1500, 2040, 3060, 6060, 16020), a.pin = c(85.90000000000001, 74.3, 65.09999999999999, 58.6, 48.1, 32.1, 11.2, NA), dipen = c(8.199999999999999, 15.6, 21.5, 25.5, 31.9, 42, 54.7, 61.3), alloo = c(4.1, 6.8, 7.7, 8.4, 8.5, 8.199999999999999, 6.9, 5), pyron = c(.4, .8, 1, 1.2, 1.6, 2, 2.7, 3), dimer = c(.6, 1.6, 3.4, 5, 8.199999999999999, 13.5, 21.9, 27.8)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8"), class = "data.frame", reference = "A4.6, p. 310") "Puromycin"<- structure(.Data = list(conc = c(0.02, 0.02, 0.06, 0.06, .11, .11, .22, .22, .5600000000000001, .5600000000000001, 1.1, 1.1, 0.02, 0.02, 0.06, 0.06, .11, .11, .22, .22, .5600000000000001, .5600000000000001, 1.1), rate = c(76, 47, 97, 107, 123, 139, 159, 152, 191, 201, 207, 200, 67, 51, 84, 86, 98, 115, 131, 124, 144, 158, 160), trt = structure(.Data = c(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Label = c("untreated", "treated"), class = "set")), 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"), class = "data.frame", reference = "A1.3, p. 269") "Rumford"<- structure(.Data = list(time = c(4, 5, 7, 12, 14, 16, 20, 24, 28, 31, 34, 37.5, 41), temp = c(126, 125, 123, 120, 119, 118, 116, 115, 114, 113, 112, 111, 110)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"), class = "data.frame", reference = "A1.2, p. 268") "Sacch2"<- structure(.Data = list(time = c(0, 5, 15, 30, 45, 60, 75, 90, 105, 120), conc = c(0, 184.3, 102, 50.5, 24.9, 14.1, 8, 5.7, 4, 2.9)), row.names = c( "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"), class = "data.frame", reference = "A4.3, p. 306") "Saccharin"<- structure(.Data = list(start = c(0, 5, 15, 30, 45, 60, 75, 90, 105), length = c(5, 10, 15, 15, 15, 15, 15, 15, 15), sacch = c(7518, 6275, 4989, 2580, 1485, 861, 561, 363, 300)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9"), class = "data.frame", reference = "A1.11, p. 277") "Sulfi"<- structure(.Data = list(time = c(.25, .5, .75, 1, 1.5, 2, 3, 4, 6, 12, 24, 48), conc = c(215.6, 189.2, 176, 162.8, 138.6, 121, 101.2, 88, 61.6, 22, 4.4, .1)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), class = "data.frame", reference = "A1.7, p. 273") "Tetra"<- structure(.Data = list(time = c(1, 2, 3, 4, 6, 8, 10, 12, 16), conc = c(.7, 1.2, 1.4, 1.4, 1.1, .8, .6, .5, .3)), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9"), class = "data.frame", reference = "A1.14, p. 281") "sPMMA"<- structure(.Data = list(freq = c(30, 50, 70, 100, 150, 200, 300, 500, 700, 1000, 1500, 2000, 3000, 5000, 7000, 10000, 15000, 20000, 30000, 50000, 70000, 100000, 150000), real = c(4.22, 4.167, 4.132, 4.038, 4.019, 3.956, 3.884, 3.784, 3.713, 3.633, 3.54, 3.433, 3.358, 3.258, 3.193, 3.128, 3.059, 2.984, 2.934, 2.876, 2.838, 2.798, 2.759), imag = c(.136, .167, .188, .212, .236, .257, .276, .297, .309, .311, .314, .311, .305, .289, .277, .255, .24, .218, .202, .182, .168, .153, .139)), 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"), class = "data.frame", reference = "A1.13, p. 280")