ISI data

class: center, middle, inverse, title-slide

# ISI data
## Scrape code
###

---

---

count: false

.panel1-txt-auto[

```r
# identify txt in in html page
*readLines("http://www.isi-stats.com/isi/data.html")
```
]
 
.panel2-txt-auto[

```
 [1] "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">" 
 [2] "<html><head>" 
 [3] "" 
 [4] "" 
 [5] " " 
 [6] " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\"><title>Data Sets and Links</title>" 
 [7] "" 
 [8] "" 
 [9] " " 
 [10] "" 
 [11] " " 
 [12] " " 
 [13] " <style type=\"text/css\">" 
 [14] "" 
 [35] " </style></head><body>" 
 [36] "<table style=\"text-align: left; margin-left: auto; margin-right: auto; background-color: rgb(17, 101, 167);\" cellpadding=\"10\" cellspacing=\"0\" cols=\"1\" width=\"95%\">" 
 [37] "" 
 [38] " <tbody>" 
 [39] " <tr>" 
 [40] " <td>" 
 [41] " <center style=\"color: rgb(255, 255, 0);\">Introduction" 
 [42] "to Statistical" 
 [43] "Investigations " 
 [44] " by " 
 [45] " </center>" 
 [46] " <div align=\"center\">Nathan Tintle, Beth Chance, George" 
 [47] "Cobb, Allan Rossman, Soma" 
 [48] "Roy, Todd Swanson, and" 
 [49] "Jill" 
 [50] "VanderStoep " 
 [51] " " 
 [52] " <big>DATA" 
 [53] "SETS</big><big>&nbsp;</big>" 
 [54] " <center></center>" 
 [55] " </div>" 
 [56] " </td>" 
 [57] " </tr>" 
 [58] " </tbody>" 
 [59] "</table>" 
 [60] "" 
 [61] " " 
 [62] " " 
 [63] "" 
 [64] " " 
 [65] "" 
 [66] "<table align=\"center\" bgcolor=\"#ffffcc\" border=\"1\" cellpadding=\"10\" cellspacing=\"2\" width=\"85%\">" 
 [67] "" 
 [68] " <tbody>" 
 [69] " <tr>" 
 [70] " <td style=\"font-family: helvetica,arial,sans-serif;\" align=\"left\" valign=\"top\" width=\"50%\"><big><big>Examples" 
 [71] "and" 
 [72] "Explorations</big></big> " 
 [73] " " 
 [74] "Preliminaries " 
 [75] " <ul>" 
 [76] " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OrganDonor.txt\">Example" 
 [77] "P.1: OrganDonor</a></li>" 
 [78] " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OldFaithful1.txt\">Example" 
 [79] "P.2:" 
 [80] "OldFaithful-1</a></li>" 
 [81] " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OldFaithful2.txt\">Example" 
 [82] "P.2:" 
 [83] "OldFaithful-2</a></li>" 
 [84] " <li><a href=\"http://www.rossmanchance.com/applets/MontyHall/Monty04.html\" target=\"_blank\">Exploration" 
 [85] "P.3: Monty Hall Applet</a> " 
 [86] " </li>" 
 [87] " </ul>" 
 [88] " Chapter 2" 
 [89] " <ul>" 
 [90] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap3/CollegeMidwest.txt\">Example" 
 [91] "2.1: CollegeMidwest</a></li>" 
 [92] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap3/GettysburgAddress.txt\">Exploration" 
 [93] "2.1A: GettysburgAddress</a></li>" 
 [94] " <li class=\"style6\"><a href=\"http://www.random.org/\" target=\"_blank\">Exploration" 
 [95] "2.1A: Random Number Applet</a> " 
 [96] " </li>" 
 [97] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap2/TimeEstimate.txt\">Example" 
 [98] "2.2: TimeEstimate</a></li>" 
 [99] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap3/TimePopulation.txt\">Example" 
[100] "2.2: TimeEstPopulation</a></li>" 
[101] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt\">Exploration" 
[102] "2.2: SleepTimes</a> " 
[103] " </li>" 
[104] " </ul>" 
[105] " Chapter 3" 
[106] " <ul>" 
[107] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/UsedCars.txt\">Example" 
[108] "3.3:" 
[109] "UsedCars</a></li>" 
[110] " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt\">Exploration" 
[111] "3.3: SleepTimes</a> " 
[112] " </li>" 
[113] " </ul>" 
[114] " Chapter 5 " 
[115] " " 
[116] " <ul>" 
[117] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/GoodandBad.txt\">Example" 
[118] "5.1: GoodandBad</a></li>" 
[119] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/Gilbert.txt\">Exploration" 
[120] "5.1: Gilbert</a></li>" 
[121] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/Dolphin.txt\">Example" 
[122] "5.2: Dolphins</a></li>" 
[123] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/Yawning.txt\">Exploration" 
[124] "5.2: Yawning</a></li>" 
[125] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/Smoking.txt\">Example" 
[126] "5.3: Smoking</a></li>" 
[127] " <li><a href=\"http://www.isi-stats.com/isi/data/chap5/Blood.txt\">Exploration" 
[128] "5.3: Blood</a> " 
[129] " </li>" 
[130] " </ul>" 
[131] " Chapter 6" 
[132] " <ul>" 
[133] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/OldFaithful.txt\">Example" 
[134] "6.1:" 
[135] "OldFaithful</a></li>" 
[136] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Haircuts.txt\">Exploration" 
[137] "6.1A: Haircuts</a></li>" 
[138] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/BikeTimes.txt\">Example" 
[139] "6.2: BikeTimes</a></li>" 
[140] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Sleep.txt\">Exploration" 
[141] "6.2: Sleep</a></li>" 
[142] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/BreastFeedIntell.txt\">Example" 
[143] "6.3:" 
[144] "BreastFedIntell</a></li>" 
[145] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/CloseFriends.txt\">Exploration" 
[146] "6.3:" 
[147] "CloseFriends</a></li>" 
[148] " </ul>" 
[149] " Chapter 7 " 
[150] " <ul>" 
[151] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/FirstBase.txt\">Example" 
[152] "7.2: FirstBase</a></li>" 
[153] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/JJvsBicycle.txt\">Exploration" 
[154] "7.2:" 
[155] "JJvsBicycle</a></li>" 
[156] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/BowlsMMs.txt\">Example" 
[157] "7.3: BowlsMMs</a></li>" 
[158] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Auction.txt\">Exploration" 
[159] "7.3: Auction</a></li>" 
[160] " </ul>" 
[161] " Chapter 8 " 
[162] " <ul>" 
[163] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Stop.txt\">Example" 
[164] "8.1: Stop</a></li>" 
[165] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/OrganDonor.txt\">Exploration" 
[166] "8.1:" 
[167] "OrganDonor</a></li>" 
[168] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Acupuncture.txt\">Example" 
[169] "8.2:" 
[170] "Acupuncture</a></li>" 
[171] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Towels.txt\">Exploration" 
[172] "8.2A: Towels</a></li>" 
[173] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/NightLight1.txt\">Exploration" 
[174] "8.2B:" 
[175] "NightLight1</a></li>" 
[176] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/NightLight2.txt\">Exploration" 
[177] "8.2B:" 
[178] "NightLight2</a> " 
[179] " </li>" 
[180] " </ul>" 
[181] " Chapter 9 " 
[182] " <ul>" 
[183] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Comprehension.txt\">Example" 
[184] "9.1:" 
[185] "Comprehension</a></li>" 
[186] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Brain.txt\">Exploration" 
[187] "9.1: Brain</a></li>" 
[188] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Recall.txt\">Example" 
[189] "9.2: Recall</a></li>" 
[190] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Diets.txt\">Exploration" 
[191] "9.2: Diets</a> " 
[192] " </li>" 
[193] " </ul>" 
[194] " Chapter 10 " 
[195] " <ul>" 
[196] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/ExamTimesScores.txt\">Example" 
[197] "10.1:" 
[198] "ExamTimesScores</a></li>" 
[199] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/PlateSize.txt\">Exploration" 
[200] "10.1:" 
[201] "PlateSize</a> " 
[202] " </li>" 
[203] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/ExerciseMood.txt\">Example" 
[204] "10.2:" 
[205] "ExerciseMood</a> " 
[206] " </li>" 
[207] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/DraftLottery.txt\">Exploration" 
[208] "10.2:" 
[209] "DraftLottery</a> </li>" 
[210] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/PlateSize.txt\">Example" 
[211] "10.3: PlateSize</a></li>" 
[212] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/FootHeight.txt\">Exploration" 
[213] "10.3:" 
[214] "FootHeight</a> </li>" 
[215] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/GPA.txt\">Example" 
[216] "10.4: GPA</a></li>" 
[217] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Handwidth.txt\">Exploration" 
[218] "10.4:" 
[219] "Handwidth</a> </li>" 
[220] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/TempHeart.txt\">Example" 
[221] "10.5A: TempHeart</a></li>" 
[222] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/AlcoholSmoke.txt\">Example" 
[223] "10.5B:" 
[224] "AlcoholSmoke</a></li>" 
[225] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Facebook.txt\">Exploration" 
[226] "10.5:" 
[227] "Facebook</a> " 
[228] " </li>" 
[229] " </ul>" 
[230] " </td>" 
[231] " <td style=\"font-family: helvetica,arial,sans-serif;\" align=\"left\" valign=\"top\" width=\"50%\"><big><big>Exercises" 
[232] "and" 
[233] "Investigations " 
[234] " </big></big> " 
[235] "Chapter 2 " 
[236] " <ul>" 
[237] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/HaircutCosts.txt\">HaircutCosts</a></li>" 
[238] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/FemaleTemp.txt\">FemaleTemp</a></li>" 
[239] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/MaleTemp.txt\">MaleTemp</a></li>" 
[240] " </ul>" 
[241] " <div style=\"margin-left: 40px;\">AP" 
[242] "Data " 
[243] " </div>" 
[244] " <ul>" 
[245] " <li><a href=\"http://www.isi-stats.com/isi/data/chap2/PredictedScore.txt\">PredictedScore</a></li>" 
[246] " <li><a href=\"http://www.isi-stats.com/isi/data/chap2/UnderwaterWeights.txt\">UnderwaterWeights</a></li>" 
[247] " <li><a href=\"http://www.isi-stats.com/isi/data/chap2/DriveThru.txt\">DriveThru</a><a href=\"http://www.isi-stats.com/isi/data/chap2/DriveThru.txt\"> " 
[248] " </a></li>" 
[249] " </ul>" 
[250] " Chapter 3 " 
[251] " " 
[252] " <ul>" 
[253] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/SnakeAge.txt\">SnakeAge</a></li>" 
[254] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/FemaleTemp.txt\">FemaleTemp</a></li>" 
[255] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/MaleTemp.txt\">MaleTemp</a></li>" 
[256] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/Hockey.txt\">Hockey</a></li>" 
[257] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/Hockey2.txt\">Hockey2</a> " 
[258] " </li>" 
[259] " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/MarriageAges.txt\">MarriageAges</a> " 
[260] " </li>" 
[261] " </ul>" 
[262] " Chapter 6" 
[263] " <ul>" 
[264] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Candybars.txt\">Candybars</a></li>" 
[265] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/CarCrashExercise.txt\">CarCrashExercise</a></li>" 
[266] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/CerealSugar.txt\">CerealSugar</a></li>" 
[267] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/CoffeeHeight.txt\">CoffeeHeight</a> " 
[268] " </li>" 
[269] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Milwaukee.txt\">Milwaukee</a></li>" 
[270] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/ChildrenandLifespan.txt\">ChildrenandLifespan</a> " 
[271] " </li>" 
[272] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Tuna.txt\">Tuna</a></li>" 
[273] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/FlexibilityPost.txt\">FlexibilityPost</a></li>" 
[274] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Referees.txt\">Referees</a></li>" 
[275] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Balsawood.txt\">Balsawood</a></li>" 
[276] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/GrishamSentences.txt\">GrishamSentences</a></li>" 
[277] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/FlipFlops.txt\">Flip" 
[278] "Flops</a> " 
[279] " </li>" 
[280] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/Chap6%20Investigation.txt\">Chap6" 
[281] "Investigation</a> " 
[282] " </li>" 
[283] " </ul>" 
[284] " &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" 
[285] " AP Data " 
[286] " " 
[287] " <ul>" 
[288] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/FlipFlops.txt\">FlipFlops</a></li>" 
[289] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/Temperatures.txt\">Temperatures</a></li>" 
[290] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/BreakfastGPA.txt\">BreakfastGPA</a></li>" 
[291] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/VideoAggression.txt\">VideoAggression</a></li>" 
[292] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/WordsMemorized.txt\">WordsMemorized</a></li>" 
[293] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/HaircutPrices.txt\">HaircutPrices</a></li>" 
[294] " <li><a href=\"http://www.isi-stats.com/isi/data/chap6/AP/NoteTaking.txt\">NoteTaking</a> " 
[295] " </li>" 
[296] " </ul>" 
[297] " " 
[298] " Chapter 7 " 
[299] " <ul>" 
[300] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/MarriageAges.txt\">MarriageAges</a></li>" 
[301] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/ExerciseMemorize.txt\">ExerciseMemorize</a></li>" 
[302] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/MemorizationDelay.txt\">MemorizationDelay</a></li>" 
[303] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/ReactionTimes.txt\">ReactionTimes</a> " 
[304] " </li>" 
[305] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day2-4.txt\">CholesterolLevel_day2-4</a></li>" 
[306] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day2-14.txt\">CholesterolLevel_day2-14</a></li>" 
[307] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day4-14.txt\">CholesterolLevel_day4-14</a></li>" 
[308] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/FlexibilityPre.txt\">FlexibilityPre</a></li>" 
[309] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Flexibility.txt\">Flexibility</a></li>" 
[310] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Flexibility%20Pre%20and%20Post.txt\">Flexiblity" 
[311] "Pre" 
[312] "and" 
[313] "Post</a> " 
[314] " </li>" 
[315] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Weight.txt\">Weight</a></li>" 
[316] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/WaterWeight.txt\">WaterWeight</a></li>" 
[317] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/BodyFat.txt\">BodyFat</a></li>" 
[318] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Chimps.txt\">Chimps</a></li>" 
[319] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Ecoli-sand.txt\">Ecoli-sand</a></li>" 
[320] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Ecoli-flow.txt\">Ecoli-flow</a></li>" 
[321] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/Ecoli-time.txt\">Ecoli-time</a></li>" 
[322] " </ul>" 
[323] "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AP" 
[324] "Data " 
[325] " " 
[326] " <ul>" 
[327] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/BrakeReactionTime.txt\">BrakeReationTime</a></li>" 
[328] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/TimeHeadwayVariability.txt\">TimeHeadwayVariability</a></li>" 
[329] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/MemorizeMusic.txt\">MemorizeMusic</a></li>" 
[330] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/Rebound.txt\">Rebound</a></li>" 
[331] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/Hurricane.txt\">Hurricane</a></li>" 
[332] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/BottledWater.txt\">BottledWater</a></li>" 
[333] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/StroopMusic.txt\">StroopMusic</a></li>" 
[334] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/PictureColor.txt\">PicturesColor</a></li>" 
[335] " <li><a href=\"http://www.isi-stats.com/isi/data/chap7/AP/ColorRisk.txt\">ColorRisk</a> " 
[336] " </li>" 
[337] " </ul>" 
[338] " Chapter 8 " 
[339] " <ul>" 
[340] " " 
[341] " </ul>" 
[342] " <table style=\"text-align: left; width: 100%;\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">" 
[343] " <tbody>" 
[344] " <tr>" 
[345] " <td style=\"vertical-align: top;\">" 
[346] " <ul>" 
[347] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/MarriageViews.txt\">MarriageViews</a></li>" 
[348] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/HeartDiseaseBaldness.txt\">HeartDiseaseBaldness</a></li>" 
[349] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/YawnTime.txt\">YawnTime</a></li>" 
[350] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/FriskAge.txt\">FriskAge</a></li>" 
[351] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/HealthcareAge.txt\">HealthcareAge</a></li>" 
[352] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/CellphoneRace.txt\">CellphoneRace</a></li>" 
[353] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SmartphoneRace.txt\">SmartphoneRace</a> " 
[354] " </li>" 
[355] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Goals.txt\">Goals</a></li>" 
[356] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SocialNormsSex.txt\">SocialNormsSex</a></li>" 
[357] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SocialNormsLocation.txt\">SocialNormsLocation</a></li>" 
[358] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SocialNormsSpeed.txt\">SocialNormsSpeed</a></li>" 
[359] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Rebate.txt\">Rebate</a></li>" 
[360] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/HeartDiseaseBaldness2.txt\">HeartDiseaseBaldness2</a></li>" 
[361] " </ul>" 
[362] " </td>" 
[363] " <td style=\"vertical-align: top;\">" 
[364] " <ul>" 
[365] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/ActivityAging.txt\">ActivityAging</a></li>" 
[366] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Alligators.txt\">Alligators</a></li>" 
[367] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/Alligators2.txt\">Alligators2</a></li>" 
[368] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/AlligatorsLakeGroup.txt\">AlligatorsLakeGroup</a></li>" 
[369] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/EstimatingEnergyExpenditure.txt\">EstimatingEnergyExpenditure</a></li>" 
[370] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/EstimatingEnergyIntake.txt\">EstimateEnergyIntake</a></li>" 
[371] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/FishAndCancer.txt\">FishAndCancer</a></li>" 
[372] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/HappinessIncome.txt\">HappinessIncome</a></li>" 
[373] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/HIVintervention.txt\">HIVintervention</a></li>" 
[374] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/PoliticalInclinationSeatBeat.txt\">PoliticalInclinationSeatBeltLaw</a></li>" 
[375] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/PolitPartySurveyA.txt\">PolitPartySurveyA</a></li>" 
[376] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/PolitPartySurveyB.txt\">PolitPartySurveyB</a></li>" 
[377] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SexBreakfast.txt\">SexBreakfast</a></li>" 
[378] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SexPhoneType.txt\">SexPhoneType</a></li>" 
[379] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/SleepApnea.txt\">SleepApnea</a></li>" 
[380] " <li><a href=\"http://www.isi-stats.com/isi/data/chap8/TreatmentRace.txt\">TreatmentRace</a> " 
[381] " </li>" 
[382] " </ul>" 
[383] " </td>" 
[384] " </tr>" 
[385] " </tbody>" 
[386] " </table>" 
[387] " <ul>" 
[388] " " 
[389] " </ul>" 
[390] " Chapter 9 " 
[391] " <ul>" 
[392] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/CellphoneSleep.txt\">CellphoneSleep</a></li>" 
[393] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/ClassExtracurricular.txt\">ClassExtracurricular</a></li>" 
[394] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/CellphoneHeight.txt\">CellphoneHeight</a> " 
[395] " </li>" 
[396] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/VideoEmotion.txt\">VideoEmotion</a></li>" 
[397] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/VideoMood.txt\">VideoMood</a></li>" 
[398] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/VideoStress.txt\">VideoStress</a> " 
[399] " </li>" 
[400] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Diets2.txt\">Diets2</a></li>" 
[401] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HaloKills.txt\">HaloKills</a></li>" 
[402] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HaloDeaths.txt\">HaloDeaths</a></li>" 
[403] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HaloAssists.txt\">HaloAssists</a></li>" 
[404] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HaloMedals.txt\">HaloMedals</a></li>" 
[405] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/MajorPuzzle.txt\">MajorPuzzle</a></li>" 
[406] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Study1.txt\">Study1</a></li>" 
[407] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Study2.txt\">Study2</a></li>" 
[408] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HeartRates.txt\">HeartRates</a></li>" 
[409] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Mercury.txt\">Mercury</a></li>" 
[410] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/HaloWins.txt\">HaloWins</a></li>" 
[411] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/SocialMediaandSelfEsteem.txt\">SocialMediaandSelfEsteem</a></li>" 
[412] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Donation.txt\">Donation</a></li>" 
[413] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/FlightTimes.txt\">FlightTimes</a></li>" 
[414] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/EarningsByDegree.txt\">EarningsByDegree</a> " 
[415] " </li>" 
[416] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/SingerHeights.txt\">SingerHeights</a></li>" 
[417] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/CarCrashDummies.txt\">CarCrashDummies</a></li>" 
[418] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/CarCrashDummiesLog.txt\">CarCrashDummiesLog</a> " 
[419] " </li>" 
[420] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/LiarLiar.txt\">LiarLiar</a></li>" 
[421] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/RestaurantMusic.txt\">RestaurantMusic</a></li>" 
[422] " <li><a href=\"http://www.isi-stats.com/isi/data/chap9/Aggression.txt\">Aggression</a> " 
[423] " </li>" 
[424] " </ul>" 
[425] " Chapter 10 " 
[426] " <ul>" 
[427] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HousePrices.txt\">HousePrices</a></li>" 
[428] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/RollerCoasters.txt\">RollerCoasters</a></li>" 
[429] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HeightandFingerLength.txt\">HeightAndFingerLength</a></li>" 
[430] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/MomandChildHeights.txt\">MomAndChildHeights</a></li>" 
[431] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/DadandChildHeights.txt\">DadAndChildHeights</a></li>" 
[432] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/ScrabbleNames.txt\">ScrabbleNames</a></li>" 
[433] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/ScrabbleRatio.txt\">ScrabbleRatio</a></li>" 
[434] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/TVLife.txt\">TVLife</a></li>" 
[435] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/BMICholesterol.txt\">BMICholesterol</a> " 
[436] " </li>" 
[437] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HondaAgePrice.txt\">UsedHondaCivics</a></li>" 
[438] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/legos.txt\">Legos</a></li>" 
[439] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/CatJumping.txt\">CatJumping</a></li>" 
[440] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/CatJumping.xlsx\">CatJumping" 
[441] "(Excel)</a> " 
[442] " </li>" 
[443] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/TextbookPrices.txt\">TextbookPrices</a></li>" 
[444] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/WeightHaircut.txt\">WeightHaircut</a></li>" 
[445] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HeightHaircut.txt\">HeightHaircut</a></li>" 
[446] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/AgeBMI.txt\">AgeBMI</a></li>" 
[447] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/MissClassGPA.txt\">MissClassGPA</a></li>" 
[448] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/SleepGPA.txt\">SleepGPA</a></li>" 
[449] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/StroopAgeTime.txt\">StroopAgeTime</a></li>" 
[450] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/BMIGlucose.txt\">BMIGlucose</a></li>" 
[451] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HeightWeight.txt\">HeightWeight</a></li>" 
[452] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HeightBMI.txt\">HeightBMI</a></li>" 
[453] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/GestationLifeExpectancy.txt\">GestationLifeExpectancy</a></li>" 
[454] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/SleepHeight.txt\">SleepHeight</a></li>" 
[455] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/TestTimes.txt\">TestTimes</a></li>" 
[456] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HikeDistances.txt\">HikeDistances</a></li>" 
[457] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HikeElevations.txt\">HikeElevations</a></li>" 
[458] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/WalkingStraight.txt\">WalkingStraight</a> " 
[459] " </li>" 
[460] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HandSpan.txt\">HandSpan</a></li>" 
[461] " <li><a target=\"_blank\" href=\"http://www.isi-stats.com/isi/data/chap10/Rex.txt\">Rex</a></li>" 
[462] " </ul>" 
[463] " " 
[464] " <div style=\"margin-left: 40px;\">AP Data " 
[465] " </div>" 
[466] " <ul>" 
[467] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/AgeWeightBoys.txt\">AgeWeightBoys</a></li>" 
[468] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/AgeWeightGirls.txt\">AgeWeightGirls</a></li>" 
[469] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/AutismPitch.txt\">AutismPitch</a></li>" 
[470] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/BrainAge.txt\">BrainAge</a></li>" 
[471] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Dice.txt\">Dice</a></li>" 
[472] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/DowJones.txt\">DowJones</a></li>" 
[473] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/DrawIQAdult.txt\">DrawIQAdult</a></li>" 
[474] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/DrawIQChild.txt\">DrawIQChild</a></li>" 
[475] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/HeightArmSpan.txt\">HeightArmSpan</a></li>" 
[476] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/NewtonsCooling.txt\">NewtonsCooling</a></li>" 
[477] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Pendulum.txt\">Pendulum</a></li>" 
[478] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Pennies.txt\">Pennies</a></li>" 
[479] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Planets.txt\">Planets</a></li>" 
[480] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/Rural.txt\">Rural</a></li>" 
[481] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/SleepMaze.txt\">SleepMaze</a></li>" 
[482] " <li><a href=\"http://www.isi-stats.com/isi/data/chap10/SocialWarmth.txt\">SocialWarmth</a> " 
[483] " </li>" 
[484] " </ul>" 
[485] " </td>" 
[486] " </tr>" 
[487] " </tbody>" 
[488] "</table>" 
[489] "" 
[490] " " 
[491] "" 
[492] " " 
[493] "" 
[494] " " 
[495] "" 
[496] "<script>'undefined'=== typeof _trfq || (window._trfq = []);'undefined'=== typeof _trfd && (window._trfd=[]),_trfd.push({'tccl.baseHost':'secureserver.net'}),_trfd.push({'ap':'cpsh'},{'server':'a2plcpnl0804'}) // Monitoring performance to make your website faster. If you want to opt-out, please contact web hosting support.</script>"
[497] "<script src=\"./data_files/tcc_l.combined.1.0.6.min.js.download\"></script>" 
[498] "</body></html>" 
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
* tibble(text = .)
```
]
 
