"airplane.ex" <- c(" ", "****************************************************", " ", "airplane ", " ", "The data frame airplane contains distances flown by ", "paper airplanes in an experiment with four ", "treatments. It has 6 rows and 4 columns. Each data ", "point is the distance flown by one of the of 24 ", "airplanes randomly assigned to the four treatments ", "described below. The experiment was motivated by a ", "class experiment (but is artificial). ", " ", "columns: ", " ", "treat 1: No weighting of airplane nose. ", "treat 2: One paper clip on the nose. ", "treat 3: Two paper clips on the nose. ", "treat 4: Three paper clips on the nose. ", " ", "Example: Make a side by side boxplots of the four ", "treatments: ", " ", "plot(airplane) ", " ", "****************************************************") "cancer.dat" <- structure(.Data = list("smoke" = c(77., 137., 117., 94., 116., 102., 111., 93., 88., 102., 91., 104., 107., 112., 113., 110., 125., 133., 115., 105., 87., 91., 100., 76., 66.) , "SMR" = c(84., 116., 123., 128., 155., 101., 118., 113., 104., 88., 104., 129., 86., 96., 144., 139., 113., 146., 128., 115., 79., 85., 120., 60., 51.) ) , names = c("smoke", "SMR") , 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") , class = "data.frame" ) "cavendish.ex" <- c(" ", "****************************************************", " ", "cavendish ", " ", "The cavendish data set contains Cavendish's 1798 ", "determinations of the density of the earth.", " ", "Newton's law of gravitation states that the forces ", "of attraction (f) between two particles of matter is", "given by the formula f=mm'/(r**2), where m and m' ", "are their respective masses, r the distance between ", "their centers of gravity, and G is the gravitational", "constant, independent of the kind of matter or ", "intervening medium. From the late eighteenth ", "through nineteenth centuries, a large number of", "experiments were performed in order to determine G. ", "These experiments were usually designed to determine", "the earth's attraction of masses and described as ", "experiments to determine the mean density of the ", "earth: if the earth is supposed spherical with ", "radius R and g is the acceleration toward the earth ", "due to gravity, then Newton's law becomes ", "dG=3g/(4(pi)R), where d is the mean density (g/ccm)", "of the earth. Since g and R could be supposed known,", "determination of d could be viewed as equivalent to ", "determination. ", " ", "Of all these early experiments, that of Cavendish, ", "performed in 1798 using a torsion balance devised by", "Michell, is generally considered the best. The ", "completeness of his description of his experiments ", "and the excellence of his methods are often described", "as an ideal example of scientific experimentation. ", "Cavendish concluded his memoir by presenting 29 ", "determinations of the mean density of the earth. ", "After the 6th of these determinations, Cavendish ", "changed his experimental apparatus by replacing a", "suspension wire by one that was stiffer. Another ", "interesting feature of the data is that Cavendish", "calculated the sample mean incorrectly: somehow ", "he used 5.88 instead of 4.88 for the 3rd value. ", "This was first noticed by Baily in 1843 but ", "overlooked by Laplace's analysis of the data in ", "1820. The `true value' of d is 5.517 (1977 ", "Encyclopedia Britannica). ", " ", "The data and above description were taken from ", "Stigler (1977, The Annals of Statistics, p. ", "1055-1098) who obtained it from The Laws of ", "Gravitation edited by A. S. Mackenzie. ", " ", "****************************************************") "climate.ex" <- c(" ", "****************************************************", " ", "climate ", " ", "The data frame climate contains climate and ", "geographical data for 50 of the largest US cities. ", " ", "Columns are: ", " ", "lat: latitude ", "jan: average minimum January temperature (degrees F)", "rain: average rainfall in inches ", "city: city names ", "jul: average maximum July temperature ", "elev: elevation above sea level in KW. ", "lon: longitude ", " ", "Reference: The Universal Almanac (1992), ed. John W.", "Wright, Andrews and McNeel, Kansas City. ", " ", "****************************************************") "college.ex" <- c(" ", "****************************************************", " ", "college ", " ", "The data frame college contains statistics relating ", "to colleges from 15 states. This is a sample of ", "fifteen states and certain statistics taken from ", "the Chronicle of Higher Education (most data is for ", "1992). All entries are in thousands so that Arkansas", "(first row) has a population of 2,399,000, a yearly ", "per capita income of $15,400, 85,700 undergraduates ", "students, 7,000 graduate students, and average cost ", "of tuition and fees at public universities of $1,540,", "and is located in the south (s for south). ", " ", "Columns (all data in thousands): ", " ", "pop: State population. ", "inc: Yearly per capita income. ", "undgrad: Total number of undergraduate students. ", "grad: Total number of graduate students. ", "fees: Average cost of tuition and fees. ", "loc: Area of the country (s for south, w for ", " west, ne for northeast, mw for midwest). ", " ", "****************************************************") "etruscan.dat" <- structure(.Data = list("width" = c(141., 148., 132., 138., 154., 142., 150., 146., 155., 158., 150., 140., 147., 148., 144., 150., 149., 145., 149., 158., 143., 141., 144., 144., 126., 140., 144., 142., 141., 140., 145., 135., 147., 146., 141., 136., 140., 146., 142., 137., 148., 154., 137., 139., 143., 140., 131., 143., 141., 149., 148., 135., 148., 152., 143., 144., 141., 143., 147., 146., 150., 132., 142., 142., 143., 153., 149., 146., 149., 138., 142., 149., 142., 137., 134., 144., 146., 147., 140., 142., 140., 137., 152., 145., 133., 138., 130., 138., 134., 127., 128., 138., 136., 131., 126., 120., 124., 132., 132., 125., 139., 127., 133., 136., 121., 131., 125., 130., 129., 125., 136., 131., 132., 127., 129., 132., 116., 134., 125., 128., 139., 132., 130., 132., 128., 139., 135., 133., 128., 130., 130., 143., 144., 137., 140., 136., 135., 126., 139., 131., 133., 138., 133., 137., 140., 130., 137., 134., 130., 148., 135., 138., 135., 138.) , "group" = structure(.Data = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2) , levels = c("ancient", "modern") , class = "factor" ) ) , names = c("width", "group") , 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", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154") , class = "data.frame" ) "global.temp.ex" <- c(" ", "****************************************************", " ", "global.temp ", " ", "The data frame global.temp contains average global ", "temperatures from 1861 to 1989. Actually listed are ", "the differences in temperature relative to the mean ", "temperature over the time period. Note that ", "subtracting off a constant from the temperatures ", "will not change any possible time trend in the data.", "Reference: Bloomfield and Nychka (1992) `Climate ", "Spectra and Detecting Climate Change', Climatic ", "Change, 21, 257-287. ", " ", "Columns: ", " ", "year: year ", "temp: deviations from average of measured global ", " average temperature in degrees C. ", " ", "****************************************************") "guay.climate" <- structure(.Data = list("year" = c(1951., 1952., 1953., 1954., 1955., 1956., 1957., 1958., 1959., 1960., 1961., 1962., 1963., 1964., 1965., 1966., 1967., 1968., 1969., 1970.) , "temp" = c(26.100000000000001, 24.5, 24.800000000000001, 24.5, 24.100000000000001, 24.300000000000001, 26.399999999999999, 24.899999999999999, 23.699999999999999, 23.5, 24., 24.100000000000001, 23.699999999999999, 24.300000000000001, 26.600000000000001, 24.600000000000001, 24.800000000000001, 24.399999999999999, 26.800000000000001, 25.199999999999999) , "precip" = c(43., 10., 4., 0., 2., NA, 31., 0., 0., 0., 2., 3., 0., 4., 15., 2., 0., 1., 127., 2.) , "press" = c(1009.5, 1010.9, 1010.7, 1011.2, 1011.9, 1011.2, 1009.3, 1011.1, 1012., 1011.4, 1010.9, 1011.5, 1011., 1011.2, 1009.9, 1012.5, 1011.1, 1011.8, 1009.3, 1010.6) ) , names = c("year", "temp", "precip", "press") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20") , class = "data.frame" ) "insulate.dat" <- structure(.Data = list("insulation" = c(0., 0., 0., 0., 0., 0., 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., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.) , "temp" = c(-0.80000000000000004, -0.69999999999999996, 0.40000000000000002, 2.5, 2.8999999999999999, 3.2000000000000002, 3.6000000000000001, 3.8999999999999999, 4.2000000000000002, 4.2999999999999998, 5.4000000000000004, 6., 6., 6., 6.2000000000000002, 6.2999999999999998, 6.9000000000000004, 7., 7.4000000000000004, 7.5, 7.5, 7.5999999999999996, 8., 8.5, 9.0999999999999996, 10.199999999999999, -0.69999999999999996, 0.80000000000000004, 1., 1.3999999999999999, 1.5, 1.6000000000000001, 2.2999999999999998, 2.5, 2.5, 3.1000000000000001, 3.8999999999999999, 4., 4., 4.2000000000000002, 4.2999999999999998, 4.5999999999999996, 4.7000000000000002, 4.9000000000000004, 4.9000000000000004, 4.9000000000000004, 5., 5.2999999999999998, 6.2000000000000002, 7.0999999999999996, 7.2000000000000002, 7.5, 8., 8.6999999999999993, 8.8000000000000007, 9.6999999999999993) , "gas" = c(7.2000000000000002, 6.9000000000000004, 6.4000000000000004, 6., 5.7999999999999998, 5.7999999999999998, 5.5999999999999996, 4.7000000000000002, 5.7999999999999998, 5.2000000000000002, 4.9000000000000004, 4.9000000000000004, 4.2999999999999998, 4.4000000000000004, 4.5, 4.5999999999999996, 3.7000000000000002, 3.8999999999999999, 4.2000000000000002, 4., 3.8999999999999999, 3.5, 4., 3.6000000000000001, 3.1000000000000001, 2.6000000000000001, 4.7999999999999998, 4.5999999999999996, 4.7000000000000002, 4., 4.2000000000000002, 4.2000000000000002, 4.0999999999999996, 4., 3.5, 3.2000000000000002, 3.8999999999999999, 3.5, 3.7000000000000002, 3.5, 3.5, 3.7000000000000002, 3.5, 3.3999999999999999, 3.7000000000000002, 4., 3.6000000000000001, 3.7000000000000002, 2.7999999999999998, 3., 2.7999999999999998, 2.6000000000000001, 2.7000000000000002, 2.7999999999999998, 1.3, 1.5) ) , names = c("insulation", "temp", "gas") , 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") , class = "data.frame" ) "magnet.ex" <- c(" ", "****************************************************", " ", "magnet ", " ", "The magnet dataset is from an experiment concerning ", "the magnetic force of an electomagnet as a function ", "of voltage and number of wire turns. The device ", "was a wire wrapped around a core and measured at a ", "variety of voltages. The statistical design here is ", "actually a randomized complete block design where ", "the three eletromagnets are the blocks, and the ", "three voltages are levels of the factor voltage. ", " ", "columns: ", " ", "volt: Voltage applied (1.5 or 3.0 volts). ", "turns: The number of wire turns (100, 200, or 300). ", "turns.ch: character version of turns ", "force: The magnet force ", " ", "Example: Get a means breakdown of force by the ", "voltage and number of turns. ", " ", "magnet.force->z ", "means(z$force,z$volt,z$turns) ", " ", "****************************************************") "means.ex" <- c(" ", "****************************************************", " ", "means(y,x1,x2,x3) makes means table of y ", " for indep. var. x1,x2,x3 ", " ", "See Also: mplot ", " ", "****************************************************") "michelson.ex" <- c(" ", "****************************************************", " ", "michelson ", " ", "The data frame michelson contains results from", "Michelson's determination of the velocity of light ", "in air. These data are actually measurements ", "obtained by Michelson between June 5, 1879, and July", "2, 1879. The data are in km/sec if 299000 is added ", "to each value. Working backwards from the current ", "`true value' of the velocity of light in vacuum ", "(299,792.5 km/sec) and using Michelson's own ", "adjustment for the effect of air, the comparable ", "`true value' for these data is 734.5 (considerably ", "smaller than the actual measurements). Michelson ", "used a modification of Foucault's 1850 experimental ", "method which consisted of passing light from a source", "off a rapidly rotating mirror to a distant fixed ", "mirror, and back to the rotating mirror. Presumably", "the five sets of 20 measurements are in time sequence.", "From Stigler (1977 Annals of Statistics, p.1073-1076,", "Table 6). ", " ", "Columns: ", " ", "V1: measurements 1-20 ", "V2: measurements 21-40 ", "V3: measurements 41-60 ", "V4: measurements 61-80 ", "V5: measurements 81-100 ", " ", "Examples: ", " ", "lplot(michelson), bplot(michelson) ", " ", "****************************************************") "monarch.dat" <- structure(.Data = list("group" = structure(.Data = c(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) , levels = c("K&Qs", "popes", "pres") , class = "factor" ) , "years" = c(10., 29., 26., 28., 15., 23., 17., 25., 0., 20., 4., 1., 24., 16., 12., 4., 10., 17., 16., 0., 7., 24., 12., 4., 18., 21., 11., 2., 9., 36., 12., 28., 3., 16., 9., 2., 9., 21., 3., 6., 10., 18., 11., 6., 25., 23., 6., 2., 15., 32., 25., 11., 8., 17., 19., 5., 15., 0., 17., 6., 13., 12., 13., 33., 59., 10., 7., 63., 9., 25., 36., 15.) , "name" = structure(.Data = c(68, 35, 39, 47, 50, 36, 37, 66, 30, 65, 60, 63, 19, 52, 8, 46, 1, 27, 31, 20, 4, 13, 30, 49, 61, 62, 71, 29, 14, 32, 18, 64, 42, 17, 43, 2, 33, 9, 34, 5, 10, 6, 11, 12, 54, 55, 44, 56, 28, 53, 45, 57, 7, 58, 59, 41, 51, 40, 38, 48, 69, 3, 22, 23, 21, 24, 70, 67, 15, 25, 16, 26) , levels = c("A.Johnson", "Alex.VIII", "Anne.12", "Arthur", "Ben.XIII", "Ben.XIV", "Ben.XV", "Buchanan", "Clem.XI", "Clem.XII", "Clem.XIII", "Clem.XIV", "Cleveland", "Coolidge", "Edward.VII", "Edward.VIII", "Eisenhower", "F.Roosevelt", "Filmore", "Garfield", "Georeg.III", "George.I", "George.II", "George.IV", "George.V", "George.VI", "Grant", "Greg.XVI", "Harding", "Harrison", "Hayes", "Hoover", "Innoc.XII", "Innoc.XIII", "J.Adams", "J.Q.Adams", "Jackson", "James.II", "Jefferson", "John.Paul", "John.XXIII", "Kennedy", "L.Johnson", "Leo.XII", "Leo.XIII", "Lincoln", "Madison", "Mary.II", "McKinley", "Monroe", "Paul.VI", "Pierce", "Pius.IX", "Pius.VI", "Pius.VII", "Pius.VIII", "Pius.X", "Pius.XI", "Pius.XII", "Polk", "T.Roosevelt", "Taft", "Taylor", "Truman", "Tyler", "Van.Buren", "Victoria", "Washington", "William.III", "William.IV", "Wilson") , class = "factor" ) ) , names = c("group", "years", "name") , 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", "65", "66", "67", "68", "69", "70", "71", "72") , class = "data.frame" ) "mplot.ex" <- c(" ", "****************************************************", " ", "mplot(y,x1,x2,x3) makes plots of the means ", " of y over the independent ", " variables x1,x2,x3 ", " ", "mplot(y,x1,x2,x3,both=T) adds plots with x2 and x3 ", " on x axis ", " ", "See Also: means ", " ", "****************************************************") "precip.ny" <- structure(.Data = list("date" = 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.) , "precip1" = c(0., 0.070000000000000007, 1.1100000000000001, 0., 0., 0., 0., 0.040000000000000001, 0.02, 0.050000000000000003, 0.34000000000000002, 0.059999999999999998, 0.17999999999999999, 0.02, 0.02, 0., 0., 0., 0., 0.45000000000000001, 0., 0., 0.69999999999999996, 0., 0., 0., 0., 0., 0.01, 0.029999999999999999, 0.050000000000000003) , "tmax1" = c(33., 32., 30., 29., 25., 30., 37., 37., 29., 30., 36., 32., 33., 34., 53., 45., 25., 28., 32., 27., 26., 28., 24., 26., 9., 22., 17., 26., 27., 30., 34.) , "tmin1" = c(19., 25., 22., -1., 4., 14., 21., 22., 23., 27., 29., 25., 29., 15., 29., 24., 0., 2., 26., 17., 19., 9., 20., -6., -13., -13., -11., -4., -4. , 11., 23.) , "precip2" = c(0., 0.040000000000000001, 0.83999999999999997, 0., 0., 0., 0.02, 0.050000000000000003, 0.01, 0.089999999999999997, 0.17999999999999999, 0.040000000000000001, 0.040000000000000001, 0., 0.059999999999999998, 0.029999999999999999, 0.040000000000000001, 0., 0., 0.34999999999999998, 0.02, 0.01, 0.34999999999999998, 0.080000000000000002, 0., 0., 0., 0., 0.01, 0.01, 0.13) , "tmax2" = c(34., 36., 30., 29., 30., 35., 44., 38., 31., 33., 39., 33., 34., 39., 51., 44., 25., 34., 36., 29., 27., 29., 27., 24., 11., 21., 19., 26., 28., 31., 38.) , "tmin2" = c(28., 28., 26., 19., 16., 24., 26., 24., 24., 29., 29., 27., 31., 26., 38., 23., 13., 14., 28., 19., 19., 17., 22., 2., 4., 5., 7., 8., 14., 14., 23.) ) , names = c("date", "precip1", "tmax1", "tmin1", "precip2", "tmax2", "tmin2") , 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") , class = "data.frame" ) "predict.new.ex" <- c(" ", "****************************************************", " ", "predict.new(out,x1=34,x2=25) gives a predicted value", " for values x1=34, x2=25", " after lm(y~x1+x2)->out ", " ", "The function predict.new actually produces a data ", "frame with columns ", " ", "x1, ...xk: the values of the independent variables ", " (x1=34 and x2=25 in the above example). ", " ", "fit: the fitted value y=b0+b1*x1+b2*x2 from the ", " lm fitted equation using x1=34 and x2=25. ", " ", "se.fit: the standard error of fit when viewed as ", " an estimator of the mean of y at x1 and x2. ", " ", "residual.scale: the usual mean square error estimate", " ", "df: the degrees of freedom in the mean square error.", " ", "se.single: the standard error of fit when viewed as ", " a predictor of a new y value. ", " ", "Example: Find the predicted value of the estimated ", "magnet force at volt=2.0 and turns=150 from a linear", "fit to the magnet data set. ", " ", "> lm(force~volt+turns,magnet)->out ", "> out ", "Coefficients: ", " (Intercept) volt turns ", " -2.88 2.675556 0.02995 ", " ", "Degrees of freedom: 6 total; 3 residual ", "Residual standard error: 1.43295 ", " ", "> predict.new(out,volt=2.0,turns=150) ", " volt turns fit se.fit residual.scale df se.single", "1 2 150 6.963611 0.7131501 1.43295 3 1.600602", " ", "****************************************************") "raleigh.snow" <- structure(.Data = list("year" = c(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., 89., 90., 91.) , "snow" = c(8.3000000000000007, 3.5, 13.5, 12.300000000000001, 10.6, 5.7000000000000002, 12., 2., 5.9000000000000004, 7.7000000000000002, 11.300000000000001, 5.7000000000000002, 0.59999999999999998, 3., 3.6000000000000001, 10.6, 17.600000000000001, 18.300000000000001, 5.7000000000000002, 6.5999999999999996, 11.800000000000001, 6.9000000000000004, 4.0999999999999996, 0.90000000000000002, 10.800000000000001, 7.9000000000000004, 12., 2.7000000000000002, 0., 0.) ) , names = c("year", "snow") , 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" ) "viscosity" <- structure(.Data = list("liquid" = structure(.Data = c(2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3) , levels = c("Oil", "Shampoo", "Water") , class = "factor" ) , "temp" = structure(.Data = c(3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1) , levels = c("Cold", "Room", "hot") , class = "factor" ) , "time" = c(31.399999999999999, 110.09999999999999, 117.5, 29.5, 111.7, 118.2, 30., 112.3, 119., 27.199999999999999, 56.5, 64.099999999999994, 26.800000000000001, 54.200000000000003, 66.400000000000006, 27.300000000000001, 56.200000000000003, 64.200000000000003, 4.5, 4.7999999999999998, 5.0999999999999996, 4.5, 4.7000000000000002, 5.0999999999999996, 4.7000000000000002, 4.7999999999999998, 4.9000000000000004) ) , names = c("liquid", "temp", "time") , 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") , class = "data.frame" ) "viscosity.ex" <- c(" ", "****************************************************", " ", "viscosity ", " ", "The viscosity data frame was the result of the ", "following ST370 experiment performed in the fall of ", "1996. The students' description is as follows. ", " ", "For this experiment we used three different liquids:", "water, cooking oil and shampoo. First we placed a ", "cup of shampoo in a microwave oven, and heated it ", "for 50 seconds. Immediately after that we transfered", "the liquid to a dishwasher container. We turned ", "this container upside down with the spout closed and", "poked a hole on the bottom part of it. Then we ", "placed a half cup measuring container beneath the ", "dishwasher container. Then we opened the spout of ", "the dishwashing container, and measured the time it ", "took for liquid to come out and fill the half cup ", "container. We repeated the same procedure with each ", "liquid three times. Then we placed the liquids at ", "room temperature in the container and repeated the ", "above prcedure three times as well. Then we placed ", "each liquid in the freezer 10 minutes at a time and ", "repeated the prior procedure three times. ", " ", "Columns: ", " ", "liquid: shampoo, oil, or liquid ", "temp: hot or cold ", "time: in sec. ", " ", "****************************************************") "vocab.dat" <- structure(.Data = list("age" = c(1., 1.5, 2., 2.5, 3., 3.5, 4., 4.5, 5., 6.) , "words" = c(3., 22., 272., 446., 896., 1222., 1540., 1870., 2072., 2562.) ) , names = c("age", "words") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10") , class = "data.frame" ) "wire.resist" <- structure(.Data = list("gauge" = c(16., 16., 16., 16., 16., 16., 16., 16., 16., 18., 18., 18., 18., 18., 18., 18., 18., 18., 20., 20., 20., 20., 20., 20., 20., 20., 20.) , "length" = c(10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30., 10., 20., 30.) , "resistance" = c(0.13, 0.17000000000000001, 0.20000000000000001, 0.12, 0.16, 0.20000000000000001, 0.12, 0.17999999999999999, 0.20999999999999999, 0.14999999999999999, 0.20000000000000001, 0.26000000000000001, 0.14000000000000001, 0.20999999999999999, 0.27000000000000002, 0.14999999999999999, 0.20999999999999999, 0.26000000000000001, 0.17999999999999999, 0.28999999999999998, 0.38, 0.17999999999999999, 0.28999999999999998, 0.39000000000000001, 0.19, 0.28999999999999998, 0.39000000000000001) ) , names = c("gauge", "length", "resistance") , 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") , class = "data.frame" ) ".motif.options" <- c("-geometry +0+0", "-xrm 'sgraphMotif*canvas.width:500'", "-xrm 'sgraphMotif*canvas.height:718'", "-xrm 'sgraphMotif*printorientation*state: 1'", "-xrm 'sgraphMotif*colors: black white'", "-xrm 'sgraphMotif*printOrientLandscape.set : False'", " -xrm 'sgraphMotif*printOrientPortrait.set : True'", "") "actuator" <- structure(.Data = list("act" = c("A2", "A1", "A2", "A1", "A2", "A1", "A2", "A1", "A2", "A1", "A2", "A1", "A2", "A1", "A2", "A1") , "press" = c("30psi", "30psi", "30psi", "30psi", "100psi", "100psi", "100psi", "100psi", "30psi", "30psi", "30psi", "30psi", "100psi", "100psi", "100psi", "100psi") , "line" = c("20ft", "20ft", "40ft", "40ft", "20ft", "20ft", "40ft", "40ft", "20ft", "20ft", "40ft", "40ft", "20ft", "20ft", "40ft", "40ft") , "nozzle" = c("straight", "straight", "straight", "straight", "straight", "straight", "straight", "straight", "right ang", "right ang", "right ang", "right ang", "right ang", "right ang", "right ang", "right ang") , "force" = c(0.099201999999999999, 0.070762000000000005, 0.075433, 0.068982000000000002, 0.48746400000000001, 0.44280199999999997, 0.50393699999999997, 0.37002200000000002, 0.083024000000000001, 0.058082000000000002, 0.067683999999999994, 0.049786999999999998, 0.48640299999999997, 0.390816, 0.48672500000000002, 0.372554) , "order" = c(11., 5., 12., 8., 3., 2., 9., 6., 7., 15., 1., 4., 10., 16., 14., 13.) ) , names = c("act", "press", "line", "nozzle", "force", "order") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16") , class = "data.frame" ) "actuator.calibrate" <- structure(.Data = list("force" = c(0.32663300000000001, 0.059422999999999997, 0.132632, 0.37865199999999999, 0.13328000000000001, 0.32309599999999999, 0.166932, 0.030120999999999998, 0.16591900000000001, 0.44434099999999999, 0.090733999999999995, 0.056240999999999999, 0.26728800000000003, 0.031022000000000001, 0.27424700000000002, 0.092423000000000005, 0.32748699999999997, 0.057893, 0.032585999999999997, 0.13314300000000001, 0.22727900000000001, 0.18176200000000001, 0.37742700000000001, 0.37472899999999998, 0.45456600000000003, 0.26893099999999998, 0.43165300000000001, 0.225878, 0.22848299999999999, 0.093560000000000004) , "press" = c(80., 20., 40., 90., 40., 80., 50., 10., 50., 100., 30., 20., 70., 10., 70., 30., 80., 20., 10., 40., 60., 50., 90., 90., 100., 70., 100., 60., 60., 30.) , "order" = 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.) ) , names = c("force", "press", "order") , 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" ) "airplane" <- structure(.Data = list("treat 1" = c(13.199999999999999, 14.199999999999999, 12.300000000000001, 14.300000000000001, 11.300000000000001, 10.300000000000001) , "treat 2" = c(14.5, 16.300000000000001, 11.4, 17.300000000000001, 18.399999999999999, 15.300000000000001) , "treat 3" = c(10.199999999999999, 8.4000000000000004, 7.5999999999999996, 9.0999999999999996, 12.1, 13.199999999999999) , "treat 4" = c(8.5, 6.7000000000000002, 6.5, 7.4000000000000004, 9.3000000000000007, 10.5) ) , names = c("treat 1", "treat 2", "treat 3", "treat 4") , row.names = c(1., 2., 3., 4., 5., 6.) , class = "data.frame" ) "auto.paint" <- structure(.Data = list("thick" = c(90.200000000000003, 106.8, 112.40000000000001, 120.3, 116.59999999999999, 103.5, 120.3, 121., 129.09999999999999, 129.30000000000001, 103.8, 112.7, 122.40000000000001, 132.30000000000001, 138.69999999999999, 104., 120.3, 129.19999999999999, 130.40000000000001, 138.80000000000001, 106.8, 121.5, 123.3, 129.40000000000001, 133.40000000000001, 99., 105.8, 121., 123.3, 129.19999999999999, 89.700000000000003, 96.599999999999994, 106., 120.3, 113.59999999999999, 84.799999999999997, 85.099999999999994, 89.799999999999997, 103.7, 103.7, 112., 97.400000000000006, 103.7, 89.5, 82.599999999999994, 110.59999999999999, 105.90000000000001, 112., 98.200000000000003, 88.5, 111.90000000000001, 112., 120.3, 98.700000000000003, 88.5, 121.3, 112., 115.2, 103.7, 91.099999999999994, 123.59999999999999, 103.7, 112.90000000000001, 98.700000000000003, 96.599999999999994, 105.7, 103.40000000000001, 112., 95.599999999999994, 88.5, 97.299999999999997, 95.5, 95.799999999999997, 83.900000000000006, 82.700000000000003, 91.299999999999997, 81.5, 71.099999999999994, 68.099999999999994, 70.5) , "DOI" = c(56., 68., 63., 64., 63., 57., 63., 62., 68., 64., 55., 66., 63., 65., 65., 65., 65., 66., 72., 69., 64., 67., 63., 68., 66., 56., 58., 62., 69., 69., 50., 45., 56., 68., 64., 40., 40., 45., 59., 55., 64., 58., 63., 59., 56., 63., 60., 63., 63., 50., 64., 62., 74., 71., 52., 70., 65., 70., 62., 56., 71., 67., 65., 63., 55., 64., 65., 69., 56., 55., 58., 55., 54., 54., 47., 55., 42., 42., 37., 36.) ) , names = c("thick", "DOI") , 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", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80") , class = "data.frame" ) "auto.paint.demo" <- list("thick" = c(90.200000000000003, 106.8, 112.40000000000001, 120.3, 116.59999999999999, 103.5, 120.3, 121., 129.09999999999999, 129.30000000000001, 103.8, 112.7, 122.40000000000001, 132.30000000000001, 138.69999999999999, 104., 120.3, 129.19999999999999, 130.40000000000001, 138.80000000000001, 106.8, 121.5, 123.3, 129.40000000000001, 133.40000000000001, 99., 105.8, 121., 123.3, 129.19999999999999, 89.700000000000003, 96.599999999999994, 106., 120.3, 113.59999999999999, 84.799999999999997, 85.099999999999994, 89.799999999999997, 103.7, 103.7, 112., 97.400000000000006, 103.7, 89.5, 82.599999999999994, 110.59999999999999, 105.90000000000001, 112., 98.200000000000003, 88.5, 111.90000000000001, 112., 120.3, 98.700000000000003, 88.5, 121.3, 112., 115.2, 103.7, 91.099999999999994, 123.59999999999999, 103.7, 112.90000000000001, 98.700000000000003, 96.599999999999994, 105.7, 103.40000000000001, 112., 95.599999999999994, 88.5, 97.299999999999997, 95.5, 95.799999999999997, 83.900000000000006, 82.700000000000003, 91.299999999999997, 81.5, 71.099999999999994, 68.099999999999994, 70.5) , "DOI" = c(56., 68., 63., 64., 63., 57., 63., 62., 68., 64., 55., 66., 63., 65., 65., 65., 65., 66., 72., 69., 64., 67., 63., 68., 66., 56., 58., 62., 69., 69., 50., 45., 56., 68., 64., 40., 40., 45., 59., 55., 64., 58., 63., 59., 56., 63., 60., 63., 63., 50., 64., 62., 74., 71., 52., 70., 65., 70., 62., 56., 71., 67., 65., 63., 55., 64., 65., 69., 56., 55., 58., 55., 54., 54., 47., 55., 42., 42., 37., 36.) , "comment" = c(" paint thickness and Distinctness of image from ", "locations on a painted car hood", "The estimated density surface from the data is ", "found by smoohting using a kernel estimate") , "z" = matrix(c(0.00088086289591951972, 0.0009439056769438098, 0.00095485598581326772, 0.00093159551457085263, 0.00090225019000103352, 0.00089199399237677396, 0.00091112310136702524, 0.00095064337061585651, 0.00098742351440561172, 0.00099575141440230979, 0.00095901749295784116, 0.00087585849789120534, 0.00075869632303120725, 0.00062678646963068444, 0.00049820062755515982, 0.00038463721069889541, 0.00029048031275633236, 0.00021498615249804459, 0.00015533244047344694, 0.0001087438340609906, 7.3175000789199723e-05, 4.7051812114901261e-05, 2.8835468178306525e-05, 1.6855892991745755e-05, 9.4316746858303974e-06, 5.0813218371556214e-06, 2.6593424420916635e-06, 1.3725980968452106e-06, 7.1763502093664469e-07, 3.9557712892240698e-07, 2.387846860997479e-07, 1.5880761265317347e-07, 1.126158119155926e-07, 8.1523874798739736e-08, 5.8526278515227246e-08, 4.1266837076185239e-08, 2.8692505311643653e-08, 1.9869658225571162e-08, 1.38214760178377e-08, 9.6703973822158063e-09, 0.00091657160159212532, 0.0009876011557186635, 0.0010072466815466796, 0.00099441837132305342, 0.00097838047671345262, 0.00098478274366425888, 0.0010230716013171536, 0.0010819572768484031, 0.0011351508941901038, 0.0011539673601031956, 0.001120010407440696, 0.0010318068372721033, 0.00090315916452022367, 0.00075551887716011803, 0.00060919091483403384, 0.00047761230504912857, 0.00036626611398628056, 0.00027501779658537927, 0.00020139734771721119, 0.00014286742839620287, 9.7518866348748868e-05, 6.3764425748028772e-05, 3.9883624196852542e-05, 2.3897687299979545e-05, 1.3765722164510178e-05, 7.6640831557622509e-06, 4.1597278894403724e-06, 2.235849638097569e-06, 1.2240021538316465e-06, 7.0972837585283404e-07, 4.4975184933115785e-07, 3.1058773925420685e-07, 2.2560240206127623e-07, 1.6567614087496207e-07, 1.2010360471336325e-07, 8.5407141177790654e-08, 5.990530191865444e-08, 4.186606714462687e-08, 2.9379714310773507e-08, 2.0710391668485586e-08, 0.00093331913632866488, 0.0010118240096771527, 0.0010412211078469947, 0.0010411384227556532, 0.0010414253656843419, 0.001067663904374882, 0.0011281389119039387, 0.0012092615735102474, 0.0012817889670938593, 0.0013142615273618993, 0.0012864949170564928, 0.0011966394977798655, 0.0010594413744681589, 0.0008981286362367485, 0.00073500660252475661, 0.0005852701811169212, 0.00045572493281703045, 0.00034716286481374198, 0.0002577697780576111, 0.00018547244721665802, 0.00012863353352548951, 8.5718801907208844e-05, 5.4853640840155882e-05, 3.376233618773592e-05, 2.0048275392686481e-05, 1.1538653272554953e-05, 6.4909655309401078e-06, 3.6289914838066405e-06, 2.0765417301705394e-06, 1.2626466155347533e-06, 8.3593096127804353e-07, 5.9639770810857572e-07, 4.4216779081869072e-07, 3.2880270111953963e-07, 2.4051281865980985e-07, 1.7245292590712904e-07, 1.220188671668423e-07, 8.6053536820849778e-08, 6.0911708561765018e-08, 4.3249918787431554e-08, 0.00093037852897404137, 0.0010155022846299957, 0.0010552909275330783, 0.0010697792737573706, 0.0010888609081175331, 0.0011375503436260143, 0.0012227466649610661, 0.0013286787361080667, 0.0014234676049339828, 0.001473136593963471, 0.0014556810616035631, 0.001368491466502779, 0.0012266591419572679, 0.0010546217020713086, 0.00087636223087381572, 0.00070883236968087235, 0.00056041235654928569, 0.00043318145369636811, 0.00032631538116134119, 0.00023844045317491163, 0.00016832433663229259, 0.00011455417367936265, 7.5147184203135022e-05, 4.7576685666474045e-05, 2.9133983999648521e-05, 1.7322956346552447e-05, 1.0087344430890986e-05, 5.8573107685611635e-06, 3.4964976425231415e-06, 2.2224182146543807e-06, 1.5302179531933772e-06, 1.1229867916771949e-06, 8.4733656307365564e-07, 6.3709671610835569e-07, 4.6997173482979266e-07, 3.3973194676446603e-07, 2.4247529944694994e-07, 1.7255241078827345e-07, 1.2317435301389502e-07, 8.8072377413609021e-08, 0.00090827544567676172, 0.00099884996087289016, 0.0010491946525702535, 0.0010794685899605141, 0.0011191251809943949, 0.0011921971886715123, 0.0013040828828990347, 0.001437060599946374, 0.0015570225668152153, 0.0016277617456290268, 0.0016253732705165788, 0.0015459917704000992, 0.0014043166873349232, 0.0012253089854819426, 0.0010342385317298492, 0.00084979852959105289, 0.0006822158216019074, 0.00053524168845442172, 0.00040938337005312631, 0.00030419069515191842, 0.00021895328874357682, 0.00015244637122430245, 0.00010264921324840666, 6.687711517985295e-05, 4.2207747619749587e-05, 2.5892789792317387e-05, 1.5582676360657634e-05, 9.3827764517701744e-06, 5.8318949709715546e-06, 3.8626539305795872e-06, 2.7544103371403525e-06, 2.0714183071391597e-06, 1.5868777145734054e-06, 1.2050229570741555e-06, 8.9607511679852912e-07, 6.5298559491412429e-07, 4.7011400547085756e-07, 3.3754470239601199e-07, 2.4294805437345304e-07, 1.7488693662534545e-07, 0.00086870122577441592, 0.00096331320643979585, 0.0010238968735855709, 0.0010705062973519783, 0.0011317644494517136, 0.0012304251050392983, 0.001370389783951233, 0.0015323166286433821, 0.0016803324786585031, 0.0017762861864492278, 0.0017942363650298024, 0.0017284723506731869, 0.0015924638446543566, 0.0014109293304495568, 0.0012099905513109214, 0.0010100553257783034, 0.00082347196680852635, 0.00065604569722141131, 0.00050993663988966708, 0.00038580870147779481, 0.00028356162078064975, 0.0002022217392852619, 0.00013983242086616253, 9.3704734193175693e-05, 6.0871446421101034e-05, 3.8461074603015995e-05, 2.3883031544812208e-05, 1.4890992657725998e-05, 9.6190214076927916e-06, 6.618323845110375e-06, 4.8688785758801341e-06, 3.7400309526052654e-06, 2.9033121701090433e-06, 2.2246142386878056e-06, 1.6670747769603116e-06, 1.2245856306133474e-06, 8.8930899778418377e-07, 6.4418850893556498e-07, 4.6740001110621905e-07, 3.3864563464057038e-07, 0.00081431468819671263, 0.00091139987855525916, 0.00098147107082927933, 0.0010443191439235835, 0.0011274663344615157, 0.0012522253849921608, 0.0014211214410167097, 0.0016135959571492013, 0.0017924946863239943, 0.0019179835545803934, 0.0019618951419966804, 0.0019160239942687554, 0.001791721743773257, 0.0016126641860846097, 0.0014053688745830791, 0.0011919146687109259, 0.00098702377356449074, 0.00079890117991468425, 0.00063163098013946839, 0.00048712765100625993, 0.00036595085796581236, 0.00026743818820693658, 0.00018983976250189799, 0.00013069059297838434, 8.7231916361179759e-05, 5.6667547682191663e-05, 3.6256415327692377e-05, 2.3378888421524375e-05, 1.5666150066916205e-05, 1.1163607320250848e-05, 8.442832969869976e-06, 6.6058485220675009e-06, 5.187885845457724e-06, 4.0082263722109319e-06, 3.0262980790541843e-06, 2.2408582199318097e-06, 1.6414842373011229e-06, 1.1994462338246395e-06, 8.7711391246716609e-07, 6.3945919824910211e-07, 0.00074846438339626331, 0.00084641908953544248, 0.00092488370294615207, 0.0010033070107458614, 0.0011079715810317511, 0.0012587251248820676, 0.0014569385500804795, 0.0016812829905074192, 0.0018937961873149096, 0.0020531830407114582, 0.0021288244879268856, 0.0021093570838429552, 0.0020031334175563435, 0.0018319977655477961, 0.001622403406629011, 0.0013980266264242308, 0.0011761603698390894, 0.00096768169875703701, 0.00077878966273719021, 0.00061271446565735533, 0.00047068180317712591, 0.00035240109825906139, 0.00025652125633067425, 0.00018111495373299293, 0.0001239809176990238, 8.2674859896079067e-05, 5.4439018537487299e-05, 3.6265076221842951e-05, 2.5162683052451132e-05, 1.8515477228860143e-05, 1.4349030155863937e-05, 1.1408195433051461e-05, 9.0520848745269071e-06, 7.0481054384550523e-06, 5.3608063316151227e-06, 4.0013310750574817e-06, 2.9565005897321523e-06, 2.1789675984073549e-06, 1.6055599051958296e-06, 1.1775243363429454e-06, 0.00067486991523408788, 0.0007721660124997209, 0.00085770731320443307, 0.00095059871525224684, 0.001075871683675262, 0.0012520108823389673, 0.0014795329723748501, 0.001736797079033314, 0.0019854707798901347, 0.0021829798624790069, 0.0022960228202072042, 0.0023094569368265799, 0.0022278223101100383, 0.0020703959629054694, 0.0018631123364401816, 0.0016311203640736089, 0.0013943868065076489, 0.0011666210519714591, 0.00095622077400712231, 0.00076771309610806731, 0.00060295096615289564, 0.00046208156230269901, 0.00034440047681332398, 0.00024892330142378726, 0.00017445589540924657, 0.00011926462138823578, 8.0754941316808212e-05, 5.5521943801637313e-05, 3.9814063628056141e-05, 3.0164101287761603e-05, 2.388445956364833e-05, 1.9256405274416792e-05, 1.5420880028454254e-05, 1.2095197976017296e-05, 9.2668705357977709e-06, 6.9724962382894327e-06, 5.1963816205824425e-06, 3.8622498718265655e-06, 2.8669032723238097e-06, 2.1146031054736407e-06, 0.00059730133760289199, 0.00069258972488301675, 0.00078379625125119012, 0.00088974522435729397, 0.001034315202078896, 0.0012348310668749236, 0.0014913032239092553, 0.0017822214537948223, 0.0020692729005122009, 0.0023087594725459465, 0.0024645032196426307, 0.0025170627188358537, 0.0024664771411913909, 0.0023288085800311675, 0.0021290262257071535, 0.0018935503705532451, 0.0016449921365886398, 0.0013999055495585271, 0.0011688406128818609, 0.00095751078485111038, 0.0007683144130385892, 0.00060191181065002975, 0.00045855040455183138, 0.00033868309123681763, 0.00024266915168404991, 0.0001699238469053869, 0.00011824192575218193, 8.3823495106552179e-05, 6.1997571526702845e-05, 4.822612220114804e-05, 3.8914037668565689e-05, 3.175969968978529e-05, 2.5646866278581947e-05, 2.0257384758518665e-05, 1.5633263941523461e-05, 1.1857631147565741e-05, 8.9131740405573675e-06, 6.6798772486964549e-06, 4.9937869986923198e-06, 3.7034277425473358e-06, 0.00051929060548561059, 0.00061147949614454413, 0.00070696026424658281, 0.0008243851389082746, 0.00098665875017629767, 0.0012102171205690658, 0.0014949283700567773, 0.0018198185121817863, 0.002146934716155722, 0.00243160849247571, 0.0026346762894667911, 0.002732038736270424, 0.0027187212531307454, 0.0026070389967878071, 0.0024205566631714417, 0.0021866642795349304, 0.0019304218982573384, 0.0016710633551511546, 0.0014210981712653528, 0.0011872200447407854, 0.0009722504230337386, 0.00077744810984400274, 0.00060436779832798214, 0.00045546926480207064, 0.00033329248757085501, 0.00023890820267271043, 0.00017076925523507201, 0.00012469530674282867, 9.4926055548095561e-05, 7.5609058477888006e-05, 6.2027216777813359e-05, 5.1171174971636005e-05, 4.1639424045113583e-05, 3.3113356757900185e-05, 2.5740358782505879e-05, 1.9681978646994318e-05, 1.4921083309452585e-05, 1.1273417858758596e-05, 8.4858169058102132e-06, 6.3257356188711171e-06, 0.00044390048772039033, 0.00053219881747888309, 0.00063066905570662067, 0.00075792022459637745, 0.00093610718373318723, 0.0011810776443237404, 0.0014929067874797015, 0.0018515114241742527, 0.0022195987401540046, 0.0025517132245892965, 0.0028057288182119816, 0.0029527398343898999, 0.0029824613520026341, 0.0029030667312985236, 0.0027362845680427715, 0.0025100572881873104, 0.0022515106912786693, 0.0019821979654429524, 0.0017162394588080888, 0.0014610066550245617, 0.0012195823354910287, 0.00099391316636657386, 0.00078724874913445287, 0.00060467249246517053, 0.00045158394795950118, 0.00033126323378629603, 0.00024312556759309323, 0.00018264281680927915, 0.00014279593259719384, 0.00011616461948382522, 9.6687815394931728e-05, 8.0529415891605525e-05, 6.5995924009425026e-05, 5.2832530421616241e-05, 4.1368338171732134e-05, 3.1888869091631822e-05, 2.438008270412403e-05, 1.856623790757874e-05, 1.40676676894133e-05, 1.0538251895482356e-05, 0.00037356618694560449, 0.00045748806518413579, 0.00055781551999960796, 0.00069323716859497563, 0.00088538981751293039, 0.0011498252709292534, 0.0014871342329782929, 0.0018784213098449857, 0.0022873283017180511, 0.0026678578598230015, 0.0029751162718750384, 0.0031754914372451142, 0.0032533363632843561, 0.003212442384550338, 0.0030722852609072785, 0.0028608263626314239, 0.0026066818629638961, 0.0023331638751281172, 0.002055497763704076, 0.0017813350050656374, 0.0015138158823755645, 0.0012556539212485094, 0.0010121827871069824, 0.00079173036804833848, 0.00060324247677363027, 0.00045277856472749289, 0.00034104460424546983, 0.00026322253262666014, 0.00021088353481265996, 0.00017479677377300364, 0.0001473462913109349, 0.00012377134771198258, 0.00010211337266812164, 8.2284024306255454e-05, 6.4901594991874435e-05, 5.0437126736320757e-05, 3.8883826831125282e-05, 2.9839900686701955e-05, 2.2752834864191453e-05, 1.7123673251124638e-05, 0.00031001479945794359, 0.00038934724347176202, 0.00049055740537480303, 0.00063250560697047627, 0.00083651485220401331, 0.001118091975561964, 0.0014785908783339549, 0.0019005428694041861, 0.0023487902172888609, 0.0027771261640603838, 0.0031382809332912462, 0.0033943038132634305, 0.0035243942774992923, 0.0035278913957405055, 0.0034216340710628013, 0.0032329720079631204, 0.0029912608376599344, 0.0027208234122271862, 0.0024373349609164764, 0.0021482364964950139, 0.0018564731236417377, 0.0015655708065588766, 0.0012832951976940923, 0.001021786669096657, 0.0007941749106049991, 0.00060984395547562418, 0.00047112771090439753, 0.00037300990293131922, 0.00030554253321811681, 0.00025747928580110361, 0.00021947319779539763, 0.0001857802779632069, 0.00015425009368248504, 0.00012510974587936225, 9.9409209828952373e-05, 7.788370445721191e-05, 6.053909894748711e-05, 4.6806037259897037e-05, 3.5905107045183816e-05, 2.7140563640463801e-05, 0.00025425882879838896, 0.00032900077968002652, 0.00043024743000723948, 0.00057707235267009341, 0.00079063298931909202, 0.0010865750570225557, 0.0014671900016165861, 0.001916620101864813, 0.0024011787763600365, 0.002874882816889059, 0.0032886802886759707, 0.0036009166007372911, 0.0037861079202332407, 0.0038392545577925286, 0.0037742366254511555, 0.0036171035948060733, 0.0033970626606401864, 0.003138541118340608, 0.0028568772873802909, 0.0025587238664294422, 0.0022465195353063741, 0.0019245852382911927, 0.0016033737251586347, 0.001299286217134412, 0.0010301586049582777, 0.000809172263856489, 0.00064061633454304712, 0.00051941113740908867, 0.00043404840360463992, 0.00037113067181839237, 0.00031946585887544939, 0.00027232636958498619, 0.00022750024824616953, 0.00018572976244059849, 0.00014867455086220959, 0.00011742886863381859, 9.2017866339103426e-05, 7.1658104541953759e-05, 5.528519319362992e-05, 4.1962323284095107e-05, 0.00020665292035390025, 0.00027693766366903698, 0.00037745135217423558, 0.00052745886173546344, 0.00074802501608655465, 0.0010550352964804547, 0.0014518146056184825, 0.0019242510233086546, 0.002440411473414427, 0.0029550673747189681, 0.0034181648132864508, 0.003785224534974129, 0.0040267982149147178, 0.0041338553548737099, 0.0041170955546530564, 0.0040005776225624946, 0.0038123933245803742, 0.0035760561389999281, 0.0033056774997651289, 0.0030064664536417602, 0.0026799759030971485, 0.0023312095103335652, 0.0019734149429566088, 0.001627513205990626, 0.00131638418521033, 0.0010573561668232188, 0.00085696997212870703, 0.00071026866951130047, 0.00060423822502078206, 0.00052329636369691896, 0.00045438119808104881, 0.00038985635346997649, 0.00032764202646670232, 0.0002692446797068877, 0.00021714242430238875, 0.00017289596268748521, 0.00013655757397437716, 0.0001070823091205213, 8.3065427454346582e-05, 6.3291670763127565e-05, 0.00016699814620359715, 0.00023301303731367292, 0.00033204335377085931, 0.00048345507699641905, 0.00070820946506403764, 0.0010224442201563504, 0.0014305367980013053, 0.0019202115365504159, 0.0024615810382680923, 0.0030107816519234993, 0.0035176870245548992, 0.0039360742288782119, 0.0042334699014691581, 0.0043973194284280511, 0.0044350610419895929, 0.0043681363159182984, 0.0042225468154808545, 0.0040198217186964598, 0.0037718917625854781, 0.0034818067053956803, 0.0031497813022304025, 0.0027812672123166677, 0.0023922183080043297, 0.0020080813299564884, 0.0016568696550582013, 0.0013602368498443879, 0.0011272193222611759, 0.0009532256317331013, 0.00082390974888096771, 0.00072160225290757011, 0.00063145974096267253, 0.00054509834844492498, 0.00046082606573465503, 0.00038120229580981656, 0.00030975212376479718, 0.00024861586048219769, 0.0001978823713866834, 0.00015620371317368812, 0.0001217923698351106, 9.3134406507481695e-05, 0.00013467565124457198, 0.00019659226153022065, 0.00029335961111952747, 0.00044428998045712933, 0.00067014836969673662, 0.00098725315573246165, 0.0014009837346425874, 0.0019009504640459462, 0.0024596030271036998, 0.0030350988807565193, 0.0035782639504513491, 0.0040423545842134386, 0.0043929898161413428, 0.0046147897920661056, 0.0047120260924741458, 0.0047030257415795673, 0.0046107939640235218, 0.0044538215723430082, 0.00424089052838603, 0.0039721422471796098, 0.0036459324575486051, 0.0032677871012921429, 0.0028560461748419674, 0.0024403882617562126, 0.0020537528036027718, 0.0017220870056404917, 0.0014570937489877989, 0.0012548463456862624, 0.0010999750725683654, 0.00097297291908458221, 0.00085743115609172632, 0.0007444682480225042, 0.00063308615248699898, 0.0005272064921218281, 0.00043163138462182612, 0.00034918986234271017, 0.00028001961074773836, 0.00022244401965036415, 0.00017427702462952723, 0.00013371590581789654, 0.00010879121784708379, 0.00016671597863806713, 0.00026038526829548969, 0.00040884952452828569, 0.00063251474805544271, 0.00094773714954661309, 0.0013607888200875553, 0.0018631770541359359, 0.0024299616855415801, 0.0030219798720546882, 0.003592064076738117, 0.0040942426984422837, 0.0044934662192706353, 0.0047723989062883731, 0.0049324359212255427, 0.0049884760366044551, 0.0049597626611581182, 0.0048607820682743568, 0.0046962427504771498, 0.0044626331177746907, 0.0041558783207334979, 0.0037810667999936438, 0.0033583614138618513, 0.0029210586535414781, 0.0025064955650676317, 0.0021446481596536972, 0.0018499664271310892, 0.0016195366555587459, 0.0014374103320128383, 0.0012826506664379372, 0.0011376295134967256, 0.00099329595481043248, 0.00084967984605602807, 0.00071236607916953516, 0.0005876410592892871, 0.00047911572079164134, 0.00038699402464240838, 0.00030927354056132096, 0.00024339689646820384, 0.00018732713858830293, 8.8314095587682662e-05, 0.00014226494846357338, 0.00023194801077839811, 0.0003759077031754877, 0.00059397729104288162, 0.00090235537204771943, 0.0013080523359590725, 0.0018044448198703735, 0.0023694360923602353, 0.0029671562489332706, 0.0035534581087535671, 0.0040844262121531574, 0.0045256353567579653, 0.004858794295124088, 0.0050829056803899236, 0.0052093439475694014, 0.0052530245160284511, 0.0052236183924215538, 0.0051209413511016794, 0.0049371365680168314, 0.0046651094288775652, 0.0043088836023735472, 0.0038896558248848936, 0.0034434205086916335, 0.0030110704805722151, 0.0026261101588086959, 0.0023057148464256058, 0.0020483643342714369, 0.0018380978234764332, 0.0016531026027404435, 0.0014749921303465615, 0.0012949292965611489, 0.0011143000520095494, 0.00094060903572732043, 0.00078178316923569727, 0.00064228028106684857, 0.00052239745540279682, 0.00041985249046704108, 0.00033180426261860552, 0.00025609495460659056, 7.2196871608599949e-05, 0.00012210631110497205, 0.00020689330918361422, 0.00034433716346918443, 0.00055345725663163948, 0.00085006853165279952, 0.0012417345972227851, 0.00172363501048972, 0.0022766883421561587, 0.0028688396341470393, 0.003459868446178925, 0.0040091124760129101, 0.0044840421331636361, 0.0048664849052088305, 0.0051537014493656082, 0.005353671023481262, 0.0054766523616333641, 0.0055269029523630402, 0.005498693463046247, 0.005379237306749678, 0.0051578605922801592, 0.0048368245759176408, 0.0044373942078080753, 0.0039970871924492404, 0.0035592398304272847, 0.003160170144306361, 0.0028196486243224862, 0.0025379350342865162, 0.0022997103135244598, 0.0020829526643072744, 0.0018690610162113276, 0.0016498139226763606, 0.0014282346410823027, 0.0012139197173615939, 0.0010165136322306517, 0.00084134763515395449, 0.00068885426345171316, 0.00055657579488968263, 0.00044155083011950707, 0.00034168395977008515, 5.9467650861853147e-05, 0.00010520787527111277, 0.00018422174594810137, 0.00031327172710852633, 0.00051031978833741875, 0.00079056325704599016, 0.0011619174919668426, 0.0016212598938635137, 0.0021526166099817101, 0.0027281400430535473, 0.0033122780298593876, 0.0038686595565405458, 0.0043678227573486546, 0.0047927907712664065, 0.0051398482043557795, 0.0054139132536832691, 0.0056205104516578131, 0.0057581388927841768, 0.0058150934573608336, 0.0057732383292557416, 0.0056178481390079752, 0.0053487183181369011, 0.0049861176570528756, 0.0045677443588955126, 0.0041380718256370849, 0.0037353465859280232, 0.0033816966507958283, 0.0030795189276040433, 0.0028148251754630828, 0.0025661111001357411, 0.0023151395129027788, 0.0020546796395085488, 0.0017895825300997667, 0.0015315873581040979, 0.0012920309462713772, 0.0010771003002971601, 0.00088742895358345124, 0.00072055900887474844, 0.00057365877264967287, 0.00044495332014222577, 4.9290687156373663e-05, 9.0713188021499083e-05, 0.0001631766202655341, 0.0002822032637978994, 0.00046447529239865011, 0.00072435152210537188, 0.0010698944667582192, 0.001499537407864778, 0.0020004149474582124, 0.0025491230366566594, 0.0031153117362430075, 0.0036677211573121382, 0.0041809567505454405, 0.0046402382712693001, 0.0050416860959819117, 0.0053876513832156522, 0.0056790869076430977, 0.0059086627607683436, 0.0060585313587282188, 0.0061050061181591028, 0.0060289867288965421, 0.0058271708296722975, 0.0055177671177326672, 0.0051372566216005399, 0.0047298521880310045, 0.0043347362945441396, 0.0039760562770216647, 0.0036586324245809691, 0.0033704644900395503, 0.0030912828939828677, 0.0028037676459419483, 0.0025019778670063875, 0.0021926529207220539, 0.0018895763965395761, 0.0016056372341201003, 0.0013478173428673624, 0.0011170484418030506, 0.00091112670993610562, 0.00072768869556685866, 0.00056560863100095103, 4.0996159655313403e-05, 7.797648408425467e-05, 0.00014327880175544897, 0.00025100753715320948, 0.00041638340197950821, 0.00065273632331154584, 0.00096807989945206442, 0.001362228587805821, 0.0018253312713364333, 0.0023384948953321803, 0.0028768731797510403, 0.0034148765540086335, 0.0039319426856511217, 0.0044163358378286862, 0.0048647911832886059, 0.0052776841072529118, 0.0056517648695032421, 0.0059740774404757387, 0.0062207536857288009, 0.006362613988064772, 0.0063760654206955932, 0.0062542273397482384, 0.0060122931756352678, 0.0056842009696734478, 0.0053125312299947018, 0.0049363765213887431, 0.0045814768389145256, 0.0042552473227025133, 0.0039482265592545264, 0.0036420101372021678, 0.003320660012065834, 0.0029797038011036021, 0.0026276725590396784, 0.0022801359112311365, 0.0019512815336773673, 0.0016487910349823837, 0.001374030630131771, 0.001125383388359588, 0.00090137168499917358, 0.00070190278605472404, 3.4083437435533128e-05, 6.6562148264718391e-05, 0.00012431400897416756, 0.00021990558512588034, 0.00036696905115498105, 0.00057765830298495493, 0.00085976014634556945, 0.0012142695678961173, 0.0016341654394381464, 0.0021049664343382618, 0.0026073928146456826, 0.0031218016637319509, 0.0036329483988032998, 0.0041327705604565718, 0.0046192876349809521, 0.0050915171521627809, 0.0055425334984934771, 0.0059542091785625712, 0.0062970693995811605, 0.0065367820201221206, 0.0066453937480751941, 0.0066121882243852688, 0.0064486001720123164, 0.0061848943746681505, 0.0058607895811481712, 0.0055143053144103907, 0.0051722746965556171, 0.0048447239616924848, 0.004525102690980427, 0.0041973399956637195, 0.003847197944365062, 0.0034716978817547306, 0.0030809002751564672, 0.0026917519478999396, 0.0023193913294715495, 0.001972086305443353, 0.001651817280735286, 0.0013579545371045158, 0.0010903801266838049, 0.00085044635811505837, 2.8204534272652825e-05, 5.6217283144080306e-05, 0.00010628397149498466, 0.00018937672066279037, 0.00031747399921873458, 0.00050145720222028009, 0.00074873412213738585, 0.0010612628494570064, 0.0014345905265824889, 0.0018583968113546098, 0.0023188047808734491, 0.0028021107687617179, 0.0032985716882063983, 0.0038041615800399435, 0.0043186803302432851, 0.0048403640700282052, 0.005359237062857211, 0.0058526670615611839, 0.0062862594149098033, 0.0066211538372360811, 0.0068254425720392182, 0.0068845913544423043, 0.0068058274457319301, 0.0066149113105074308, 0.0063477131355551292, 0.0060403071439006301, 0.0057200649508067965, 0.0053994541598672355, 0.0050749693268292151, 0.0047331174548622592, 0.0043614893536157318, 0.0039584581634371499, 0.0035352000380837879, 0.0031095117222912751, 0.0026970740917159407, 0.0023066307021363283, 0.0019409978057996506, 0.0016009776154782677, 0.0012883061747778345, 0.0010061837974773633, 2.3135400190206112e-05, 4.6827943318966388e-05, 8.9336419164410036e-05, 0.00016004479892593615, 0.00026927535078838448, 0.00042659339412559399, 0.00063890626740550449, 0.00090891168480700839, 0.0012344045189986326, 0.0016088489273723687, 0.0020234078457237814, 0.0024700453698638229, 0.0029444040872086403, 0.0034465714106364461, 0.0039784078211479706, 0.0045378467415732072, 0.0051125277611309789, 0.0056761396433417282, 0.0061902872545184636, 0.006612467012877426, 0.006907494274446418, 0.0070573339258933523, 0.0070649023196591052, 0.0069509929805910949, 0.0067469540748191599, 0.0064862050793382886, 0.00619606542158576, 0.0058910734977869351, 0.0055706282091550598, 0.0052237969912909835, 0.0048399186493478918, 0.0044184183827955022, 0.0039710600642876752, 0.0035158961848080748, 0.0030687271066802703, 0.0026386861804944695, 0.0022296799079748898, 0.0018443968484049503, 0.0014868956601486539, 0.0011625750595835021, 1.8742348610524438e-05, 3.8369568665965877e-05, 7.3689282246202639e-05, 0.00013256039073358781, 0.00022370413827178787, 0.00035537666497472597, 0.00053389692431549129, 0.00076248386435245051, 0.0010408227711047153, 0.0013656927704661923, 0.0017327735362356338, 0.002139198835216152, 0.0025856079236375278, 0.0030759993443604588, 0.0036143426081854686, 0.0041986116845120248, 0.0048147131451502685, 0.0054335810519318189, 0.0060139136588626806, 0.0065106622661461472, 0.0068862847719468375, 0.0071198522390085494, 0.0072102224927323173, 0.00717315345756263, 0.0070351437680832244, 0.0068264419795687143, 0.0065737087571549318, 0.0062929876427753112, 0.0059861610706766688, 0.0056445715211260088, 0.005259023795278807, 0.0048295704968003283, 0.0043679771779600723, 0.0038919551940229074, 0.0034170366959034261, 0.0029527016032013242, 0.0025042157078977311, 0.00207657437630399, 0.0016765502960884875, 0.001311994151498654, 1.4949594791377535e-05, 3.086047593898645e-05, 5.9562257549754984e-05, 0.00010749832904583234, 0.00018189232562852706, 0.00028974243857608664, 0.0004367251911472777, 0.00062637778770974185, 0.00085990466559739142, 0.0011368731580801335, 0.001456842674908976, 0.0018214429409812703, 0.0022356949178824704, 0.0027070607051494144, 0.0032414471731688644, 0.0038370610954419453, 0.0044786717184684133, 0.0051354192722537165, 0.0057642932918664513, 0.0063189441661310707, 0.0067605773660925003, 0.0070662240783984078, 0.0072312604277321715, 0.0072667133687046182, 0.0071942425391502774, 0.0070406102318482881, 0.0068312174943340794, 0.0065828811237362223, 0.006299295002134859, 0.0059735520742669902, 0.0055974763146551029, 0.0051712506959798385, 0.0047060655394071827, 0.0042187584217713535, 0.0037242863364618608, 0.0032324844949914722, 0.0027502351913745332, 0.0022851792344893052, 0.001847067411941369, 0.0014463206559013585, 1.1712004605497503e-05, 2.4324548518465915e-05, 4.712484862300385e-05, 8.5283975270725659e-05, 0.00014466739971986259, 0.00023110222190854084, 0.00034960056413907274, 0.000503838714757683, 0.00069617624095873122, 0.0009284199897014035, 0.0012033070581094311, 0.0015261728375973616, 0.0019056414346775017, 0.0023520008883588374, 0.0028727397151640174, 0.0034663451889737191, 0.004116961287649672, 0.0047928741448891431, 0.0054505901693296856, 0.006043767608316237, 0.0065335724157054081, 0.0068960243450064207, 0.0071238502984438384, 0.0072239620037262454, 0.0072134843353381913, 0.00711556593158432, 0.0069537766625818341, 0.0067448594375032148, 0.0064934580347276736, 0.0061937131880898848, 0.0058379166262376237, 0.0054258767995134117, 0.0049677087558874606, 0.0044789665375250757, 0.0039738385048170436, 0.0034625733691072834, 0.0029538829304275841, 0.0024582644577224796, 0.0019885422408336922, 0.0015576641590977541, 8.9951536507236864e-06, 1.8766185099422934e-05, 3.6465202518875256e-05, 6.6154149078863475e-05, 0.00011250252248165778, 0.00018027874539299597, 0.00027383696141774333, 0.00039684286850504144, 0.00055247203116956219, 0.00074423191449588997, 0.00097731721653839801, 0.0012599233340880333, 0.0016034056295577738, 0.0020201195846244616, 0.0025186497039306754, 0.0030976920140821911, 0.003741181252139333, 0.0044174191312047421, 0.005083606980735819, 0.0056946963682437306, 0.0062130432941201706, 0.0066147658768764394, 0.0068909337421023649, 0.0070451773596994097, 0.0070906134145003897, 0.0070468095412232323, 0.0069349878044051893, 0.0067709235461071576, 0.0065592471784870574, 0.0062943519738274563, 0.005968416624707127, 0.0055804286896104826, 0.0051390620132708764, 0.0046583406514017524, 0.0041516181361440927, 0.0036296494484554282, 0.0031031106500724087, 0.0025854020375198866, 0.002092322396804543, 0.001639132388004142, 6.7630330129038868e-06, 1.4157751046541853e-05, 2.7579581817677934e-05, 5.0151647412426947e-05, 8.5519569996185429e-05, 0.00013752076712288109, 0.00020988113277772239, 0.00030613826507368828, 0.00042998242699073463, 0.00058611857177999645, 0.00078150238920922702, 0.0010263459909629884, 0.0013338412798243084, 0.0017176059487791257, 0.002186768655067783, 0.0027400810767704634, 0.0033615901260192873, 0.0040203756282490054, 0.0046753967260867767, 0.0052840748193526002, 0.0058111074505193183, 0.0062338001034383562, 0.0065426067379040038, 0.0067388199415456297, 0.0068322114714462626, 0.0068389246898724132, 0.0067773990436782545, 0.0066615809058479846, 0.0064951246597215271, 0.0062718860431839642, 0.0059833992175796014, 0.0056275005560376592, 0.0052112282770816806, 0.0047470088113812144, 0.0042474143835494662, 0.0037238083539674898, 0.0031888572869919838, 0.0026587249931818522, 0.0021518859742764062, 0.0016855386832743402, 4.9724418638302667e-06, 1.0437661816127939e-05, 2.0378907900449042e-05, 3.714693490192769e-05, 6.3534284467355194e-05, 0.00010258073200408774, 0.0001574310434793975, 0.00023140914581962015, 0.000328464379435043, 0.00045405079875796852, 0.0006162453320749916, 0.00082648544751866976, 0.0010989457522999526, 0.0014477245547904305, 0.0018819411546337332, 0.0024002124823359517, 0.0029869364240370866, 0.0036126024217862434, 0.0042388206831952191, 0.0048264750979909671, 0.0053435906954943154, 0.0057696303099167168, 0.0060954152466433098, 0.0063208442049854296, 0.0064530574386322181, 0.0065050176887283305, 0.0064920549563765003, 0.0064255366554758679, 0.0063072819406022485, 0.0061299197853285905, 0.0058839275471885182, 0.0055658157953195533, 0.0051809759995340102, 0.0047403367445401278, 0.0042558350716103465, 0.0037395233524835491, 0.0032059554960616504, 0.0026737311597113873, 0.002163518812668924, 0.001693947496276687, 3.5723683666209528e-06, 7.5160212168140821e-06, 1.4706885434681903e-05, 2.6877601432671437e-05, 4.6128292756131535e-05, 7.4832021554140218e-05, 0.0001156108179297335, 0.00017151869382518394, 0.00024655715614807695, 0.000346547424824129, 0.00048012856194846668, 0.00065926206259857463, 0.00089834371092731302, 0.001211253694902344, 0.0016066038811512853, 0.0020826916488586411, 0.0026244403178306364, 0.0032042384641458982, 0.0037870334958616469, 0.0043379237610631175, 0.0048290119007841758, 0.0052426869930307287, 0.0055709693983178685, 0.0058132141502194676, 0.0059746178501132053, 0.0060652601994874728, 0.0060971653815678475, 0.0060785523657229763, 0.0060087385467556664, 0.0058786174558336157, 0.0056773672830810439, 0.0054001696869682347, 0.0050509267363684253, 0.0046393011303717396, 0.0041767925018512684, 0.0036761712185571305, 0.0031536390594618727, 0.0026297347145969418, 0.0021266932525865262, 0.0016639782795294285, 2.5064432219755323e-06, 5.2844162336447247e-06, 1.0363771858511363e-05, 1.8995592057476816e-05, 3.2731984233738722e-05, 5.3401539537702112e-05, 8.3167467538890156e-05, 0.00012478270230345458, 0.00018214173560300112, 0.00026112243613149764, 0.00037046149339184831, 0.00052205815252032845, 0.00072989594894427281, 0.001007064058932578, 0.0013612677615874532, 0.0017903412478962341, 0.0022798634056840484, 0.0028044698463276963, 0.0033329056744983787, 0.0038349614287846471, 0.0042872863722895668, 0.0046757072912674566, 0.004994057587612454, 0.0052418356286258426, 0.0054228997962907765, 0.0055447725031488046, 0.0056161215063585176, 0.0056416782136019215, 0.0056178480074188086, 0.0055335136743982841, 0.0053765063325272996, 0.0051408377822204435, 0.0048292088500005506, 0.0044503287622942511, 0.0040154626379947734, 0.0035380530087878782, 0.0030355832624075806, 0.0025299034989218288, 0.0020440954699511194, 0.0015978246422447637, 1.716732077437599e-06, 3.6268438683467431e-06, 7.1305876917443229e-06, 1.3113545634943807e-05, 2.270446824089999e-05, 3.7296803984475624e-05, 5.8659474955994797e-05, 8.9233193839248314e-05, 0.00013269007680961062, 0.00019472488060604358, 0.00028380689970629108, 0.00041131390035989445, 0.00059033094543730984, 0.00083273350729596316, 0.0011450462639320798, 0.0015245616573628597, 0.0019576176952286434, 0.0024213125294906199, 0.0028884241413432723, 0.0033336308938901956, 0.0037383006349245647, 0.0040919268789642894, 0.004390518161911835, 0.00463420088876694, 0.0048259839822423862, 0.004971168590809945, 0.005075166178695991, 0.0051391360690045771, 0.0051564480115143998, 0.0051139519201765966, 0.0049982746584116052, 0.0048025478857908529, 0.004528637319892983, 0.0041846332933491402, 0.0037817312402855896, 0.0033339140109423147, 0.002859479232201062, 0.0023808828500617237, 0.0019213024971828385, 0.0014999898201691225, 1.1475526362557484e-06, 2.429537923766286e-06, 4.7900083986100882e-06, 8.8440728600318713e-06, 1.5400869058894969e-05, 2.551282763056964e-05, 4.0615969071665534e-05, 6.2842530191091259e-05, 9.5565026484991077e-05, 0.00014412123023893733, 0.00021644485555111782, 0.00032306040530382903, 0.00047581889592493507, 0.00068511560490740675, 0.00095615385463188149, 0.0012856810704930841, 0.0016608839826218068, 0.0020614216118161749, 0.002464131830400707, 0.0028485114459333143, 0.0032005356058650686, 0.0035133183092212064, 0.0037851522274220659, 0.0040170656845465542, 0.0042115780342827222, 0.0043721041513383983, 0.0045010426945294845, 0.0045961470196167163, 0.0046479091124393456, 0.0046413633086355511, 0.0045622364470357165, 0.0044031534685521371, 0.0041655308546154823, 0.003857142290297399, 0.0034892080909845352, 0.0030760368028288168, 0.0026362104937217592, 0.0021920678139525748, 0.0017661626931667084, 0.0013767825989651175, 7.4850329196031523e-07, 1.5883958227244097e-06, 3.1418533009946195e-06, 5.8286627776604593e-06, 1.0221812360451691e-05, 1.7111016141153582e-05, 2.7655117282001031e-05, 4.3691876970934984e-05, 6.8248686799362839e-05, 0.00010619076140389409, 0.0001647366482462314, 0.0002533444229229521, 0.00038243657780232557, 0.00056080806314130456, 0.00079232510533976661, 0.0010732590217385938, 0.0013917271345011007, 0.0017299489541052432, 0.0020686715132064212, 0.0023919139781756579, 0.0026899041812729505, 0.0029590907747628014, 0.0031999341773155943, 0.0034144453989293833, 0.0036048913080369079, 0.003773127426008261, 0.0039189064270792823, 0.0040369619933393131, 0.0041153103086083867, 0.0041375843263699126, 0.0040890283236371767, 0.0039621639841918611, 0.0037583103684154444, 0.0034851523760822179, 0.00315394313496135, 0.0027790366121076436, 0.0023787533403950168, 0.0019746338156818393, 0.0015879747012142733, 0.0012356515636405894, 4.7635151795102996e-07, 1.0135561436482199e-06, 2.0126031444508574e-06, 3.7554811653310633e-06, 6.6440896509156807e-06, 1.1268575282351917e-05, 1.8559338374050991e-05, 3.0080115964654444e-05, 4.8492964661373767e-05, 7.8124291122207043e-05, 0.0001253746753694511, 0.00019852600662413457, 0.00030649992652411379, 0.00045649562868499156, 0.00065113062146951429, 0.00088632716539096222, 0.0011512073634306209, 0.0014304715603372516, 0.0017084866131286624, 0.001973324715553611, 0.0022189275832133208, 0.0024446099112543371, 0.0026527070412898472, 0.0028461369426024466, 0.00302704694006059, 0.0031960468909561853, 0.0033507027196650343, 0.0034832833642242842, 0.0035799133782845969, 0.0036233729243164386, 0.0035988964604651195, 0.003499284534065162, 0.003326035184041007, 0.0030868738319262913, 0.0027930084641136334, 0.0024585202612737896, 0.0021009532450651071, 0.0017404629799694423, 0.0013965827389811659, 0.0010844540484559325, 2.9578014258615019e-07, 6.3131315892892184e-07, 1.2594992980331823e-06, 2.367218470582277e-06, 4.2345281908582246e-06, 7.3015500514009963e-06, 1.2311648598195639e-05, 2.0578576652878943e-05, 3.4398318368376385e-05, 5.7532233789882938e-05, 9.5523351146188692e-05, 0.00015545223001938669, 0.00024476505117386401, 0.00036916579304143636, 0.00053018704709320108, 0.00072356608412235343, 0.00093949171719276989, 0.0011650049475285509, 0.0013877074863138268, 0.0015991431659318678, 0.0017963140546309452, 0.001980817895484576, 0.0021564563582762309, 0.0023268690797217093, 0.002494137823380916, 0.0026579222027176622, 0.0028141147417794499, 0.002953178658300846, 0.0030600374748333903, 0.0031172299093547998, 0.0031104504826547784, 0.0030330978037709979, 0.0028870258006757276, 0.002680026403254016, 0.0024231143725368196, 0.0021297751193186639, 0.0018163337289385962, 0.0015011060153310777, 0.0012015076181611398, 0.00093075713840195466) , nrow = 40, ncol = 40) , "x" = c(68.099999999999994, 69.912820512820502, 71.725641025641025, 73.538461538461533, 75.351282051282041, 77.164102564102564, 78.976923076923072, 80.78974358974358, 82.602564102564102, 84.41538461538461, 86.228205128205133, 88.041025641025641, 89.853846153846149, 91.666666666666671, 93.47948717948718, 95.292307692307702, 97.10512820512821, 98.917948717948718, 100.73076923076923, 102.54358974358975, 104.35641025641026, 106.16923076923078, 107.98205128205129, 109.7948717948718, 111.6076923076923, 113.42051282051283, 115.23333333333335, 117.04615384615386, 118.85897435897436, 120.67179487179487, 122.4846153846154, 124.2974358974359, 126.11025641025643, 127.92307692307693, 129.73589743589744, 131.54871794871795, 133.36153846153849, 135.174358974359, 136.9871794871795, 138.80000000000001) , "y" = c(36., 36.974358974358971, 37.948717948717949, 38.92307692307692, 39.897435897435898, 40.871794871794869, 41.846153846153847, 42.820512820512818, 43.794871794871796, 44.769230769230766, 45.743589743589745, 46.717948717948715, 47.692307692307693, 48.666666666666664, 49.641025641025642, 50.615384615384613, 51.589743589743591, 52.564102564102562, 53.538461538461533, 54.512820512820511, 55.487179487179489, 56.46153846153846, 57.435897435897431, 58.410256410256409, 59.384615384615387, 60.358974358974358, 61.333333333333329, 62.307692307692307, 63.282051282051285, 64.256410256410248, 65.230769230769226, 66.205128205128204, 67.179487179487182, 68.15384615384616, 69.128205128205124, 70.102564102564102, 71.076923076923066, 72.051282051282044, 73.025641025641022, 74.) ) "binom.ex" <- c(" ", "****************************************************", "dbinom(x,N=20,p=.7) evaluates binomial prob. function at x", "pbinom(x,N=20,p=.7) evaluates binomial dist. function at x", "qbinom(px,N=20,p=.7) evaluates binomial quantile function at px", " For example, ", " > px<-c(.05,.5,.95) ", " > qbinom(px,N=20,p=.7) ", " [1] 11 14 17 ", "rbinom(50,N=20,p=.7) generates 50 independent binomial r.v.'s", " ", "****************************************************") "bplot.ex" <- c(" ", "****************************************************", " ", "bplot(x) makes boxplot of data set x", "bplot(x1,x2,x3) makes side by side boxplots", " of x1,x2,x3 ", "data.frame(x1,x2,x3)->x makes data frame of x1,x2,x3", "bplot(x) makes side by side boxplots", " of x1,x2,x3 ", "bplot(x$x1,by=x$x2) makes side by side boxplots", " of x1 by values of x2 ", " ", "See Also: plot, hplot (histogram), lplot (labelplot),", "mplot(means plot), lines, points ", " ", "****************************************************") "capac.shape" <- structure(.Data = list("capac" = c(0.14099999999999999, 0.17399999999999999, 0.16500000000000001, 0.19600000000000001, 0.19800000000000001, 0.218, 0.32700000000000001, 0.32400000000000001, 0.39700000000000002, 0.41199999999999998, 0.66800000000000004, 0.57099999999999995, 0.68899999999999995, 0.63700000000000001, 0.78800000000000003) , "shape" = structure(.Data = c(1, 2, 4, 5, 3, 1, 2, 4, 5, 3, 1, 2, 4, 5, 3) , levels = c("cir", "poly", "squ", "star", "tri") , class = "factor" ) , "area" = c(9., 9., 9., 9., 9., 16., 16., 16., 16., 16., 25., 25., 25., 25., 25.) , "perim" = c(10.6, 10.9, 17.199999999999999, 13.699999999999999, 12., 14.199999999999999, 14.6, 22.899999999999999, 18.199999999999999, 16., 17.699999999999999, 18.199999999999999, 28.600000000000001, 22.800000000000001, 20.) , "discont" = c(0., 8., 16., 3., 4., 0., 8., 16., 3., 4., 0., 8., 16., 3., 4.) , "area.ch" = structure(.Data = c(3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2) , levels = c("16", "25", "9") , class = "factor" ) , "area.m" = c(-7., -7., -7., -7., -7., 0., 0., 0., 0., 0., 9., 9., 9., 9., 9.) ) , names = c("capac", "shape", "area", "perim", "discont", "area.ch", "area.m") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15") , class = "data.frame" ) "cards" <- c(" As", " 2s", " 3s", " 4s", " 5s", " 6s", " 7s", " 8s", " 9s", "10s", " Js", " Qs", " Ks", " Ad", " 2d", " 3d", " 4d", " 5d", " 6d", " 7d", " 8d", " 9d", "10d", " Jd", " Qd", " Kd", " Ac", " 2c", " 3c", " 4c", " 5c", " 6c", " 7c", " 8c", " 9c", "10c", " Jc", " Qc", " Kc", " Ah", " 2h", " 3h", " 4h", " 5h", " 6h", " 7h", " 8h", " 9h", "10h", " Jh", " Qh", " Kh")