"cavendish" <- c(5.5, 5.6100000000000003, 4.8799999999999999, 5.0700000000000003, 5.2599999999999998, 5.5499999999999998, 5.3600000000000003, 5.29, 5.5800000000000001, 5.6500000000000004, 5.5700000000000003, 5.5300000000000002, 5.6200000000000001, 5.29, 5.4400000000000004, 5.3399999999999999, 5.79, 5.0999999999999996, 5.2699999999999996, 5.3899999999999997, 5.4199999999999999, 5.4699999999999998, 5.6299999999999999, 5.3399999999999999, 5.46, 5.2999999999999998, 5.75, 5.6799999999999997, 5.8499999999999996) "city.temp" <- structure(.Data = list("long" = c(-106.65000000000001, -84.383330000000001, -97.75, -76.616669999999999, -70.600200000000001 , -78.883330000000001, -80.849999999999994, -87.633330000000001, -84.016670000000005 , -81.700000000000003, -83., -96.816670000000002, -104.98333, -83.049999999999997, -106.48333, -97.299999999999997, -119.76667, -155.69999999999999 , -95.366669999999999, -86.150000000000006, -81.650000000000006, -94.633300000000006 , -118.18333, -118.25, -80.183329999999998, -87.916669999999996, -98.266670000000005 , -86.783330000000007, -90.066670000000002, -74., -122.26667, -97.5, -96.016670000000005, -75.166669999999996, -112.06667, -80.016670000000005, -122.61667, -121.48333, -90.200000000000003, -98.5 , -117.15000000000001, -122.41667, -121.88333, -122.33333, -83.549999999999997, -110.96666999999999, -95.916669999999996, -75.983329999999995, -77.033330000000007) , "lat" = c(35.083329999999997, 33.75, 30.283329999999999, 39.283329999999999, 42.159999999999997, 42.883330000000001, 35.216670000000001, 41.883330000000001, 41.883330000000001, 41.5, 39.966670000000001, 32.783329999999999, 39.733330000000002, 42.333329999999997, 31.75, 32.75, 36.733330000000002, 21.316669999999998, 29.766670000000001, 39.766669999999998, 30.33333, 39.116669999999999, 33.783329999999999, 34.066670000000002, 25.783329999999999, 43.033329999999999, 44.983330000000002, 36.166670000000003, 29.966670000000001, 40.716670000000001, 37.816670000000002, 35.049999999999997, 41.283329999999999, 39.950000000000003, 33.450000000000003, 40.433329999999998, 45.533329999999999, 38.583329999999997, 38.616669999999999, 29.41667, 32.716670000000001, 37.783329999999999, 37.166670000000003, 47.600000000000001, 41.649999999999999, 32.216670000000001, 36.166670000000003, 36.850000000000001, 38.899999999999999) , "jan" = c(22.300000000000001, 32.600000000000001, 38.799999999999997, 24.300000000000001, 22.800000000000001, 17., 42., 13.6, 20.399999999999999, 18.5, 19.399999999999999, 33.899999999999999, 15.9, 16.100000000000001, 30.399999999999999, 33.899999999999999, 37.399999999999999, 65.299999999999997, 40.799999999999997, 17.800000000000001, 41.700000000000003, 17.199999999999999, 44.299999999999997, 47.299999999999997, 59.200000000000003, 11.300000000000001, 2.3999999999999999, 27.800000000000001, 43., 25.600000000000001, 43.399999999999999, 25.199999999999999, 10.199999999999999, 23.399999999999999, 44.399999999999999, 19.199999999999999, 33.5, 37.899999999999999, 19.899999999999999, 39., 48.399999999999999, 41.5, 41.100000000000001, 34.299999999999997, 15.5, 38.100000000000001, 24.800000000000001, 31.699999999999999, 27.5) , "rain" = c(8.1199999999999992, 48.609999999999999, 31.5, 43.390000000000001, 43.810000000000002, 37.520000000000003, 43.159999999999997, 33.340000000000003, 40.100000000000001, 35.399999999999999, 36.969999999999999, 34.159999999999997, 15.31, 30.969999999999999, 7.8200000000000003, 29.449999999999999, 10., 23.469999999999999, 44.770000000000003, 39.119999999999997, 52.770000000000003, 29.27, 12., 14.85, 57.549999999999997, 30.940000000000001, 26.359999999999999, 48.490000000000002, 59.740000000000002, 44.119999999999997, 18.030000000000001, 30.890000000000001, 30.34, 41.420000000000002, 7.1100000000000003, 36.289999999999999, 37.390000000000001, 17.870000000000001, 33.909999999999997, 29.129999999999999, 9.3200000000000003, 19.710000000000001, 13.859999999999999, 38.850000000000001, 31.77, 11.140000000000001, 38.770000000000003, 30.5, 39.) , "jul" = c(92.799999999999997, 87.900000000000006, 95.400000000000006, 87.099999999999994, 81.799999999999997, 80.200000000000003, 89., 83.299999999999997, 85.799999999999997, 81.700000000000003, 84.400000000000006, 97.799999999999997, 88., 83.099999999999994, 95.299999999999997, 97.799999999999997, 98.700000000000003, 87.099999999999994, 93.599999999999994, 85.200000000000003, 90.700000000000003, 88.5, 83., 75.299999999999997, 88.700000000000003, 79.799999999999997, 83.400000000000006, 89.799999999999997, 90.700000000000003, 85.299999999999997, 70.599999999999994, 93.5, 88.5, 86.099999999999994, 107.5, 86.099999999999994, 79.5, 93.299999999999997, 89., 96.299999999999997, 75.599999999999994, 71., 81.5, 75.200000000000003, 83.400000000000006, 98.5, 93.900000000000006, 86.900000000000006, 87.900000000000006) , "elev" = c(5300., 1034., 570., 155., 10., 706., 665., 623., 540., 805., 833., 596., 5280., 581., 3700., 670., 328., 15., 49., 808., 31., 744., 35., 104., 12., 581., 828., 605., 30., 87., 42., 1304., 982., 28., 1117., 1223., 39., 25., 564., 701., 13., 155., 65., 450., 692., 2584., 676., 12., 30.) , "july" = c(92.799999999999997, 87.900000000000006, 95.400000000000006, 87.099999999999994, 81.799999999999997, 80.200000000000003, 89., 83.299999999999997, 85.799999999999997, 81.700000000000003, 84.400000000000006, 97.799999999999997, 88., 83.099999999999994, 95.299999999999997, 97.799999999999997, 98.700000000000003, 87.099999999999994, 93.599999999999994, 85.200000000000003, 90.700000000000003, 88.5, 83., 75.299999999999997, 88.700000000000003, 79.799999999999997, 83.400000000000006, 89.799999999999997, 90.700000000000003, 85.299999999999997, 70.599999999999994, 93.5, 88.5, 86.099999999999994, 107.5, 86.099999999999994, 79.5, 93.299999999999997, 89., 96.299999999999997, 75.599999999999994, 71., 81.5, 75.200000000000003, 83.400000000000006, 98.5, 93.900000000000006, 86.900000000000006, 87.900000000000006) , "city" = c("albuquerque", "atlanta", "austin", "baltimore", "boston", "buffalo", "charlotte", "chicago", "cincinnati", "cleveland", "columbus", "dallas", "denver", "detroit", "elpaso", "fortworth", "fresno", "honolulu", "houston", "indianapolis", "jacksonville", "kansascity", "longbeach", "losangeles", "miami", "milwaukee", "minneapolis", "nashville", "neworleans", "newyork", "oakland", "oklahomacity", "omaha", "philadelphia", "phoenix", "pittsburgh", "portland", "sacramento", "stlouis", "sanantonio", "sandiego", "sanfrancisco", "sanjose", "seattle", "toledo", "tucson", "tulsa", "virginabeach", "washington") , "lon" = c(-106.65000000000001, -84.383330000000001, -97.75, -76.616669999999999, -70.600200000000001 , -78.883330000000001, -80.849999999999994, -87.633330000000001, -84.016670000000005 , -81.700000000000003, -83., -96.816670000000002, -104.98333, -83.049999999999997, -106.48333, -97.299999999999997, -119.76667, -155.69999999999999 , -95.366669999999999, -86.150000000000006, -81.650000000000006, -94.633300000000006 , -118.18333, -118.25, -80.183329999999998, -87.916669999999996, -92.780739999999994 , -86.783330000000007, -90.066670000000002, -74., -122.26667, -97.5, -96.016670000000005, -75.166669999999996, -112.06667, -80.016670000000005, -122.61667, -121.48333, -90.200000000000003, -98.5 , -117.15000000000001, -122.41667, -121.88333, -122.33333, -83.549999999999997, -110.96666999999999, -95.916669999999996, -75.983329999999995, -77.033330000000007) ) , names = c("long", "lat", "jan", "rain", "jul", "elev", "july", "city", "lon") , 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") , class = "data.frame" ) "climate" <- structure(.Data = list("lat" = c(35.083329999999997, 33.75, 30.283329999999999, 39.283329999999999, 42.159999999999997, 42.883330000000001, 35.216670000000001, 41.883330000000001, 41.883330000000001, 41.5, 39.966670000000001, 32.783329999999999, 39.733330000000002, 42.333329999999997, 31.75, 32.75, 36.733330000000002, 21.316669999999998, 29.766670000000001, 39.766669999999998, 30.33333, 39.116669999999999, 33.783329999999999, 34.066670000000002, 35.133330000000001, 25.783329999999999, 43.033329999999999, 44.983330000000002, 36.166670000000003, 29.966670000000001, 40.716670000000001, 37.816670000000002, 35.049999999999997, 41.283329999999999, 39.950000000000003, 33.450000000000003, 40.433329999999998, 45.533329999999999, 38.583329999999997, 38.616669999999999, 29.41667, 32.716670000000001, 37.783329999999999, 37.166670000000003, 47.600000000000001, 41.649999999999999, 32.216670000000001, 36.166670000000003, 36.850000000000001, 38.899999999999999) , "jan" = c(22.300000000000001, 32.600000000000001, 38.799999999999997, 24.300000000000001, 22.800000000000001, 17., 42., 13.6, 20.399999999999999, 18.5, 19.399999999999999, 33.899999999999999, 15.9, 16.100000000000001, 30.399999999999999, 33.899999999999999, 37.399999999999999, 65.299999999999997, 40.799999999999997, 17.800000000000001, 41.700000000000003, 17.199999999999999, 44.299999999999997, 47.299999999999997, 30.899999999999999, 59.200000000000003, 11.300000000000001, 2.3999999999999999, 27.800000000000001, 43., 25.600000000000001, 43.399999999999999, 25.199999999999999, 10.199999999999999, 23.399999999999999, 44.399999999999999, 19.199999999999999, 33.5, 37.899999999999999, 19.899999999999999, 39., 48.399999999999999, 41.5, 41.100000000000001, 34.299999999999997, 15.5, 38.100000000000001, 24.800000000000001, 31.699999999999999, 27.5) , "rain" = c(8.1199999999999992, 48.609999999999999, 31.5, 43.390000000000001, 43.810000000000002, 37.520000000000003, 43.159999999999997, 33.340000000000003, 40.100000000000001, 35.399999999999999, 36.969999999999999, 34.159999999999997, 15.31, 30.969999999999999, 7.8200000000000003, 29.449999999999999, 10., 23.469999999999999, 44.770000000000003, 39.119999999999997, 52.770000000000003, 29.27, 12., 14.85, 51.469999999999999, 57.549999999999997, 30.940000000000001, 26.359999999999999, 48.490000000000002, 59.740000000000002, 44.119999999999997, 18.030000000000001, 30.890000000000001, 30.34, 41.420000000000002, 7.1100000000000003, 36.289999999999999, 37.390000000000001, 17.870000000000001, 33.909999999999997, 29.129999999999999, 9.3200000000000003, 19.710000000000001, 13.859999999999999, 38.850000000000001, 31.77, 11.140000000000001, 38.770000000000003, 30.5, 39.) , "city" = c("albuquerque", "atlanta", "austin", "baltimore", "boston", "buffalo", "charlotte", "chicago", "cincinnati", "cleveland", "columbus", "dallas", "denver", "detroit", "elpaso", "fortworth", "fresno", "honolulu", "houston", "indianapolis", "jacksonville", "kansascity", "longbeach", "losangeles", "memphis", "miami", "milwaukee", "minneapolis", "nashville", "neworleans", "newyork", "oakland", "oklahomacity", "omaha", "philadelphia", "phoenix", "pittsburgh", "portland", "sacramento", "stlouis", "sanantonio", "sandiego", "sanfrancisco", "sanjose", "seattle", "toledo", "tucson", "tulsa", "virginabeach", "washington") , "jul" = c(92.799999999999997, 87.900000000000006, 95.400000000000006, 87.099999999999994, 81.799999999999997, 80.200000000000003, 89., 83.299999999999997, 85.799999999999997, 81.700000000000003, 84.400000000000006, 97.799999999999997, 88., 83.099999999999994, 95.299999999999997, 97.799999999999997, 98.700000000000003, 87.099999999999994, 93.599999999999994, 85.200000000000003, 90.700000000000003, 88.5, 83., 75.299999999999997, 91.5, 88.700000000000003, 79.799999999999997, 83.400000000000006, 89.799999999999997, 90.700000000000003, 85.299999999999997, 70.599999999999994, 93.5, 88.5, 86.099999999999994, 107.5, 86.099999999999994, 79.5, 93.299999999999997, 89., 96.299999999999997, 75.599999999999994, 71., 81.5, 75.200000000000003, 83.400000000000006, 98.5, 93.900000000000006, 86.900000000000006, 87.900000000000006) , "elev" = c(5300., 1034., 570., 155., 10., 706., 665., 623., 540., 805., 833., 596., 5280., 581., 3700., 670., 328., 15., 49., 808., 31., 744., 35., 104., 307., 12., 581., 828., 605., 30., 87., 42., 1304., 982., 28., 1117., 1223., 39., 25., 564., 701., 13., 155., 65., 450., 692., 2584., 676., 12., 30.) , "lon" = c(-106.65000000000001, -84.383330000000001, -97.75, -76.616669999999999, -70.600200000000001 , -78.883330000000001, -80.849999999999994, -87.633330000000001, -84.016670000000005 , -81.700000000000003, -83., -96.816670000000002, -104.98333, -83.049999999999997, -106.48333, -97.299999999999997, -119.76667, -155.69999999999999 , -95.366669999999999, -86.150000000000006, -81.650000000000006, -94.633300000000006 , -118.18333, -118.25, -90.049999999999997, -80.183329999999998, -87.916669999999996 , -92.780739999999994, -86.783330000000007, -90.066670000000002, -74. , -122.26667, -97.5, -96.016670000000005, -75.166669999999996, -112.06667, -80.016670000000005, -122.61667, -121.48333, -90.200000000000003, -98.5, -117.15000000000001, -122.41667, -121.88333, -122.33333, -83.549999999999997, -110.96666999999999, -95.916669999999996, -75.983329999999995, -77.033330000000007) ) , names = c("lat", "jan", "rain", "city", "jul", "elev", "lon") , 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") , class = "data.frame" ) "climate.w" <- structure(.Data = list("long" = named("honolulu" = -155.69999999999999 , "longbeach" = -118.18333 , "losangeles" = -118.25 , "oakland" = -122.26667 , "portland" = -122.61667 , "sacramento" = -121.48333 , "sandiego" = -117.15000000000001 , "sanfrancisco" = -122.41667 , "sanjose" = -121.88333 , "seattle" = -122.33333 ) , "lat" = named("honolulu" = 21.316669999999998 , "longbeach" = 33.783329999999999 , "losangeles" = 34.066670000000002 , "oakland" = 37.816670000000002 , "portland" = 45.533329999999999 , "sacramento" = 38.583329999999997 , "sandiego" = 32.716670000000001 , "sanfrancisco" = 37.783329999999999 , "sanjose" = 37.166670000000003 , "seattle" = 47.600000000000001 ) , "elev" = named("honolulu" = 15. , "longbeach" = 35. , "losangeles" = 104. , "oakland" = 42. , "portland" = 39. , "sacramento" = 25. , "sandiego" = 13. , "sanfrancisco" = 155. , "sanjose" = 65. , "seattle" = 450. ) , "jan" = named("honolulu" = 65.299999999999997 , "longbeach" = 44.299999999999997 , "losangeles" = 47.299999999999997 , "oakland" = 43.399999999999999 , "portland" = 33.5 , "sacramento" = 37.899999999999999 , "sandiego" = 48.399999999999999 , "sanfrancisco" = 41.5 , "sanjose" = 41.100000000000001 , "seattle" = 34.299999999999997 ) , "jul" = named("honolulu" = 87.099999999999994 , "longbeach" = 83. , "losangeles" = 75.299999999999997 , "oakland" = 70.599999999999994 , "portland" = 79.5 , "sacramento" = 93.299999999999997 , "sandiego" = 75.599999999999994 , "sanfrancisco" = 71. , "sanjose" = 81.5 , "seattle" = 75.200000000000003 ) , "rain" = named("honolulu" = 23.469999999999999 , "longbeach" = 12. , "losangeles" = 14.85 , "oakland" = 18.030000000000001 , "portland" = 37.390000000000001 , "sacramento" = 17.870000000000001 , "sandiego" = 9.3200000000000003 , "sanfrancisco" = 19.710000000000001 , "sanjose" = 13.859999999999999 , "seattle" = 38.850000000000001 ) , "city" = c("honolulu", "longbeach", "losangeles", "oakland", "portland", "sacramento", "sandiego", "sanfrancisco", "sanjose", "seattle") ) , names = c("long", "lat", "elev", "jan", "jul", "rain", "city") , row.names = c("honolulu", "longbeach", "losangeles", "oakland", "portland", "sacramento", "sandiego", "sanfrancisco", "sanjose", "seattle") , class = "data.frame" ) "college" <- structure(.Data = list("pop" = c(2399., 4136., 6751., 1235., 30867., 2812., 18119., 6843., 5007., 1005., 5136., 17656., 3470., 9437., 12009.) , "inc" = c(15.4, 16.199999999999999, 18.100000000000001, 18.199999999999999, 21.300000000000001, 18.300000000000001, 23.5, 17.699999999999999, 18.699999999999999, 20.300000000000001, 20.399999999999999, 17.899999999999999, 20.100000000000001, 19.5, 20.300000000000001) , "undgrad" = c(85.700000000000003, 200.30000000000001, 237.30000000000001, 51.399999999999999, 1808.3, 146.80000000000001, 860.20000000000005, 335.10000000000002, 274.39999999999998, 69.200000000000003, 250.59999999999999, 804.20000000000005, 196.80000000000001, 497.39999999999998, 526.5) , "grad" = c(7., 20.899999999999999, 31.800000000000001, 5.0999999999999996, 183.40000000000001, 18., 169.40000000000001, 30.699999999999999, 31.199999999999999, 9.5999999999999996, 20.899999999999999, 96.400000000000006, 35.299999999999997, 61.299999999999997, 78.599999999999994) , "fees" = c(1.54, 1.6990000000000001, 1.7629999999999999, 2.5419999999999998, 1.448, 2.044, 2.3370000000000002, 1.224, 2.0190000000000001, 2.8450000000000002, 1.992, 1.1439999999999999, 2.2250000000000001, 2.883, 3.798) , "loc" = structure(.Data = c(3, 3, 3, 2, 4, 1, 2, 3, 3, 2, 4, 3, 4, 1, 2) , levels = c("mw", "ne", "s", "w") , class = "factor" ) ) , names = c("pop", "inc", "undgrad", "grad", "fees", "loc") , row.names = c("ark", "ala", "geo", "mai", "cal", "iow", "ny", "nc", "wis", "ri", "was", "tex", "col", "mic", "pen") , class = "data.frame" ) "count.ex" <- c(" ", "****************************************************", "count(zork>3.5) Count the number of times", " the values in the data set", " zork are greater than 3.5.", " ", "count((zork>-5)&(zork<10)) Count the number of times", " the values in zork are ", " between -5 and 10. ", " ", "count(zork==0) Count the number of times", " the values in zork are ", " equal to 0. ", " ", "****************************************************") "data.frame.ex" <- c(" ", "****************************************************", "data.frame(x,y) -> z makes new data frame z from", " x and y which may be ", " vectors or data frames of ", " the same length", " ", "c(\"na1\",\"na2\")->names(z) adds names na1 and na2 to z", " ", "data.frame(na1=x,na1=y)->z does prev. in one step", " ", "z[,-2] -> z removes second column of z", " ", "z[c(-18,-25),] -> z removes 18th and 25th rows", " ", "read.table(\"data1\")->z makes data frame from ascii", " file named data1 ", " ", "****************************************************") "dbinom.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", " ", "****************************************************") "dexp.ex" <- c(" ", "****************************************************", "dexp(x,beta=3) evaluates exponential density with mean=3 at x", "pexp(x,beta=3) evaluates exponential dist. fn. with mean=3 at x", "qexp(px,beta=3) evaluates exponential quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qexp(px,beta=3) ", " [1] 0.1538799 2.0794415 8.9871968 ", " ", "rexp(50,beta=3) generates 50 independent exponential r.v.'s", " ", "****************************************************") "dgam.ex" <- c(" ", "****************************************************", "dgam(x,alpha=2,beta=3) evaluates gamma density at x", "pgam(x,alpha=2,beta=3) evaluates gamma dist. fn. at x", "qgam(px,alpha=2,beta=3) evaluates gamma quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qgam(px,alpha=2,beta=3) ", " [1] 1.066085 5.035041 14.231594", " ", "rgam(50,alpha=2,beta=3) generates 50 independent gamma r.v.'s", " ", "****************************************************") "dnorm.ex" <- c(" ", "****************************************************", "dnorm(x,mean=4,sd=6) evaluates normal density at x", "pnorm(x,mean=4,sd=6) evaluates normal dist. fn. at x", "qnorm(px,mean=4,sd=6) evaluates normal quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qnorm(px,mean=4,sd=6) ", " [1] -5.869122 4.000000 13.869122", " ", "rnorm(50,mean=4,sd=6) generates 50 independent normal r.v.'s", " ", "****************************************************") "drill.bit" <- structure(.Data = list("brand" = c("besly", "besly", "besly", "besly", "besly", "besly", "cleveland", "cleveland", "cleveland", "cleveland", "cleveland", "cleveland", "cleveland", "cleveland") , "holes" = c(346., 375., 442., 249., 280., 428., 63., 124., 262., 92., 192., 122., 134., 128.) , "price" = c(9.6400000000000006, 9.6400000000000006, 9.6400000000000006, 9.6400000000000006, 9.6400000000000006, 9.6400000000000006, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004, 4.4800000000000004) ) , names = c("brand", "holes", "price") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14") , class = "data.frame" ) "drill.bit.list" <- list("besly" = c(346., 375., 442., 249., 280., 428.) , "cleveland" = c(63., 124., 262., 92., 192., 122., 134., 128.) ) "dump.data.list" <- c("airplane.ex", "cancer.dat", "cavendish.ex", "climate.ex", "college.ex", "etruscan.dat", "global.temp.ex", "guay.climate", "insulate.dat", "magnet.ex", "means.ex", "michelson.ex", "monarch.dat", "mplot.ex", "precip.ny", "predict.new.ex", "raleigh.snow", "viscosity", "viscosity.ex", "vocab.dat", "wire.resist", ".motif.options", "actuator", "actuator.calibrate", "airplane", "auto.paint", "auto.paint.demo", "binom.ex", "bplot.ex", "capac.shape", "cards", "cavendish", "city.temp", "climate", "climate.w", "college", "count.ex", "data.frame.ex", "dbinom.ex", "dexp.ex", "dgam.ex", "dnorm.ex", "drill.bit", "drill.bit.list", "dump.data.list", "dump.fun.list", "dunif.ex", "dweib.ex", "earthq", "earthq.freq", "exp.ex", "flame", "ftp.exp", "gam.ex", "global.temp", "hplot.ex", "hugo", "jet", "lab3.sequence1", "lab3.sequence2", "lab4.dat", "lines.ex", "lm.ex", "magnet", "michelson", "micro", "minitri", "minitri.std", "mplot", "ncsu", "norm.ex", "ozone.sw", "pbinom.ex", "pexp.ex", "pgam.ex", "plot.ex", "pnorm.ex", "points.ex", "popcorn", "popcorn.n", "precip", "precip.aug", "precip.feb", "precip.jan", "precip.jun", "precip.mar", "precip.may", "punif.ex", "pweib.ex", "qbinom.ex", "qexp.ex", "qgam.ex", "qnorm.ex", "quake", "qunif.ex", "raleigh.temp", "rat.diet", "rbinom.ex", "read.table.ex", "rexp.ex", "rgam.ex", "rnorm.ex", "runif.ex", "rweib.ex", "slab.datasets.version", "slab.ex", "solar.cells", "stats.ex", "time.ftp", "title.ex", "unif.ex", "wafer", "weib.ex", "wing.rip", "yarn", "yarn.twist", ".X11.options", "capac.shape.ex", "crisp", "ncsu.ex", "ozone.sw.ex", "plot.window2", "popcorn.ex", "raleigh.temp.ex", "world.dat") "dump.fun.list" <- c("make.dump.files", "predict.new", ".motif.options", ".xxx", "F.table", "area.curve", "attach.slab", "bplot", "cat.to.list", "count", "dbinom", "demo.density.2d", "demo.gamma", "deport", "describe", "dexp", "dgam", "disk.quota", "dnorm.2d", "dpoisson", "dtri", "dweib", "emacs", "ex", "export", "extra", "freq", "hplot", "lab4.demo", "lab5.dist", "like.surface", "llike.cauchy", "llike.dexp", "llike.gamma", "llike.gamma.1", "lplot", "lplot.ex", "ls.class", "make.ftp", "make.qfiles", "make.surface", "masked.men", "mean.machine", "means", "means.2way", "message", "mklevel", "mplot", "nplot", "pbinom", "pexp", "pgam", "plot.window", "pico", "poker", "power.exp", "power.exp.2", "predict.lm", "print.message", "ptri", "pweib", "qbinom", "qexp", "qgam", "qhnorm", "qtri", "random.walk", "rbern", "rbinom", "rdexp", "read.data", "rexp", "rgam", "rnorm.2d", "rperm", "runs", "rweib", "sd", "set.panel", "setup.slab", "simulate.reg", "simulate.samples", "simulate.sums", "slab.version", "spline.int", "spline.interp", "ss.surface", "stats", "summary.unbalanced", "t.table", "ted", "unique.seed", "view", "world", "write.data", "xline", "yline") "dunif.ex" <- c(" ", "****************************************************", "dunif(x,min=5,max=20) evaluates uniform(5,20) density at x", "punif(x,min=5,max=20) evaluates uniform(5,20) dist. fn. at x", "qunif(px,min=5,max=20) evaluates uniform(5,20) quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qunif(px,min=5,max=20) ", " [1] 5.75 12.50 19.25 ", " ", "runif(50,min=5,max=20) generates 50 independent uniform(5,20) r.v.'s", " ", "****************************************************") "dweib.ex" <- c(" ", "****************************************************", "dweib(x,alpha=2,beta=3) evaluates Weibull density at x", "pweib(x,alpha=2,beta=3) evaluates Weibull dist. fn. at x", "rweib(50,alpha=2,beta=3) generates 50 independent Weibull r.v.'s", " ", "****************************************************") "earthq" <- structure(.Data = list("site" = 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., 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., 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., 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., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.) , "freq" = c(3.3999999999999999, 4.5999999999999996, 4.7999999999999998, 3., 5.9000000000000004, 7.4000000000000004, 10.4, 5.9000000000000004, 5.4000000000000004, 6.2000000000000002, 8.5, 4., 11.1, 1.2, 9.4000000000000004, 7.0999999999999996, 5.4000000000000004, 2.7999999999999998, 4.2000000000000002, 2.3999999999999999, 1.8999999999999999, 1.1000000000000001, 1.3999999999999999, 3.7999999999999998, 0.80000000000000004, 3.7999999999999998, 3.8999999999999999, 3.2999999999999998, 3.1000000000000001, 5., 3.3999999999999999, 5.5, 6., 3.8999999999999999, 4.0999999999999996, 4.7000000000000002, 1.3999999999999999, 0.90000000000000002, 3., 5.0999999999999996, 1.3, 6.0999999999999996, 1.2, 3.2000000000000002, 2.7000000000000002, 2.7999999999999998, 2.5, 5.5999999999999996, 3.8999999999999999, 3.6000000000000001, 2.7999999999999998, 3.7999999999999998, 1.1000000000000001, 0.80000000000000004, 2.2000000000000002, 2., 4.7999999999999998, 2.5, 4.4000000000000004, 8.8000000000000007, 8.1999999999999993, 9., 6.5999999999999996, 1.5, 6.4000000000000004, 6.7000000000000002, 5.7999999999999998, 8.5, 1.5, 9.5, 6.0999999999999996, 8.1999999999999993, 7.9000000000000004, 11.6, 10., 10.1, 6.5, 5.2000000000000002, 11.5, 9.9000000000000004, 10.300000000000001, 12.1, 10.199999999999999, 7.5, 7.4000000000000004, 7.7000000000000002, 8.5, 6.7000000000000002, 8.5, 1.8, 5.7000000000000002, 6.2000000000000002, 5.5999999999999996, 16.199999999999999, 6.5, 5.2000000000000002, 6.9000000000000004, 6.5, 11.199999999999999, 6.0999999999999996, 6.7999999999999998, 7.9000000000000004, 9.1999999999999993, 8.6999999999999993, 7.9000000000000004, 6.7000000000000002, 8.4000000000000004, 7.7000000000000002, 3.6000000000000001, 6., 6.7000000000000002, 17.199999999999999, 8.8000000000000007, 7.0999999999999996, 6.4000000000000004, 5., 6.4000000000000004, 7.5, 13.699999999999999, 3.3999999999999999, 6., 7.9000000000000004, 4., 7.2000000000000002, 6.9000000000000004, 11.199999999999999, 11.6, 4.0999999999999996, 6.5, 4.2000000000000002, 6.4000000000000004, 8.0999999999999996, 6.4000000000000004, 8.3000000000000007, 4.5999999999999996, 12.1, 5.9000000000000004, 4.9000000000000004, 6., 4.2999999999999998, 4.5, 5.2000000000000002, 1.3999999999999999, 11.699999999999999, 0.69999999999999996, 5.4000000000000004, 12.4, 6.5999999999999996) , "mag" = c(6.0999999999999996, 5.9000000000000004, 5.7000000000000002, 6.2999999999999998, 5.5, 4.7999999999999998, 4.2000000000000002, 5.0999999999999996, 5.5999999999999996, 4.9000000000000004, 4.4000000000000004, 5., 3.6000000000000001, 6.2000000000000002, 4.7000000000000002, 5.0999999999999996, 4.9000000000000004, 6.4000000000000004, 6.5999999999999996, 6.4000000000000004, 6.5999999999999996, 6.9000000000000004, 6.7999999999999998, 5.5, 6.2999999999999998, 5.9000000000000004, 6., 6.2999999999999998, 5.9000000000000004, 6., 6.5, 5.7999999999999998, 5.7000000000000002, 6.2999999999999998, 5.2999999999999998, 5.5, 6.5, 6.5999999999999996, 6.2000000000000002, 5., 6.2000000000000002, 4.9000000000000004, 7., 5.7999999999999998, 6.2000000000000002, 5.7999999999999998, 5.7000000000000002, 5.2999999999999998, 5.2000000000000002, 5.5999999999999996, 4.7999999999999998, 5.5, 5., 5., 5.5, 4.9000000000000004, 5.2999999999999998, 4.4000000000000004, 5.2999999999999998, 5., 4.7999999999999998, 4.0999999999999996, 4.7999999999999998, 5.2000000000000002, 3.8999999999999999, 4.5, 4.2999999999999998, 4.0999999999999996, 4.7999999999999998, 4.2000000000000002, 4.9000000000000004, 4.0999999999999996, 4.2999999999999998, 3.6000000000000001, 3.6000000000000001, 3.1000000000000001, 4.2000000000000002, 4.4000000000000004, 3.2000000000000002, 4., 4.0999999999999996, 3.2999999999999998, 3.7000000000000002, 4.5, 4.5999999999999996, 4.2000000000000002, 4.5, 5.2999999999999998, 4.4000000000000004, 5.2999999999999998, 4.7000000000000002, 4.7000000000000002, 4.5, 3.7999999999999998, 4.0999999999999996, 4.7999999999999998, 4.2000000000000002, 4.7000000000000002, 3.7999999999999998, 4.5, 4.5999999999999996, 3.1000000000000001, 4., 3.8999999999999999, 4.5, 5., 3.7999999999999998, 4.4000000000000004, 4.5999999999999996, 4.5999999999999996, 4.0999999999999996, 3.5, 3.8999999999999999, 4.5999999999999996, 4., 4.9000000000000004, 4.2999999999999998, 4.7999999999999998, 3.2999999999999998, 5.5, 4.9000000000000004, 3.7000000000000002, 5., 5., 4.4000000000000004, 3.2999999999999998, 4.5999999999999996, 5.7000000000000002, 5., 5.0999999999999996, 4.7000000000000002, 4.5, 4.2999999999999998, 3.2000000000000002, 4.7999999999999998, 3.7999999999999998, 4.7999999999999998, 4.9000000000000004, 4.7999999999999998, 5.0999999999999996, 4.5999999999999996, 4.7999999999999998, 5.2000000000000002, 4.0999999999999996, 5.7999999999999998, 4.9000000000000004, 3.6000000000000001, 4.7999999999999998) , "depth" = c(8.1999999999999993, 62.100000000000001, 59.299999999999997, 11.1, 76.599999999999994, 7.0999999999999996, 11.199999999999999, 68.5, 1.5, 0.10000000000000001, 0.29999999999999999, 0.20000000000000001, 3.6000000000000001, 3.2999999999999998, 0.80000000000000004, 10., 8., 27.300000000000001, 97.400000000000006, 1.2, 14.800000000000001, 25., 18., 58.799999999999997, 10.300000000000001, 5.9000000000000004, 8.6999999999999993, 60.700000000000003, 4.0999999999999996, 5.2999999999999998, 3.2999999999999998, 1.3, 8., 6.0999999999999996, 1.7, 73.799999999999997, 10.199999999999999, 15.800000000000001, 21.800000000000001, 2., 1.6000000000000001, 2.2999999999999998, 13., 98., 27.800000000000001, 70.099999999999994, 30.600000000000001, 0.5, 34.5, 62.5, 22., 34.299999999999997, 2.8999999999999999, 1.1000000000000001, 0.80000000000000004, 4.2000000000000002, 24.199999999999999, 1.3, 2.8999999999999999, 10.300000000000001, 16.800000000000001, 11.699999999999999, 24.800000000000001, 1.1000000000000001, 4.0999999999999996, 18.699999999999999, 0.59999999999999998, 17.899999999999999, 0.59999999999999998, 14.300000000000001, 14.9, 1.7, 10.699999999999999, 1.5, 3.7000000000000002, 2.8999999999999999, 26.800000000000001, 2., 6.5999999999999996, 10.1, 9.8000000000000007, 4.5, 13.5, 23.899999999999999, 21.800000000000001, 13.300000000000001, 17.899999999999999, 83.299999999999997, 12.5, 24., 6.5, 11.4, 16.300000000000001, 6.5999999999999996, 8.8000000000000007, 9.9000000000000004, 15., 34.600000000000001, 8.0999999999999996, 7.5999999999999996, 29.300000000000001, 4.7999999999999998, 12., 4.9000000000000004, 4., 35.899999999999999, 6.0999999999999996, 16.699999999999999, 1., 30.600000000000001, 34.299999999999997, 16.100000000000001, 12.1, 40.700000000000003, 27.399999999999999, 24.5, 22.300000000000001, 68., 12.6, 47.200000000000003, 22.600000000000001, 24.800000000000001, 24.199999999999999, 24.199999999999999, 27.300000000000001, 15.5, 15.300000000000001, 8.4000000000000004, 25., 3.2999999999999998, 19., 12.6, 4.5999999999999996, 7.2999999999999998, 22.699999999999999, 13.4, 28.600000000000001, 57.799999999999997, 12.800000000000001, 30., 11.699999999999999, 15.699999999999999, 51.399999999999999, 19.100000000000001, 17.600000000000001, 33.200000000000003, 19., 20.199999999999999) , "dist" = c(45.299999999999997, 10.1, 12.6, 30.199999999999999, 17.399999999999999, 7., 9.8000000000000007, 21.600000000000001, 32.100000000000001, 2.2000000000000002, 4., 23.100000000000001, 3.1000000000000001, 85.299999999999997, 10.9, 7.5, 22.5, 116.59999999999999, 115.8, 35.399999999999999, 118.40000000000001, 115.3, 98.900000000000006, 5.5999999999999996, 134.90000000000001, 49.299999999999997, 35.399999999999999, 29.300000000000001, 48.299999999999997, 48.200000000000003, 44.899999999999999, 34.399999999999999, 4.7000000000000002, 46.600000000000001, 29.800000000000001, 12.800000000000001, 22.199999999999999, 67.900000000000006, 70.900000000000006, 5.2999999999999998, 5.7999999999999998, 4.9000000000000004, 79.299999999999997, 40.299999999999997, 80.799999999999997, 20., 52.899999999999999, 41.100000000000001, 28.600000000000001, 68., 41.899999999999999, 64.200000000000003, 91.5, 102.09999999999999, 51.799999999999997, 38.299999999999997, 19.800000000000001, 16.199999999999999, 50.200000000000003, 18.100000000000001, 15.699999999999999, 15.800000000000001, 12.800000000000001, 20., 13.4, 22.800000000000001, 10.1, 9.9000000000000004, 15., 36., 22.600000000000001, 22.899999999999999, 19.300000000000001, 9.5, 3.1000000000000001, 9.4000000000000004, 20.699999999999999, 4.4000000000000004, 2., 19.899999999999999, 16.800000000000001, 6.2000000000000002, 21.100000000000001, 19.899999999999999, 5.7000000000000002, 20., 3.6000000000000001, 141.09999999999999, 21.699999999999999, 160.5, 29.199999999999999, 22.600000000000001, 24.5, 0.40000000000000002, 13.300000000000001, 24.699999999999999, 22.199999999999999, 65.299999999999997, 17.600000000000001, 27.600000000000001, 9.6999999999999993, 26.600000000000001, 22., 19.699999999999999, 0.10000000000000001, 97.799999999999997, 0.10000000000000001, 18.100000000000001, 24., 13.5, 14.9, 12.9, 13.199999999999999, 81., 27.100000000000001, 29.199999999999999, 4.0999999999999996, 63.600000000000001, 11., 162.80000000000001, 3.8999999999999999, 11., 15.6, 13.699999999999999, 9.4000000000000004, 1.8, 11.9, 22.5, 25.899999999999999, 20.899999999999999, 34.600000000000001, 23., 23.800000000000001, 6.2999999999999998, 1., 10.1, 15.199999999999999, 47.700000000000003, 21.5, 24.100000000000001, 11.6, 9., 41.399999999999999, 24.199999999999999, 110.8, 50.700000000000003, 14.300000000000001, 17.399999999999999) ) , names = c("site", "freq", "mag", "depth", "dist") , 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") , class = "data.frame" ) "earthq.freq" <- structure(.Data = list("site" = 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., 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., 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., 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., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.) , "freq" = c(3.3999999999999999, 4.5999999999999996, 4.7999999999999998, 3., 5.9000000000000004, 7.4000000000000004, 10.4, 5.9000000000000004, 5.4000000000000004, 6.2000000000000002, 8.5, 4., 11.1, 1.2, 9.4000000000000004, 7.0999999999999996, 5.4000000000000004, 2.7999999999999998, 4.2000000000000002, 2.3999999999999999, 1.8999999999999999, 1.1000000000000001, 1.3999999999999999, 3.7999999999999998, 0.80000000000000004, 3.7999999999999998, 3.8999999999999999, 3.2999999999999998, 3.1000000000000001, 5., 3.3999999999999999, 5.5, 6., 3.8999999999999999, 4.0999999999999996, 4.7000000000000002, 1.3999999999999999, 0.90000000000000002, 3., 5.0999999999999996, 1.3, 6.0999999999999996, 1.2, 3.2000000000000002, 2.7000000000000002, 2.7999999999999998, 2.5, 5.5999999999999996, 3.8999999999999999, 3.6000000000000001, 2.7999999999999998, 3.7999999999999998, 1.1000000000000001, 0.80000000000000004, 2.2000000000000002, 2., 4.7999999999999998, 2.5, 4.4000000000000004, 8.8000000000000007, 8.1999999999999993, 9., 6.5999999999999996, 1.5, 6.4000000000000004, 6.7000000000000002, 5.7999999999999998, 8.5, 1.5, 9.5, 6.0999999999999996, 8.1999999999999993, 7.9000000000000004, 11.6, 10., 10.1, 6.5, 5.2000000000000002, 11.5, 9.9000000000000004, 10.300000000000001, 12.1, 10.199999999999999, 7.5, 7.4000000000000004, 7.7000000000000002, 8.5, 6.7000000000000002, 8.5, 1.8, 5.7000000000000002, 6.2000000000000002, 5.5999999999999996, 16.199999999999999, 6.5, 5.2000000000000002, 6.9000000000000004, 6.5, 11.199999999999999, 6.0999999999999996, 6.7999999999999998, 7.9000000000000004, 9.1999999999999993, 8.6999999999999993, 7.9000000000000004, 6.7000000000000002, 8.4000000000000004, 7.7000000000000002, 3.6000000000000001, 6., 6.7000000000000002, 17.199999999999999, 8.8000000000000007, 7.0999999999999996, 6.4000000000000004, 5., 6.4000000000000004, 7.5, 13.699999999999999, 3.3999999999999999, 6., 7.9000000000000004, 4., 7.2000000000000002, 6.9000000000000004, 11.199999999999999, 11.6, 4.0999999999999996, 6.5, 4.2000000000000002, 6.4000000000000004, 8.0999999999999996, 6.4000000000000004, 8.3000000000000007, 4.5999999999999996, 12.1, 5.9000000000000004, 4.9000000000000004, 6., 4.2999999999999998, 4.5, 5.2000000000000002, 1.3999999999999999, 11.699999999999999, 0.69999999999999996, 5.4000000000000004, 12.4, 6.5999999999999996) , "mag" = c(6.0999999999999996, 5.9000000000000004, 5.7000000000000002, 6.2999999999999998, 5.5, 4.7999999999999998, 4.2000000000000002, 5.0999999999999996, 5.5999999999999996, 4.9000000000000004, 4.4000000000000004, 5., 3.6000000000000001, 6.2000000000000002, 4.7000000000000002, 5.0999999999999996, 4.9000000000000004, 6.4000000000000004, 6.5999999999999996, 6.4000000000000004, 6.5999999999999996, 6.9000000000000004, 6.7999999999999998, 5.5, 6.2999999999999998, 5.9000000000000004, 6., 6.2999999999999998, 5.9000000000000004, 6., 6.5, 5.7999999999999998, 5.7000000000000002, 6.2999999999999998, 5.2999999999999998, 5.5, 6.5, 6.5999999999999996, 6.2000000000000002, 5., 6.2000000000000002, 4.9000000000000004, 7., 5.7999999999999998, 6.2000000000000002, 5.7999999999999998, 5.7000000000000002, 5.2999999999999998, 5.2000000000000002, 5.5999999999999996, 4.7999999999999998, 5.5, 5., 5., 5.5, 4.9000000000000004, 5.2999999999999998, 4.4000000000000004, 5.2999999999999998, 5., 4.7999999999999998, 4.0999999999999996, 4.7999999999999998, 5.2000000000000002, 3.8999999999999999, 4.5, 4.2999999999999998, 4.0999999999999996, 4.7999999999999998, 4.2000000000000002, 4.9000000000000004, 4.0999999999999996, 4.2999999999999998, 3.6000000000000001, 3.6000000000000001, 3.1000000000000001, 4.2000000000000002, 4.4000000000000004, 3.2000000000000002, 4., 4.0999999999999996, 3.2999999999999998, 3.7000000000000002, 4.5, 4.5999999999999996, 4.2000000000000002, 4.5, 5.2999999999999998, 4.4000000000000004, 5.2999999999999998, 4.7000000000000002, 4.7000000000000002, 4.5, 3.7999999999999998, 4.0999999999999996, 4.7999999999999998, 4.2000000000000002, 4.7000000000000002, 3.7999999999999998, 4.5, 4.5999999999999996, 3.1000000000000001, 4., 3.8999999999999999, 4.5, 5., 3.7999999999999998, 4.4000000000000004, 4.5999999999999996, 4.5999999999999996, 4.0999999999999996, 3.5, 3.8999999999999999, 4.5999999999999996, 4., 4.9000000000000004, 4.2999999999999998, 4.7999999999999998, 3.2999999999999998, 5.5, 4.9000000000000004, 3.7000000000000002, 5., 5., 4.4000000000000004, 3.2999999999999998, 4.5999999999999996, 5.7000000000000002, 5., 5.0999999999999996, 4.7000000000000002, 4.5, 4.2999999999999998, 3.2000000000000002, 4.7999999999999998, 3.7999999999999998, 4.7999999999999998, 4.9000000000000004, 4.7999999999999998, 5.0999999999999996, 4.5999999999999996, 4.7999999999999998, 5.2000000000000002, 4.0999999999999996, 5.7999999999999998, 4.9000000000000004, 3.6000000000000001, 4.7999999999999998) , "depth\n" = c(8.1999999999999993, 62.100000000000001, 59.299999999999997, 11.1, 76.599999999999994, 7.0999999999999996, 11.199999999999999, 68.5, 1.5, 0.10000000000000001, 0.29999999999999999, 0.20000000000000001, 3.6000000000000001, 3.2999999999999998, 0.80000000000000004, 10., 8., 27.300000000000001, 97.400000000000006, 1.2, 14.800000000000001, 25., 18., 58.799999999999997, 10.300000000000001, 5.9000000000000004, 8.6999999999999993, 60.700000000000003, 4.0999999999999996, 5.2999999999999998, 3.2999999999999998, 1.3, 8., 6.0999999999999996, 1.7, 73.799999999999997, 10.199999999999999, 15.800000000000001, 21.800000000000001, 2., 1.6000000000000001, 2.2999999999999998, 13., 98., 27.800000000000001, 70.099999999999994, 30.600000000000001, 0.5, 34.5, 62.5, 22., 34.299999999999997, 2.8999999999999999, 1.1000000000000001, 0.80000000000000004, 4.2000000000000002, 24.199999999999999, 1.3, 2.8999999999999999, 10.300000000000001, 16.800000000000001, 11.699999999999999, 24.800000000000001, 1.1000000000000001, 4.0999999999999996, 18.699999999999999, 0.59999999999999998, 17.899999999999999, 0.59999999999999998, 14.300000000000001, 14.9, 1.7, 10.699999999999999, 1.5, 3.7000000000000002, 2.8999999999999999, 26.800000000000001, 2., 6.5999999999999996, 10.1, 9.8000000000000007, 4.5, 13.5, 23.899999999999999, 21.800000000000001, 13.300000000000001, 17.899999999999999, 83.299999999999997, 12.5, 24., 6.5, 11.4, 16.300000000000001, 6.5999999999999996, 8.8000000000000007, 9.9000000000000004, 15., 34.600000000000001, 8.0999999999999996, 7.5999999999999996, 29.300000000000001, 4.7999999999999998, 12., 4.9000000000000004, 4., 35.899999999999999, 6.0999999999999996, 16.699999999999999, 1., 30.600000000000001, 34.299999999999997, 16.100000000000001, 12.1, 40.700000000000003, 27.399999999999999, 24.5, 22.300000000000001, 68., 12.6, 47.200000000000003, 22.600000000000001, 24.800000000000001, 24.199999999999999, 24.199999999999999, 27.300000000000001, 15.5, 15.300000000000001, 8.4000000000000004, 25., 3.2999999999999998, 19., 12.6, 4.5999999999999996, 7.2999999999999998, 22.699999999999999, 13.4, 28.600000000000001, 57.799999999999997, 12.800000000000001, 30., 11.699999999999999, 15.699999999999999, 51.399999999999999, 19.100000000000001, 17.600000000000001, 33.200000000000003, 19., 20.199999999999999) , "dist" = c(45.299999999999997, 10.1, 12.6, 30.199999999999999, 17.399999999999999, 7., 9.8000000000000007, 21.600000000000001, 32.100000000000001, 2.2000000000000002, 4., 23.100000000000001, 3.1000000000000001, 85.299999999999997, 10.9, 7.5, 22.5, 116.59999999999999, 115.8, 35.399999999999999, 118.40000000000001, 115.3, 98.900000000000006, 5.5999999999999996, 134.90000000000001, 49.299999999999997, 35.399999999999999, 29.300000000000001, 48.299999999999997, 48.200000000000003, 44.899999999999999, 34.399999999999999, 4.7000000000000002, 46.600000000000001, 29.800000000000001, 12.800000000000001, 22.199999999999999, 67.900000000000006, 70.900000000000006, 5.2999999999999998, 5.7999999999999998, 4.9000000000000004, 79.299999999999997, 40.299999999999997, 80.799999999999997, 20., 52.899999999999999, 41.100000000000001, 28.600000000000001, 68., 41.899999999999999, 64.200000000000003, 91.5, 102.09999999999999, 51.799999999999997, 38.299999999999997, 19.800000000000001, 16.199999999999999, 50.200000000000003, 18.100000000000001, 15.699999999999999, 15.800000000000001, 12.800000000000001, 20., 13.4, 22.800000000000001, 10.1, 9.9000000000000004, 15., 36., 22.600000000000001, 22.899999999999999, 19.300000000000001, 9.5, 3.1000000000000001, 9.4000000000000004, 20.699999999999999, 4.4000000000000004, 2., 19.899999999999999, 16.800000000000001, 6.2000000000000002, 21.100000000000001, 19.899999999999999, 5.7000000000000002, 20., 3.6000000000000001, 141.09999999999999, 21.699999999999999, 160.5, 29.199999999999999, 22.600000000000001, 24.5, 0.40000000000000002, 13.300000000000001, 24.699999999999999, 22.199999999999999, 65.299999999999997, 17.600000000000001, 27.600000000000001, 9.6999999999999993, 26.600000000000001, 22., 19.699999999999999, 0.10000000000000001, 97.799999999999997, 0.10000000000000001, 18.100000000000001, 24., 13.5, 14.9, 12.9, 13.199999999999999, 81., 27.100000000000001, 29.199999999999999, 4.0999999999999996, 63.600000000000001, 11., 162.80000000000001, 3.8999999999999999, 11., 15.6, 13.699999999999999, 9.4000000000000004, 1.8, 11.9, 22.5, 25.899999999999999, 20.899999999999999, 34.600000000000001, 23., 23.800000000000001, 6.2999999999999998, 1., 10.1, 15.199999999999999, 47.700000000000003, 21.5, 24.100000000000001, 11.6, 9., 41.399999999999999, 24.199999999999999, 110.8, 50.700000000000003, 14.300000000000001, 17.399999999999999) ) , names = c("site", "freq", "mag", "depth\n", "dist") , 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") , class = "data.frame" ) "exp.ex" <- c(" ", "****************************************************", "dexp(x,beta=3) evaluates exponential density with mean=3 at x", "pexp(x,beta=3) evaluates exponential dist. fn. with mean=3 at x", "qexp(px,beta=3) evaluates exponential quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qexp(px,beta=3) ", " [1] 0.1538799 2.0794415 8.9871968 ", " ", "rexp(50,beta=3) generates 50 independent exponential r.v.'s", " ", "****************************************************") "flame" <- structure(.Data = list("intense" = c(10.6, 12.5, 10.199999999999999, 13.800000000000001, 8.0999999999999996, 12.1, 14., 7.2000000000000002, 7., 6.5) , "mix" = structure(.Data = c(1, 1, 1, 2, 2, 2, 2, 3, 3, 3) , levels = c("A", "B", "C") , class = "factor" ) ) , names = c("intense", "mix") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10") , class = "data.frame" ) "ftp.exp" <- structure(.Data = list("size" = c(1283., 1255., 21463., 21463., 367343., 367037.) , "time" = c(0.20599999999999999, 0.84799999999999998, 1.4279999999999999, 8., 14., 158.) , "loc" = c(0., 1., 0., 1., 0., 1.) ) , names = c("size", "time", "loc") , row.names = c("1", "2", "3", "4", "5", "6") , class = "data.frame" ) "gam.ex" <- c(" ", "****************************************************", "dgam(x,alpha=2,beta=3) evaluates gamma density at x", "pgam(x,alpha=2,beta=3) evaluates gamma dist. fn. at x", "qgam(px,alpha=2,beta=3) evaluates gamma quantile fn. at px", " For example, ", " > px <- c(.05,.5,.95) ", " > qgam(px,alpha=2,beta=3) ", " [1] 1.066085 5.035041 14.231594", " ", "rgam(50,alpha=2,beta=3) generates 50 independent gamma r.v.'s", " ", "****************************************************") "global.temp" <- structure(.Data = list("year" = c(1861., 1862., 1863., 1864., 1865., 1866., 1867., 1868., 1869., 1870., 1871., 1872., 1873., 1874., 1875., 1876., 1877., 1878., 1879., 1880., 1881., 1882., 1883., 1884., 1885., 1886., 1887., 1888., 1889., 1890., 1891., 1892., 1893., 1894., 1895., 1896., 1897., 1898., 1899., 1900., 1901., 1902., 1903., 1904., 1905., 1906., 1907., 1908., 1909., 1910., 1911., 1912., 1913., 1914., 1915., 1916., 1917., 1918., 1919., 1920., 1921., 1922., 1923., 1924., 1925., 1926., 1927., 1928., 1929., 1930., 1931., 1932., 1933., 1934., 1935., 1936., 1937., 1938., 1939., 1940., 1941., 1942., 1943., 1944., 1945., 1946., 1947., 1948., 1949., 1950., 1951., 1952., 1953., 1954., 1955., 1956., 1957., 1958., 1959., 1960., 1961., 1962., 1963., 1964., 1965., 1966., 1967., 1968., 1969., 1970., 1971., 1972., 1973., 1974., 1975., 1976., 1977., 1978., 1979., 1980., 1981., 1982., 1983., 1984., 1985., 1986., 1987., 1988., 1989.) , "temp" = c(-0.34000000000000002, -0.46999999999999997, -0.23999999999999999, -0.37, -0.14999999999999999, -0.14999999999999999, -0.20999999999999999, -0.17999999999999999 , -0.20000000000000001, -0.27000000000000002, -0.32000000000000001, -0.20000000000000001, -0.26000000000000001, -0.34999999999999998, -0.35999999999999999 , -0.39000000000000001, -0.11, -0.070000000000000007, -0.29999999999999999, -0.27000000000000002, -0.23999999999999999, -0.25 , -0.31, -0.37, -0.32000000000000001, -0.23000000000000001, -0.33000000000000002, -0.26000000000000001, -0.14999999999999999, -0.34999999999999998 , -0.29999999999999999, -0.34000000000000002, -0.37, -0.33000000000000002, -0.28000000000000003, -0.12, -0.089999999999999997, -0.26000000000000001, -0.16, -0.070000000000000007, -0.17000000000000001, -0.29999999999999999, -0.40999999999999998, -0.45000000000000001, -0.32000000000000001, -0.23999999999999999 , -0.41999999999999998, -0.44, -0.37, -0.34999999999999998, -0.38, -0.31, -0.34000000000000002, -0.17999999999999999, -0.070000000000000007, -0.31, -0.46999999999999997, -0.38, -0.27000000000000002, -0.23000000000000001, -0.22, -0.31, -0.27000000000000002, -0.28999999999999998, -0.20999999999999999, -0.040000000000000001 , -0.13, -0.16, -0.29999999999999999, -0.12, -0.040000000000000001, -0.11, -0.17999999999999999, -0.11, -0.13, -0.089999999999999997, 0.029999999999999999, 0.070000000000000007, -0.040000000000000001, -0.029999999999999999, 0.059999999999999998, 0.040000000000000001, 0.02, 0.17999999999999999, 0.089999999999999997, -0.080000000000000002, -0.070000000000000007, -0.080000000000000002, -0.070000000000000007, -0.12, -0.01, 0.070000000000000007, 0.11, -0.12, -0.14000000000000001, -0.19, 0.089999999999999997, 0.13, 0.070000000000000007, 0.029999999999999999, 0.089999999999999997, 0.070000000000000007, 0.089999999999999997, -0.16, -0.14000000000000001, -0.02, -0.029999999999999999, -0.059999999999999998, 0.10000000000000001, 0.029999999999999999, -0.14000000000000001, 0.02, 0.11, -0.11, -0.11, -0.17999999999999999, 0.080000000000000002, 0.01, 0.11, 0.14999999999999999, 0.17000000000000001, 0.12, 0.27000000000000002, 0.11, 0.080000000000000002, 0.14000000000000001, 0.28999999999999998, 0.28999999999999998, 0.23000000000000001) ) , names = c("year", "temp") , 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") , class = "data.frame" ) "hplot.ex" <- c(" ", "****************************************************", " ", "hplot(x) makes histogram of data set x", "hplot(x,col=0) makes bars clear (col=color)", "hplot(x,nclass=12) makes number of bars = 12", "hplot(x,limits=c(2,10)) makes bars only in [2,10],thus", " thus some points may be excluded", " ", "Titles and lines and points may be added to an hplot.", "If you want actual counts in the cells, use hist(x,plot=F).", "See Also: plot, bplot (boxplot), lplot (label plot),", "mplot (means plot), lines, points", " ", "****************************************************") "hugo" <- structure(.Data = list("dew" = c(250., 285., 230., 295., 255., 320., 140., 225., 155., 100., 320., 195., 150., 125., 210., 195., 205., 260., 275., 275., 170., 225., 150., 80., 230., 155., 100., 50., 200., 145., 120., 125., 180., 190., 220., 245., 205., 230., 190., 315., 245., 185., 130., 95., 225., 160., 95., 30., 50., 95., 30., 45., 115., 100., 150., 200., 195., 345., 300., 370., 300., 230., 160., 320., 250., 190., 130., 95., 225., 185., 160., 160., 250., 225., 230., 255., 285., 280., 310., 295., 245., 210., 200., 150., 120., 125., 160., 55., 70., 125., 110., 190., 260., 470., 320., 255., 300., 235., 165., 100., 295., 225., 150., 80., 10., 40., 115., 65., 75., 130., 135., 145., 175., 230., 290., 205., 235., 300., 330., 380., 425., 480., 365., 175., 155., 200., 275., 280., 450., 220., 240., 220., 280., 225., 175., 150., 150., 85., 85., 130., 185., 30., 100., 160., 105., 170., 245., 310., 200., 300., 355., 390., 490., 345., 185., 125., 100., 30., 45., 110., 145., 245., 300., 440.) , "hpd" = c(3., 2., 3., 2., 2., 3., 3., 3., 8., 9., 2., 3., 4., 5., 4., 8., 5., 2., 2., 1., 3., 2., 8., 14., 4., 7., 10., 11., 5., 7., 11., 3., 2., 2., 3., 2., 2., 2., 5., 2., 6., 10., 8., 13., 15., 10., 5., 30., 13., 3., 4., 8., 6., 7., 2., 4., 15., 5., 3., 2., 5., 12., 2., 1., 5., 2., 1., 5., 3., 4., 5., 8., 3., 2., 2., 1., 3., 2., 2., 2., 2., 2., 28., 25., 4., 4., 5., 10., 15., 4., 4., 6., 1., 1., 1., 10., 3., 9., 2., 7., 5., 5., 1., 2., 10., 14., 3., 13., 9., 3., 3., 3., 3., 2., 1., 10., 5., 3., 1., 5., 3., 3., 2., 5., 2., 7., 3., 1., 1., 2., 1., 2., 3., 6., 10., 7., 3., 3., 4., 6., 3., 18., 16., 5., 15., 3., 3., 1., 2., 5., 2., 1., 1., 2., 2., 3., 5., 20., 21., 7., 12., 3., 2., 3.) , "region" = c(1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 2., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 2., 2., 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., 3., 3., 3., 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., 3., 3., 3., 3., 3., 3., 3., 1., 1., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 2., 3., 3., 3., 3., 3., 3., 3., 3., 3., 3., 3.) ) , names = c("dew", "hpd", "region") , 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", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164") , class = "data.frame" ) "jet" <- 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") , "force" = c(0.099199999999999997, 0.070800000000000002, 0.075399999999999995, 0.069000000000000006, 0.48749999999999999, 0.44280000000000003, 0.50390000000000001, 0.37, 0.083000000000000004, 0.058099999999999999, 0.067699999999999996, 0.049799999999999997, 0.4864, 0.39079999999999998, 0.48670000000000002, 0.37259999999999999) , "order" = c(11., 5., 12., 8., 3., 2., 9., 6., 7., 15., 1., 4., 10., 16., 14., 13.) ) , names = c("act", "press", "force", "order") , row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16") , class = "data.frame" ) "lab3.sequence1" <- c(0., 0., 1., 1., 0., 1., 1., 1., 1., 0., 1., 0., 1., 0., 1., 1., 0., 0., 1., 1., 1., 1., 0., 1., 0., 0., 1., 1., 0., 1., 1., 1., 0., 1., 1., 1., 0., 0., 1., 1., 0., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 0., 1., 1., 0., 0., 1., 0., 0., 1., 1., 1., 1., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 0., 0., 1., 0., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 0., 0., 1., 0., 0., 1., 0., 1., 1., 1., 1., 1., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 0., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 0., 0., 1., 1., 1., 1., 0., 1., 0., 1., 1., 0., 1., 1., 0., 0., 1., 1., 1., 1., 0., 1., 1., 0., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 1., 0., 0., 1., 1., 1., 0., 0., 0., 1., 1., 1., 1., 0., 1., 1., 0., 0., 0., 1., 1., 1., 1., 1., 1., 1., 0., 0., 1., 1., 0., 0., 1., 0., 1., 0., 0., 0., 0., 0., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 0., 1., 0., 1., 1., 0., 1., 0., 0., 1., 1., 0., 1., 0., 1., 1., 0., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 0., 0., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 0., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 0., 0., 0., 1., 1., 1., 0., 1., 1., 1., 1., 1., 0., 1., 0., 0., 0., 1., 0., 1., 0., 1., 0., 0., 0., 0., 0., 1., 0., 1., 1., 1., 1., 0., 1., 1., 0., 1., 1., 1., 0., 1., 0., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 0., 0., 0., 1., 0., 0., 0., 1., 0., 1., 1., 0., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 0., 0., 1., 1., 1.) "lab3.sequence2" <- c(0., 0., 1., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 1., 0., 1., 0., 0., 0., 0., 1., 1., 0., 1., 0., 0., 0., 0., 0., 0., 1., 0., 0., 1., 1., 0., 0., 0., 0., 0., 0., 1., 1., 0., 0., 0., 1., 0., 1., 1., 0., 1., 0., 0., 0., 1., 0., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 1., 1., 1., 0., 0., 1., 0., 1., 0., 1., 0., 1., 1., 1., 1., 0., 0., 0., 1., 1., 1., 0., 0., 0., 0., 0., 0., 1., 0., 1., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 1., 1., 0., 1., 0., 0., 0., 1., 1., 0., 1., 0., 0., 0., 0., 0., 0., 1., 1., 1., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 1., 1., 1., 1., 0., 1., 1., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 1., 0., 0., 0., 1., 0., 0., 0., 1., 0., 0., 0., 1., 1., 0., 0., 0., 0., 1., 0., 1., 1., 1., 0., 1., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 1., 0., 0., 0., 1., 1., 0., 0., 0., 0., 1., 0., 0., 0., 0., 1., 0., 0., 1., 1., 0., 1., 0., 0., 0., 0., 1., 0., 0., 1., 0., 0., 1., 1., 1., 0., 1., 0., 1., 1., 1., 1., 0., 1., 0., 1., 1., 0., 0., 1., 1., 1., 0., 0., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 1., 0., 1., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 0., 0., 1., 1., 1., 0., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 0., 1., 1., 1., 0., 1., 1., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 0., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 0., 1., 0., 1., 1., 1., 1., 0., 0., 1., 1., 1., 1., 0., 1., 1., 1., 0., 1., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 1., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 0., 1., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 1., 1., 0., 0., 1., 0., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 0., 1., 1., 1., 1., 1., 1., 1., 1., 0.) "lab4.dat" <- c(0.70226500798567693, 0.18443182847791978, 0.13933880931566239, 0.078979548511307757, 0.63996253784502155, 0.25014174568310288, 0.11744242614996955, 0.23214597198855827, 0.67209487545981295, 0.048238956329456358, 0.64715649464365221, 0.077065635270441635, 0.48307412715359443, 0.099659371449997439, 1.1241086137016709, 0.044436708563276681, 1.1364300238689014, 0.37883677653922276, 0.91510456964336506, 0.12465683536470369, 0.16491606510596593, 0.088514386764533076, 0.060378644082651443, 0.69449127972328795, 0.59894285526274071, 0.46700125754411792, 0.10096779217208147, 0.44684071799033109, 0.92246505050114203, 0.28748161361254676, 0.072427566017419398, 0.25647934538478612, 0.61965418752074441, 0.32916283543722574, 0.25786622608421128, 1.1652745497238688, 0.34094225193208361, 0.073653167327214705, 0.77584183820118879, 0.11722971495324612, 0.36055039784745757, 0.048851363370359197, 0.92181343534808191, 0.084060426708665953, 0.11044890216343087, 0.69096899062639072, 0.04196867023882609, 0.10271791835484376, 0.094376448381121428, 0.050255069715208787, 0.38795548054508544, 0.023106589187868766, 0.075040001407097059, 0.19457697701042426, 0.18456345674543662, 0.092461334021653879, 0.43233832852676202, 0.42519346418526444, 0.42420008731699443, 0.23541670688637878, 0.46821999259980895, 0.33558950454194802, 0.43496678247411324, 0.15314061321823544, 1.0140159709522281, 0.069318419770893064, 0.38464866992102648, 0.62832645607422333, 0.64584069225007412, 0.26813075573169359, 0.1165369343691173, 0.10254267144827758, 0.58208723281393981, 0.14144831246883022, 0.28758242657958882, 0.065040627402770085, 0.74587060645202108, 0.059836677413898788, 0.34718469106320937, 0.25826067962923938, 0.082848776945513125, 0.20491826992918977, 0.72932912340369582, 0.62505802506675645, 1.3739317926773589, 0.081845830558010021, 0.12177699508194954, 0.21198791888693772, 0.16539291485360474, 0.0071494692459062297, 0.17676957718177005, 0.030987391040811506, 0.13715066222482342, 0.1811303502501575, 0.67293746337741056, 0.28298922447749819, 0.53514195210881277, 0.25800232533468298, 0.09522811979981298, 0.15739499480001087, 0.33551948160333095, 1.114914028600688, 0.025409670909610327, 0.75407919978293869, 0.29384386694833575, 0.94568235649130428, 0.25143379300895724, 0.32589432958761538, 0.74262159214963974, 0.064076101279448308, 0.33530681072668717, 0.30271540836765576, 1.1943226150069439, 0.055106849223590347, 0.015310493239129228, 0.13946963578369875, 0.018207060008636644, 0.025285768068878989, 0.058370440204540616, 0.35222788697445845, 0.010441602022911325, 0.72435027590322953, 0.19795657881022138, 0.63252174785068094, 0.27628777280986999, 0.37124970063420965, 0.19454329774403656, 0.17670497413752673, 0.081811021812527945, 0.34696494710520381, 0.24626389602001128, 1.676132260206773, 0.63398555282428626, 0.32654868050323616, 0.56661635826251522, 0.7426405803476418, 0.28391305177667547, 0.07411297431099427, 0.22634350098066286, 0.44092008157291052, 0.059116499797032873, 0.51895964120642579, 0.029133120469786451, 0.2384055816053901, 0.18201676396930125, 0.21200374189501564, 1.3288393912877265, 0.30234216283873872, 0.070192808108552829, 0.14221179989959823, 0.12031222363786727, 0.08314422457792317, 0.05604785521107862, 0.36059557386851504, 0.34138062698111671, 0.041096732420071218, 0.50897884636054846, 0.1374616282912508, 1.028409777808754, 0.28154744047483493, 0.36312036368612627, 0.28405954108505782, 0.014240052481846852, 0.070293075329846744, 0.33912216444642401, 0.56160515676437406, 0.020217057694278822, 0.30626633767180866, 0.092532021327038083, 0.42981295424320126, 0.0056961133267666312, 0.59196555927669392, 0.27419656730684927, 0.025351250986804102, 0.10012209798947388, 1.5246021338286941, 0.42461733678758379, 1.5218068712430441, 1.121208649534815, 0.16141084839709163, 0.75831377814571932, 0.79016283454025094, 0.3324342089506836, 1.5884768256732917, 0.12011262015404038, 0.088219585626159364, 0.40212698296094829, 0.05962762899039814, 0.3295832068654001, 0.043134083459459925, 0.12935520404220427, 0.32725215316517231, 0.17374380127512778, 0.27041153861153505, 0.19069165550374215, 0.23232959394317917, 0.69689426341066196, 0.040910229196348777, 0.063658137057954603, 0.14233154873263637) "lines.ex" <- c(" ", "****************************************************", " ", "plot(x,y) ", "lines(x2,y2) adds lines to existing plot; if x2 is", " not a subset of x, you will get a ", " message about points out of bounds. ", " ", "****************************************************")