.panel2-txt-auto[

```
# A tibble: 498 × 1
 text 
 <chr> 
 1 "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">" 
 2 "<html><head><!-- saved from url=(0038)http://www.isi-stats.com/isi/data.htm…
 3 "" 
 4 "" 
 5 " " 
 6 " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-12…
 7 "" 
 8 "" 
 9 " " 
10 "" 
# … with 488 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
* filter(str_detect(text, "\\.txt"))
```
]
 
.panel2-txt-auto[

```
# A tibble: 207 × 1
 text 
 <chr> 
 1 " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OrganDonor.t…
 2 " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OldFaithful1…
 3 " <li><a href=\"http://www.isi-stats.com/isi/data/prelim/OldFaithful2…
 4 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
 5 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
 6 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
 7 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
 8 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
 9 " <li><a href=\"http://www.isi-stats.com/isi/data/chap3/UsedCars.txt\…
10 " <li class=\"style6\"><a href=\"http://www.isi-stats.com/isi/data/ch…
# … with 197 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
* mutate(href =
*          str_extract(text, "http.+\\.txt"),
*        .before = 1)
```
]
 
.panel2-txt-auto[

```
# A tibble: 207 × 2
 href text 
 <chr> <chr> 
 1 http://www.isi-stats.com/isi/data/prelim/OrganDonor.txt " <li><…
 2 http://www.isi-stats.com/isi/data/prelim/OldFaithful1.txt " <li><…
 3 http://www.isi-stats.com/isi/data/prelim/OldFaithful2.txt " <li><…
 4 http://www.isi-stats.com/isi/data/chap3/CollegeMidwest.txt " <li c…
 5 http://www.isi-stats.com/isi/data/chap3/GettysburgAddress.txt " <li c…
 6 http://www.isi-stats.com/isi/data/chap2/TimeEstimate.txt " <li c…
 7 http://www.isi-stats.com/isi/data/chap3/TimePopulation.txt " <li c…
 8 http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt " <li c…
 9 http://www.isi-stats.com/isi/data/chap3/UsedCars.txt " <li><…
10 http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt " <li c…
# … with 197 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
* mutate(dataset_name =
*          str_extract(href, "\\w+\\.txt"),
*        .before = 1)
```
]
 
.panel2-txt-auto[

```
# A tibble: 207 × 3
 dataset_name href text 
 <chr> <chr> <chr>
 1 OrganDonor.txt http://www.isi-stats.com/isi/data/prelim/OrganDo… " …
 2 OldFaithful1.txt http://www.isi-stats.com/isi/data/prelim/OldFait… " …
 3 OldFaithful2.txt http://www.isi-stats.com/isi/data/prelim/OldFait… " …
 4 CollegeMidwest.txt http://www.isi-stats.com/isi/data/chap3/CollegeM… " …
 5 GettysburgAddress.txt http://www.isi-stats.com/isi/data/chap3/Gettysbu… " …
 6 TimeEstimate.txt http://www.isi-stats.com/isi/data/chap2/TimeEsti… " …
 7 TimePopulation.txt http://www.isi-stats.com/isi/data/chap3/TimePopu… " …
 8 SleepTimes.txt http://www.isi-stats.com/isi/data/chap3/SleepTim… " …
 9 UsedCars.txt http://www.isi-stats.com/isi/data/chap3/UsedCars… " …
10 SleepTimes.txt http://www.isi-stats.com/isi/data/chap3/SleepTim… " …
# … with 197 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
* mutate(dataset_name =
*          str_remove(dataset_name, "\\.txt"))
```
]
 
.panel2-txt-auto[

```
# A tibble: 207 × 3
 dataset_name href text 
 <chr> <chr> <chr>
 1 OrganDonor http://www.isi-stats.com/isi/data/prelim/OrganDonor.… " …
 2 OldFaithful1 http://www.isi-stats.com/isi/data/prelim/OldFaithful… " …
 3 OldFaithful2 http://www.isi-stats.com/isi/data/prelim/OldFaithful… " …
 4 CollegeMidwest http://www.isi-stats.com/isi/data/chap3/CollegeMidwe… " …
 5 GettysburgAddress http://www.isi-stats.com/isi/data/chap3/GettysburgAd… " …
 6 TimeEstimate http://www.isi-stats.com/isi/data/chap2/TimeEstimate… " …
 7 TimePopulation http://www.isi-stats.com/isi/data/chap3/TimePopulati… " …
 8 SleepTimes http://www.isi-stats.com/isi/data/chap3/SleepTimes.t… " …
 9 UsedCars http://www.isi-stats.com/isi/data/chap3/UsedCars.txt " …
10 SleepTimes http://www.isi-stats.com/isi/data/chap3/SleepTimes.t… " …
# … with 197 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
*href_df
```
]
 
.panel2-txt-auto[

]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

*href_df
```
]
 
.panel2-txt-auto[

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

href_df %>%
* .$href
```
]
 
.panel2-txt-auto[

```
 [1] "http://www.isi-stats.com/isi/data/prelim/OrganDonor.txt" 
 [2] "http://www.isi-stats.com/isi/data/prelim/OldFaithful1.txt" 
 [3] "http://www.isi-stats.com/isi/data/prelim/OldFaithful2.txt" 
 [4] "http://www.isi-stats.com/isi/data/chap3/CollegeMidwest.txt" 
 [5] "http://www.isi-stats.com/isi/data/chap3/GettysburgAddress.txt" 
 [6] "http://www.isi-stats.com/isi/data/chap2/TimeEstimate.txt" 
 [7] "http://www.isi-stats.com/isi/data/chap3/TimePopulation.txt" 
 [8] "http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt" 
 [9] "http://www.isi-stats.com/isi/data/chap3/UsedCars.txt" 
 [10] "http://www.isi-stats.com/isi/data/chap3/SleepTimes.txt" 
 [11] "http://www.isi-stats.com/isi/data/chap5/GoodandBad.txt" 
 [12] "http://www.isi-stats.com/isi/data/chap5/Gilbert.txt" 
 [13] "http://www.isi-stats.com/isi/data/chap5/Dolphin.txt" 
 [14] "http://www.isi-stats.com/isi/data/chap5/Yawning.txt" 
 [15] "http://www.isi-stats.com/isi/data/chap5/Smoking.txt" 
 [16] "http://www.isi-stats.com/isi/data/chap5/Blood.txt" 
 [17] "http://www.isi-stats.com/isi/data/chap6/OldFaithful.txt" 
 [18] "http://www.isi-stats.com/isi/data/chap6/Haircuts.txt" 
 [19] "http://www.isi-stats.com/isi/data/chap6/BikeTimes.txt" 
 [20] "http://www.isi-stats.com/isi/data/chap6/Sleep.txt" 
 [21] "http://www.isi-stats.com/isi/data/chap6/BreastFeedIntell.txt" 
 [22] "http://www.isi-stats.com/isi/data/chap6/CloseFriends.txt" 
 [23] "http://www.isi-stats.com/isi/data/chap7/FirstBase.txt" 
 [24] "http://www.isi-stats.com/isi/data/chap7/JJvsBicycle.txt" 
 [25] "http://www.isi-stats.com/isi/data/chap7/BowlsMMs.txt" 
 [26] "http://www.isi-stats.com/isi/data/chap7/Auction.txt" 
 [27] "http://www.isi-stats.com/isi/data/chap8/Stop.txt" 
 [28] "http://www.isi-stats.com/isi/data/chap8/OrganDonor.txt" 
 [29] "http://www.isi-stats.com/isi/data/chap8/Acupuncture.txt" 
 [30] "http://www.isi-stats.com/isi/data/chap8/Towels.txt" 
 [31] "http://www.isi-stats.com/isi/data/chap8/NightLight1.txt" 
 [32] "http://www.isi-stats.com/isi/data/chap8/NightLight2.txt" 
 [33] "http://www.isi-stats.com/isi/data/chap9/Comprehension.txt" 
 [34] "http://www.isi-stats.com/isi/data/chap9/Brain.txt" 
 [35] "http://www.isi-stats.com/isi/data/chap9/Recall.txt" 
 [36] "http://www.isi-stats.com/isi/data/chap9/Diets.txt" 
 [37] "http://www.isi-stats.com/isi/data/chap10/ExamTimesScores.txt" 
 [38] "http://www.isi-stats.com/isi/data/chap10/PlateSize.txt" 
 [39] "http://www.isi-stats.com/isi/data/chap10/ExerciseMood.txt" 
 [40] "http://www.isi-stats.com/isi/data/chap10/DraftLottery.txt" 
 [41] "http://www.isi-stats.com/isi/data/chap10/PlateSize.txt" 
 [42] "http://www.isi-stats.com/isi/data/chap10/FootHeight.txt" 
 [43] "http://www.isi-stats.com/isi/data/chap10/GPA.txt" 
 [44] "http://www.isi-stats.com/isi/data/chap10/Handwidth.txt" 
 [45] "http://www.isi-stats.com/isi/data/chap10/TempHeart.txt" 
 [46] "http://www.isi-stats.com/isi/data/chap10/AlcoholSmoke.txt" 
 [47] "http://www.isi-stats.com/isi/data/chap10/Facebook.txt" 
 [48] "http://www.isi-stats.com/isi/data/chap3/HaircutCosts.txt" 
 [49] "http://www.isi-stats.com/isi/data/chap3/FemaleTemp.txt" 
 [50] "http://www.isi-stats.com/isi/data/chap3/MaleTemp.txt" 
 [51] "http://www.isi-stats.com/isi/data/chap2/PredictedScore.txt" 
 [52] "http://www.isi-stats.com/isi/data/chap2/UnderwaterWeights.txt" 
 [53] "http://www.isi-stats.com/isi/data/chap2/DriveThru.txt\">DriveThru</a><a href=\"http://www.isi-stats.com/isi/data/chap2/DriveThru.txt"
 [54] "http://www.isi-stats.com/isi/data/chap3/SnakeAge.txt" 
 [55] "http://www.isi-stats.com/isi/data/chap3/FemaleTemp.txt" 
 [56] "http://www.isi-stats.com/isi/data/chap3/MaleTemp.txt" 
 [57] "http://www.isi-stats.com/isi/data/chap3/Hockey.txt" 
 [58] "http://www.isi-stats.com/isi/data/chap3/Hockey2.txt" 
 [59] "http://www.isi-stats.com/isi/data/chap3/MarriageAges.txt" 
 [60] "http://www.isi-stats.com/isi/data/chap6/Candybars.txt" 
 [61] "http://www.isi-stats.com/isi/data/chap6/CarCrashExercise.txt" 
 [62] "http://www.isi-stats.com/isi/data/chap6/CerealSugar.txt" 
 [63] "http://www.isi-stats.com/isi/data/chap6/CoffeeHeight.txt" 
 [64] "http://www.isi-stats.com/isi/data/chap6/Milwaukee.txt" 
 [65] "http://www.isi-stats.com/isi/data/chap6/ChildrenandLifespan.txt" 
 [66] "http://www.isi-stats.com/isi/data/chap6/Tuna.txt" 
 [67] "http://www.isi-stats.com/isi/data/chap6/FlexibilityPost.txt" 
 [68] "http://www.isi-stats.com/isi/data/chap6/Referees.txt" 
 [69] "http://www.isi-stats.com/isi/data/chap6/Balsawood.txt" 
 [70] "http://www.isi-stats.com/isi/data/chap6/GrishamSentences.txt" 
 [71] "http://www.isi-stats.com/isi/data/chap6/FlipFlops.txt" 
 [72] "http://www.isi-stats.com/isi/data/chap6/Chap6%20Investigation.txt" 
 [73] "http://www.isi-stats.com/isi/data/chap6/AP/FlipFlops.txt" 
 [74] "http://www.isi-stats.com/isi/data/chap6/AP/Temperatures.txt" 
 [75] "http://www.isi-stats.com/isi/data/chap6/AP/BreakfastGPA.txt" 
 [76] "http://www.isi-stats.com/isi/data/chap6/AP/VideoAggression.txt" 
 [77] "http://www.isi-stats.com/isi/data/chap6/AP/WordsMemorized.txt" 
 [78] "http://www.isi-stats.com/isi/data/chap6/AP/HaircutPrices.txt" 
 [79] "http://www.isi-stats.com/isi/data/chap6/AP/NoteTaking.txt" 
 [80] "http://www.isi-stats.com/isi/data/chap7/MarriageAges.txt" 
 [81] "http://www.isi-stats.com/isi/data/chap7/ExerciseMemorize.txt" 
 [82] "http://www.isi-stats.com/isi/data/chap7/MemorizationDelay.txt" 
 [83] "http://www.isi-stats.com/isi/data/chap7/ReactionTimes.txt" 
 [84] "http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day2-4.txt" 
 [85] "http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day2-14.txt" 
 [86] "http://www.isi-stats.com/isi/data/chap7/CholesterolLevel_day4-14.txt" 
 [87] "http://www.isi-stats.com/isi/data/chap7/FlexibilityPre.txt" 
 [88] "http://www.isi-stats.com/isi/data/chap7/Flexibility.txt" 
 [89] "http://www.isi-stats.com/isi/data/chap7/Flexibility%20Pre%20and%20Post.txt" 
 [90] "http://www.isi-stats.com/isi/data/chap7/Weight.txt" 
 [91] "http://www.isi-stats.com/isi/data/chap7/WaterWeight.txt" 
 [92] "http://www.isi-stats.com/isi/data/chap7/BodyFat.txt" 
 [93] "http://www.isi-stats.com/isi/data/chap7/Chimps.txt" 
 [94] "http://www.isi-stats.com/isi/data/chap7/Ecoli-sand.txt" 
 [95] "http://www.isi-stats.com/isi/data/chap7/Ecoli-flow.txt" 
 [96] "http://www.isi-stats.com/isi/data/chap7/Ecoli-time.txt" 
 [97] "http://www.isi-stats.com/isi/data/chap7/AP/BrakeReactionTime.txt" 
 [98] "http://www.isi-stats.com/isi/data/chap7/AP/TimeHeadwayVariability.txt" 
 [99] "http://www.isi-stats.com/isi/data/chap7/AP/MemorizeMusic.txt" 
[100] "http://www.isi-stats.com/isi/data/chap7/AP/Rebound.txt" 
[101] "http://www.isi-stats.com/isi/data/chap7/AP/Hurricane.txt" 
[102] "http://www.isi-stats.com/isi/data/chap7/AP/BottledWater.txt" 
[103] "http://www.isi-stats.com/isi/data/chap7/AP/StroopMusic.txt" 
[104] "http://www.isi-stats.com/isi/data/chap7/AP/PictureColor.txt" 
[105] "http://www.isi-stats.com/isi/data/chap7/AP/ColorRisk.txt" 
[106] "http://www.isi-stats.com/isi/data/chap8/MarriageViews.txt" 
[107] "http://www.isi-stats.com/isi/data/chap8/HeartDiseaseBaldness.txt" 
[108] "http://www.isi-stats.com/isi/data/chap8/YawnTime.txt" 
[109] "http://www.isi-stats.com/isi/data/chap8/FriskAge.txt" 
[110] "http://www.isi-stats.com/isi/data/chap8/HealthcareAge.txt" 
[111] "http://www.isi-stats.com/isi/data/chap8/CellphoneRace.txt" 
[112] "http://www.isi-stats.com/isi/data/chap8/SmartphoneRace.txt" 
[113] "http://www.isi-stats.com/isi/data/chap8/Goals.txt" 
[114] "http://www.isi-stats.com/isi/data/chap8/SocialNormsSex.txt" 
[115] "http://www.isi-stats.com/isi/data/chap8/SocialNormsLocation.txt" 
[116] "http://www.isi-stats.com/isi/data/chap8/SocialNormsSpeed.txt" 
[117] "http://www.isi-stats.com/isi/data/chap8/Rebate.txt" 
[118] "http://www.isi-stats.com/isi/data/chap8/HeartDiseaseBaldness2.txt" 
[119] "http://www.isi-stats.com/isi/data/chap8/ActivityAging.txt" 
[120] "http://www.isi-stats.com/isi/data/chap8/Alligators.txt" 
[121] "http://www.isi-stats.com/isi/data/chap8/Alligators2.txt" 
[122] "http://www.isi-stats.com/isi/data/chap8/AlligatorsLakeGroup.txt" 
[123] "http://www.isi-stats.com/isi/data/chap8/EstimatingEnergyExpenditure.txt" 
[124] "http://www.isi-stats.com/isi/data/chap8/EstimatingEnergyIntake.txt" 
[125] "http://www.isi-stats.com/isi/data/chap8/FishAndCancer.txt" 
[126] "http://www.isi-stats.com/isi/data/chap8/HappinessIncome.txt" 
[127] "http://www.isi-stats.com/isi/data/chap8/HIVintervention.txt" 
[128] "http://www.isi-stats.com/isi/data/chap8/PoliticalInclinationSeatBeat.txt" 
[129] "http://www.isi-stats.com/isi/data/chap8/PolitPartySurveyA.txt" 
[130] "http://www.isi-stats.com/isi/data/chap8/PolitPartySurveyB.txt" 
[131] "http://www.isi-stats.com/isi/data/chap8/SexBreakfast.txt" 
[132] "http://www.isi-stats.com/isi/data/chap8/SexPhoneType.txt" 
[133] "http://www.isi-stats.com/isi/data/chap8/SleepApnea.txt" 
[134] "http://www.isi-stats.com/isi/data/chap8/TreatmentRace.txt" 
[135] "http://www.isi-stats.com/isi/data/chap9/CellphoneSleep.txt" 
[136] "http://www.isi-stats.com/isi/data/chap9/ClassExtracurricular.txt" 
[137] "http://www.isi-stats.com/isi/data/chap9/CellphoneHeight.txt" 
[138] "http://www.isi-stats.com/isi/data/chap9/VideoEmotion.txt" 
[139] "http://www.isi-stats.com/isi/data/chap9/VideoMood.txt" 
[140] "http://www.isi-stats.com/isi/data/chap9/VideoStress.txt" 
[141] "http://www.isi-stats.com/isi/data/chap9/Diets2.txt" 
[142] "http://www.isi-stats.com/isi/data/chap9/HaloKills.txt" 
[143] "http://www.isi-stats.com/isi/data/chap9/HaloDeaths.txt" 
[144] "http://www.isi-stats.com/isi/data/chap9/HaloAssists.txt" 
[145] "http://www.isi-stats.com/isi/data/chap9/HaloMedals.txt" 
[146] "http://www.isi-stats.com/isi/data/chap9/MajorPuzzle.txt" 
[147] "http://www.isi-stats.com/isi/data/chap9/Study1.txt" 
[148] "http://www.isi-stats.com/isi/data/chap9/Study2.txt" 
[149] "http://www.isi-stats.com/isi/data/chap9/HeartRates.txt" 
[150] "http://www.isi-stats.com/isi/data/chap9/Mercury.txt" 
[151] "http://www.isi-stats.com/isi/data/chap9/HaloWins.txt" 
[152] "http://www.isi-stats.com/isi/data/chap9/SocialMediaandSelfEsteem.txt" 
[153] "http://www.isi-stats.com/isi/data/chap9/Donation.txt" 
[154] "http://www.isi-stats.com/isi/data/chap9/FlightTimes.txt" 
[155] "http://www.isi-stats.com/isi/data/chap9/EarningsByDegree.txt" 
[156] "http://www.isi-stats.com/isi/data/chap9/SingerHeights.txt" 
[157] "http://www.isi-stats.com/isi/data/chap9/CarCrashDummies.txt" 
[158] "http://www.isi-stats.com/isi/data/chap9/CarCrashDummiesLog.txt" 
[159] "http://www.isi-stats.com/isi/data/chap9/LiarLiar.txt" 
[160] "http://www.isi-stats.com/isi/data/chap9/RestaurantMusic.txt" 
[161] "http://www.isi-stats.com/isi/data/chap9/Aggression.txt" 
[162] "http://www.isi-stats.com/isi/data/chap10/HousePrices.txt" 
[163] "http://www.isi-stats.com/isi/data/chap10/RollerCoasters.txt" 
[164] "http://www.isi-stats.com/isi/data/chap10/HeightandFingerLength.txt" 
[165] "http://www.isi-stats.com/isi/data/chap10/MomandChildHeights.txt" 
[166] "http://www.isi-stats.com/isi/data/chap10/DadandChildHeights.txt" 
[167] "http://www.isi-stats.com/isi/data/chap10/ScrabbleNames.txt" 
[168] "http://www.isi-stats.com/isi/data/chap10/ScrabbleRatio.txt" 
[169] "http://www.isi-stats.com/isi/data/chap10/TVLife.txt" 
[170] "http://www.isi-stats.com/isi/data/chap10/BMICholesterol.txt" 
[171] "http://www.isi-stats.com/isi/data/chap10/HondaAgePrice.txt" 
[172] "http://www.isi-stats.com/isi/data/chap10/legos.txt" 
[173] "http://www.isi-stats.com/isi/data/chap10/CatJumping.txt" 
[174] "http://www.isi-stats.com/isi/data/chap10/TextbookPrices.txt" 
[175] "http://www.isi-stats.com/isi/data/chap10/WeightHaircut.txt" 
[176] "http://www.isi-stats.com/isi/data/chap10/HeightHaircut.txt" 
[177] "http://www.isi-stats.com/isi/data/chap10/AgeBMI.txt" 
[178] "http://www.isi-stats.com/isi/data/chap10/MissClassGPA.txt" 
[179] "http://www.isi-stats.com/isi/data/chap10/SleepGPA.txt" 
[180] "http://www.isi-stats.com/isi/data/chap10/StroopAgeTime.txt" 
[181] "http://www.isi-stats.com/isi/data/chap10/BMIGlucose.txt" 
[182] "http://www.isi-stats.com/isi/data/chap10/HeightWeight.txt" 
[183] "http://www.isi-stats.com/isi/data/chap10/HeightBMI.txt" 
[184] "http://www.isi-stats.com/isi/data/chap10/GestationLifeExpectancy.txt" 
[185] "http://www.isi-stats.com/isi/data/chap10/SleepHeight.txt" 
[186] "http://www.isi-stats.com/isi/data/chap10/TestTimes.txt" 
[187] "http://www.isi-stats.com/isi/data/chap10/HikeDistances.txt" 
[188] "http://www.isi-stats.com/isi/data/chap10/HikeElevations.txt" 
[189] "http://www.isi-stats.com/isi/data/chap10/WalkingStraight.txt" 
[190] "http://www.isi-stats.com/isi/data/chap10/HandSpan.txt" 
[191] "http://www.isi-stats.com/isi/data/chap10/Rex.txt" 
[192] "http://www.isi-stats.com/isi/data/chap10/AgeWeightBoys.txt" 
[193] "http://www.isi-stats.com/isi/data/chap10/AgeWeightGirls.txt" 
[194] "http://www.isi-stats.com/isi/data/chap10/AutismPitch.txt" 
[195] "http://www.isi-stats.com/isi/data/chap10/BrainAge.txt" 
[196] "http://www.isi-stats.com/isi/data/chap10/Dice.txt" 
[197] "http://www.isi-stats.com/isi/data/chap10/DowJones.txt" 
[198] "http://www.isi-stats.com/isi/data/chap10/DrawIQAdult.txt" 
[199] "http://www.isi-stats.com/isi/data/chap10/DrawIQChild.txt" 
[200] "http://www.isi-stats.com/isi/data/chap10/HeightArmSpan.txt" 
[201] "http://www.isi-stats.com/isi/data/chap10/NewtonsCooling.txt" 
[202] "http://www.isi-stats.com/isi/data/chap10/Pendulum.txt" 
[203] "http://www.isi-stats.com/isi/data/chap10/Pennies.txt" 
[204] "http://www.isi-stats.com/isi/data/chap10/Planets.txt" 
[205] "http://www.isi-stats.com/isi/data/chap10/Rural.txt" 
[206] "http://www.isi-stats.com/isi/data/chap10/SleepMaze.txt" 
[207] "http://www.isi-stats.com/isi/data/chap10/SocialWarmth.txt" 
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

href_df %>%
  .$href %>%
* .[1]
```
]
 
.panel2-txt-auto[

```
[1] "http://www.isi-stats.com/isi/data/prelim/OrganDonor.txt"
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

href_df %>%
  .$href %>%
  .[1] %>%
* readr::read_delim(delim = "\t")
```
]
 
.panel2-txt-auto[

```
# A tibble: 161 × 2
 Default Choice
 <chr> <chr> 
 1 opt-in donor 
 2 opt-in donor 
 3 opt-in donor 
 4 opt-in donor 
 5 opt-in donor 
 6 opt-in donor 
 7 opt-in donor 
 8 opt-in donor 
 9 opt-in donor 
10 opt-in donor 
# … with 151 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

href_df %>%
  .$href %>%
  .[1] %>%
  readr::read_delim(delim = "\t") %>%
* janitor::clean_names()
```
]
 
.panel2-txt-auto[

```
# A tibble: 161 × 2
 default choice
 <chr> <chr> 
 1 opt-in donor 
 2 opt-in donor 
 3 opt-in donor 
 4 opt-in donor 
 5 opt-in donor 
 6 opt-in donor 
 7 opt-in donor 
 8 opt-in donor 
 9 opt-in donor 
10 opt-in donor 
# … with 151 more rows
```
]

---
count: false

.panel1-txt-auto[

```r
# identify txt in in html page
readLines("http://www.isi-stats.com/isi/data.html") %>%
  tibble(text = .) %>%
  filter(str_detect(text, "\\.txt")) %>%
  mutate(href =
           str_extract(text, "http.+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_extract(href, "\\w+\\.txt"),
         .before = 1) %>%
  mutate(dataset_name =
           str_remove(dataset_name, "\\.txt")) ->
href_df

href_df %>%
  .$href %>%
  .[1] %>%
  readr::read_delim(delim = "\t") %>%
  janitor::clean_names() %>%
* write_rds(path = paste0(href_df$dataset_name[1], ".Rds"))
```
]
 
.panel2-txt-auto[

]

---

# For loop that will try to collect *all* data

```r
for (i in 1:nrow(href_df)){
 
try(  
href_df %>%
  .$href %>%
  .[i] %>%
  readr::read_delim(delim = "\t") %>%
  janitor::clean_names() %>%
  write_rds(path = paste0(href_df$dataset_name[i], ".Rds"))
 
)
 
}
```

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
 overflow-x:visible;
 width: 500px;
 border-style: solid;
}
</style>