Downloading And Reading Files

(Sections 13.1 - 13.4)

Packages

Make sure these are attached:

library(tidyverse)

Downloading Files

A Directory for Downloads

dir.create("downloads")

A File to Get

url <-"https://github.com/homerhanumat/bcscr/blob/master/downloads/words.zip?raw=true"
download.file(
  url = url,
  destfile = "downloads/words.zip"
)

Unzip the File

unzip(zipfile = "downloads/words.zip", exdir = "downloads")

It should start like this:

aa
aah
aahed
aahing
aahs
aal
...

Reading Files

Reading a Line at a Time

words_csc <- readLines(con = "downloads/words.txt")

Check that it went well:

words_csc[1:1000]
   [1] "aa"                 "aah"                "aahed"             
   [4] "aahing"             "aahs"               "aal"               
   [7] "aalii"              "aaliis"             "aals"              
  [10] "aardvark"           "aardvarks"          "aardwolf"          
  [13] "aardwolves"         "aas"                "aasvogel"          
  [16] "aasvogels"          "aba"                "abaca"             
  [19] "abacas"             "abaci"              "aback"             
  [22] "abacus"             "abacuses"           "abaft"             
  [25] "abaka"              "abakas"             "abalone"           
  [28] "abalones"           "abamp"              "abampere"          
  [31] "abamperes"          "abamps"             "abandon"           
  [34] "abandoned"          "abandoning"         "abandonment"       
  [37] "abandonments"       "abandons"           "abas"              
  [40] "abase"              "abased"             "abasedly"          
  [43] "abasement"          "abasements"         "abaser"            
  [46] "abasers"            "abases"             "abash"             
  [49] "abashed"            "abashes"            "abashing"          
  [52] "abasing"            "abatable"           "abate"             
  [55] "abated"             "abatement"          "abatements"        
  [58] "abater"             "abaters"            "abates"            
  [61] "abating"            "abatis"             "abatises"          
  [64] "abator"             "abators"            "abattis"           
  [67] "abattises"          "abattoir"           "abattoirs"         
  [70] "abaxial"            "abaxile"            "abbacies"          
  [73] "abbacy"             "abbatial"           "abbe"              
  [76] "abbes"              "abbess"             "abbesses"          
  [79] "abbey"              "abbeys"             "abbot"             
  [82] "abbotcies"          "abbotcy"            "abbots"            
  [85] "abbreviate"         "abbreviated"        "abbreviates"       
  [88] "abbreviating"       "abbreviation"       "abbreviations"     
  [91] "abdicate"           "abdicated"          "abdicates"         
  [94] "abdicating"         "abdication"         "abdications"       
  [97] "abdomen"            "abdomens"           "abdomina"          
 [100] "abdominal"          "abdominally"        "abduce"            
 [103] "abduced"            "abducens"           "abducent"          
 [106] "abducentes"         "abduces"            "abducing"          
 [109] "abduct"             "abducted"           "abducting"         
 [112] "abductor"           "abductores"         "abductors"         
 [115] "abducts"            "abeam"              "abed"              
 [118] "abele"              "abeles"             "abelmosk"          
 [121] "abelmosks"          "aberrant"           "aberrants"         
 [124] "aberration"         "aberrations"        "abet"              
 [127] "abetment"           "abetments"          "abets"             
 [130] "abettal"            "abettals"           "abetted"           
 [133] "abetter"            "abetters"           "abetting"          
 [136] "abettor"            "abettors"           "abeyance"          
 [139] "abeyances"          "abeyancies"         "abeyancy"          
 [142] "abeyant"            "abfarad"            "abfarads"          
 [145] "abhenries"          "abhenry"            "abhenrys"          
 [148] "abhor"              "abhorred"           "abhorrence"        
 [151] "abhorrences"        "abhorrent"          "abhorrer"          
 [154] "abhorrers"          "abhorring"          "abhors"            
 [157] "abidance"           "abidances"          "abide"             
 [160] "abided"             "abider"             "abiders"           
 [163] "abides"             "abiding"            "abied"             
 [166] "abies"              "abigail"            "abigails"          
 [169] "abilities"          "ability"            "abioses"           
 [172] "abiosis"            "abiotic"            "abject"            
 [175] "abjectly"           "abjectness"         "abjectnesses"      
 [178] "abjuration"         "abjurations"        "abjure"            
 [181] "abjured"            "abjurer"            "abjurers"          
 [184] "abjures"            "abjuring"           "ablate"            
 [187] "ablated"            "ablates"            "ablating"          
 [190] "ablation"           "ablations"          "ablative"          
 [193] "ablatives"          "ablaut"             "ablauts"           
 [196] "ablaze"             "able"               "ablegate"          
 [199] "ablegates"          "abler"              "ables"             
 [202] "ablest"             "ablings"            "ablins"            
 [205] "abloom"             "abluent"            "abluents"          
 [208] "ablush"             "abluted"            "ablution"          
 [211] "ablutions"          "ably"               "abmho"             
 [214] "abmhos"             "abnegate"           "abnegated"         
 [217] "abnegates"          "abnegating"         "abnegation"        
 [220] "abnegations"        "abnormal"           "abnormalities"     
 [223] "abnormality"        "abnormally"         "abnormals"         
 [226] "abo"                "aboard"             "abode"             
 [229] "aboded"             "abodes"             "aboding"           
 [232] "abohm"              "abohms"             "aboideau"          
 [235] "aboideaus"          "aboideaux"          "aboil"             
 [238] "aboiteau"           "aboiteaus"          "aboiteaux"         
 [241] "abolish"            "abolished"          "abolishes"         
 [244] "abolishing"         "abolition"          "abolitions"        
 [247] "abolla"             "abollae"            "aboma"             
 [250] "abomas"             "abomasa"            "abomasal"          
 [253] "abomasi"            "abomasum"           "abomasus"          
 [256] "abominable"         "abominate"          "abominated"        
 [259] "abominates"         "abominating"        "abomination"       
 [262] "abominations"       "aboon"              "aboral"            
 [265] "aborally"           "aboriginal"         "aborigine"         
 [268] "aborigines"         "aborning"           "abort"             
 [271] "aborted"            "aborter"            "aborters"          
 [274] "aborting"           "abortion"           "abortions"         
 [277] "abortive"           "aborts"             "abos"              
 [280] "abought"            "aboulia"            "aboulias"          
 [283] "aboulic"            "abound"             "abounded"          
 [286] "abounding"          "abounds"            "about"             
 [289] "above"              "aboveboard"         "aboves"            
 [292] "abracadabra"        "abradant"           "abradants"         
 [295] "abrade"             "abraded"            "abrader"           
 [298] "abraders"           "abrades"            "abrading"          
 [301] "abrasion"           "abrasions"          "abrasive"          
 [304] "abrasively"         "abrasiveness"       "abrasivenesses"    
 [307] "abrasives"          "abreact"            "abreacted"         
 [310] "abreacting"         "abreacts"           "abreast"           
 [313] "abri"               "abridge"            "abridged"          
 [316] "abridgement"        "abridgements"       "abridger"          
 [319] "abridgers"          "abridges"           "abridging"         
 [322] "abridgment"         "abridgments"        "abris"             
 [325] "abroach"            "abroad"             "abrogate"          
 [328] "abrogated"          "abrogates"          "abrogating"        
 [331] "abrupt"             "abrupter"           "abruptest"         
 [334] "abruptly"           "abscess"            "abscessed"         
 [337] "abscesses"          "abscessing"         "abscise"           
 [340] "abscised"           "abscises"           "abscisin"          
 [343] "abscising"          "abscisins"          "abscissa"          
 [346] "abscissae"          "abscissas"          "abscond"           
 [349] "absconded"          "absconding"         "absconds"          
 [352] "absence"            "absences"           "absent"            
 [355] "absented"           "absentee"           "absentees"         
 [358] "absenter"           "absenters"          "absenting"         
 [361] "absently"           "absentminded"       "absentmindedly"    
 [364] "absentmindedness"   "absentmindednesses" "absents"           
 [367] "absinth"            "absinthe"           "absinthes"         
 [370] "absinths"           "absolute"           "absolutely"        
 [373] "absoluter"          "absolutes"          "absolutest"        
 [376] "absolution"         "absolutions"        "absolve"           
 [379] "absolved"           "absolver"           "absolvers"         
 [382] "absolves"           "absolving"          "absonant"          
 [385] "absorb"             "absorbed"           "absorbencies"      
 [388] "absorbency"         "absorbent"          "absorber"          
 [391] "absorbers"          "absorbing"          "absorbingly"       
 [394] "absorbs"            "absorption"         "absorptions"       
 [397] "absorptive"         "abstain"            "abstained"         
 [400] "abstainer"          "abstainers"         "abstaining"        
 [403] "abstains"           "abstemious"         "abstemiously"      
 [406] "abstention"         "abstentions"        "absterge"          
 [409] "absterged"          "absterges"          "absterging"        
 [412] "abstinence"         "abstinences"        "abstract"          
 [415] "abstracted"         "abstracter"         "abstractest"       
 [418] "abstracting"        "abstraction"        "abstractions"      
 [421] "abstractly"         "abstractness"       "abstractnesses"    
 [424] "abstracts"          "abstrict"           "abstricted"        
 [427] "abstricting"        "abstricts"          "abstruse"          
 [430] "abstrusely"         "abstruseness"       "abstrusenesses"    
 [433] "abstruser"          "abstrusest"         "absurd"            
 [436] "absurder"           "absurdest"          "absurdities"       
 [439] "absurdity"          "absurdly"           "absurds"           
 [442] "abubble"            "abulia"             "abulias"           
 [445] "abulic"             "abundance"          "abundances"        
 [448] "abundant"           "abundantly"         "abusable"          
 [451] "abuse"              "abused"             "abuser"            
 [454] "abusers"            "abuses"             "abusing"           
 [457] "abusive"            "abusively"          "abusiveness"       
 [460] "abusivenesses"      "abut"               "abutilon"          
 [463] "abutilons"          "abutment"           "abutments"         
 [466] "abuts"              "abuttal"            "abuttals"          
 [469] "abutted"            "abutter"            "abutters"          
 [472] "abutting"           "abuzz"              "abvolt"            
 [475] "abvolts"            "abwatt"             "abwatts"           
 [478] "aby"                "abye"               "abyed"             
 [481] "abyes"              "abying"             "abys"              
 [484] "abysm"              "abysmal"            "abysmally"         
 [487] "abysms"             "abyss"              "abyssal"           
 [490] "abysses"            "acacia"             "acacias"           
 [493] "academe"            "academes"           "academia"          
 [496] "academias"          "academic"           "academically"      
 [499] "academics"          "academies"          "academy"           
 [502] "acajou"             "acajous"            "acaleph"           
 [505] "acalephae"          "acalephe"           "acalephes"         
 [508] "acalephs"           "acanthi"            "acanthus"          
 [511] "acanthuses"         "acari"              "acarid"            
 [514] "acaridan"           "acaridans"          "acarids"           
 [517] "acarine"            "acarines"           "acaroid"           
 [520] "acarpous"           "acarus"             "acaudal"           
 [523] "acaudate"           "acauline"           "acaulose"          
 [526] "acaulous"           "accede"             "acceded"           
 [529] "acceder"            "acceders"           "accedes"           
 [532] "acceding"           "accelerate"         "accelerated"       
 [535] "accelerates"        "accelerating"       "acceleration"      
 [538] "accelerations"      "accelerator"        "accelerators"      
 [541] "accent"             "accented"           "accenting"         
 [544] "accentor"           "accentors"          "accents"           
 [547] "accentual"          "accentuate"         "accentuated"       
 [550] "accentuates"        "accentuating"       "accentuation"      
 [553] "accentuations"      "accept"             "acceptabilities"   
 [556] "acceptability"      "acceptable"         "acceptance"        
 [559] "acceptances"        "accepted"           "acceptee"          
 [562] "acceptees"          "accepter"           "accepters"         
 [565] "accepting"          "acceptor"           "acceptors"         
 [568] "accepts"            "access"             "accessed"          
 [571] "accesses"           "accessibilities"    "accessibility"     
 [574] "accessible"         "accessing"          "accession"         
 [577] "accessions"         "accessories"        "accessory"         
 [580] "accident"           "accidental"         "accidentally"      
 [583] "accidentals"        "accidents"          "accidie"           
 [586] "accidies"           "acclaim"            "acclaimed"         
 [589] "acclaiming"         "acclaims"           "acclamation"       
 [592] "acclamations"       "acclimate"          "acclimated"        
 [595] "acclimates"         "acclimating"        "acclimation"       
 [598] "acclimations"       "acclimatization"    "acclimatizations"  
 [601] "acclimatize"        "acclimatizes"       "accolade"          
 [604] "accolades"          "accommodate"        "accommodated"      
 [607] "accommodates"       "accommodating"      "accommodation"     
 [610] "accommodations"     "accompanied"        "accompanies"       
 [613] "accompaniment"      "accompaniments"     "accompanist"       
 [616] "accompany"          "accompanying"       "accomplice"        
 [619] "accomplices"        "accomplish"         "accomplished"      
 [622] "accomplisher"       "accomplishers"      "accomplishes"      
 [625] "accomplishing"      "accomplishment"     "accomplishments"   
 [628] "accord"             "accordance"         "accordant"         
 [631] "accorded"           "accorder"           "accorders"         
 [634] "according"          "accordingly"        "accordion"         
 [637] "accordions"         "accords"            "accost"            
 [640] "accosted"           "accosting"          "accosts"           
 [643] "account"            "accountabilities"   "accountability"    
 [646] "accountable"        "accountancies"      "accountancy"       
 [649] "accountant"         "accountants"        "accounted"         
 [652] "accounting"         "accountings"        "accounts"          
 [655] "accouter"           "accoutered"         "accoutering"       
 [658] "accouters"          "accoutre"           "accoutred"         
 [661] "accoutrement"       "accoutrements"      "accoutres"         
 [664] "accoutring"         "accredit"           "accredited"        
 [667] "accrediting"        "accredits"          "accrete"           
 [670] "accreted"           "accretes"           "accreting"         
 [673] "accrual"            "accruals"           "accrue"            
 [676] "accrued"            "accrues"            "accruing"          
 [679] "accumulate"         "accumulated"        "accumulates"       
 [682] "accumulating"       "accumulation"       "accumulations"     
 [685] "accumulator"        "accumulators"       "accuracies"        
 [688] "accuracy"           "accurate"           "accurately"        
 [691] "accurateness"       "accuratenesses"     "accursed"          
 [694] "accurst"            "accusal"            "accusals"          
 [697] "accusant"           "accusants"          "accusation"        
 [700] "accusations"        "accuse"             "accused"           
 [703] "accuser"            "accusers"           "accuses"           
 [706] "accusing"           "accustom"           "accustomed"        
 [709] "accustoming"        "accustoms"          "ace"               
 [712] "aced"               "acedia"             "acedias"           
 [715] "aceldama"           "aceldamas"          "acentric"          
 [718] "acequia"            "acequias"           "acerate"           
 [721] "acerated"           "acerb"              "acerbate"          
 [724] "acerbated"          "acerbates"          "acerbating"        
 [727] "acerber"            "acerbest"           "acerbic"           
 [730] "acerbities"         "acerbity"           "acerola"           
 [733] "acerolas"           "acerose"            "acerous"           
 [736] "acers"              "acervate"           "acervuli"          
 [739] "aces"               "acescent"           "acescents"         
 [742] "aceta"              "acetal"             "acetals"           
 [745] "acetamid"           "acetamids"          "acetate"           
 [748] "acetated"           "acetates"           "acetic"            
 [751] "acetified"          "acetifies"          "acetify"           
 [754] "acetifying"         "acetone"            "acetones"          
 [757] "acetonic"           "acetose"            "acetous"           
 [760] "acetoxyl"           "acetoxyls"          "acetum"            
 [763] "acetyl"             "acetylene"          "acetylenes"        
 [766] "acetylic"           "acetyls"            "ache"              
 [769] "ached"              "achene"             "achenes"           
 [772] "achenial"           "aches"              "achier"            
 [775] "achiest"            "achievable"         "achieve"           
 [778] "achieved"           "achievement"        "achievements"      
 [781] "achiever"           "achievers"          "achieves"          
 [784] "achieving"          "achiness"           "achinesses"        
 [787] "aching"             "achingly"           "achiote"           
 [790] "achiotes"           "achoo"              "achromat"          
 [793] "achromats"          "achromic"           "achy"              
 [796] "acicula"            "aciculae"           "acicular"          
 [799] "aciculas"           "acid"               "acidhead"          
 [802] "acidheads"          "acidic"             "acidified"         
 [805] "acidifies"          "acidify"            "acidifying"        
 [808] "acidities"          "acidity"            "acidly"            
 [811] "acidness"           "acidnesses"         "acidoses"          
 [814] "acidosis"           "acidotic"           "acids"             
 [817] "acidy"              "acierate"           "acierated"         
 [820] "acierates"          "acierating"         "aciform"           
 [823] "acinar"             "acing"              "acini"             
 [826] "acinic"             "acinose"            "acinous"           
 [829] "acinus"             "acknowledge"        "acknowledged"      
 [832] "acknowledgement"    "acknowledgements"   "acknowledges"      
 [835] "acknowledging"      "acknowledgment"     "acknowledgments"   
 [838] "aclinic"            "acmatic"            "acme"              
 [841] "acmes"              "acmic"              "acne"              
 [844] "acned"              "acnes"              "acnode"            
 [847] "acnodes"            "acock"              "acold"             
 [850] "acolyte"            "acolytes"           "aconite"           
 [853] "aconites"           "aconitic"           "aconitum"          
 [856] "aconitums"          "acorn"              "acorns"            
 [859] "acoustic"           "acoustical"         "acoustically"      
 [862] "acoustics"          "acquaint"           "acquaintance"      
 [865] "acquaintances"      "acquaintanceship"   "acquaintanceships" 
 [868] "acquainted"         "acquainting"        "acquaints"         
 [871] "acquest"            "acquests"           "acquiesce"         
 [874] "acquiesced"         "acquiescence"       "acquiescences"     
 [877] "acquiescent"        "acquiescently"      "acquiesces"        
 [880] "acquiescing"        "acquire"            "acquired"          
 [883] "acquirer"           "acquirers"          "acquires"          
 [886] "acquiring"          "acquisition"        "acquisitions"      
 [889] "acquisitive"        "acquit"             "acquits"           
 [892] "acquitted"          "acquitting"         "acrasin"           
 [895] "acrasins"           "acre"               "acreage"           
 [898] "acreages"           "acred"              "acres"             
 [901] "acrid"              "acrider"            "acridest"          
 [904] "acridine"           "acridines"          "acridities"        
 [907] "acridity"           "acridly"            "acridness"         
 [910] "acridnesses"        "acrimonies"         "acrimonious"       
 [913] "acrimony"           "acrobat"            "acrobatic"         
 [916] "acrobats"           "acrodont"           "acrodonts"         
 [919] "acrogen"            "acrogens"           "acrolein"          
 [922] "acroleins"          "acrolith"           "acroliths"         
 [925] "acromia"            "acromial"           "acromion"          
 [928] "acronic"            "acronym"            "acronyms"          
 [931] "across"             "acrostic"           "acrostics"         
 [934] "acrotic"            "acrotism"           "acrotisms"         
 [937] "acrylate"           "acrylates"          "acrylic"           
 [940] "acrylics"           "act"                "acta"              
 [943] "actable"            "acted"              "actin"             
 [946] "actinal"            "acting"             "actings"           
 [949] "actinia"            "actiniae"           "actinian"          
 [952] "actinians"          "actinias"           "actinic"           
 [955] "actinide"           "actinides"          "actinism"          
 [958] "actinisms"          "actinium"           "actiniums"         
 [961] "actinoid"           "actinoids"          "actinon"           
 [964] "actinons"           "actins"             "action"            
 [967] "actions"            "activate"           "activated"         
 [970] "activates"          "activating"         "activation"        
 [973] "activations"        "active"             "actively"          
 [976] "actives"            "activism"           "activisms"         
 [979] "activist"           "activists"          "activities"        
 [982] "activity"           "actor"              "actorish"          
 [985] "actors"             "actress"            "actresses"         
 [988] "acts"               "actual"             "actualities"       
 [991] "actuality"          "actualization"      "actualizations"    
 [994] "actualize"          "actualized"         "actualizes"        
 [997] "actualizing"        "actually"           "actuarial"         
[1000] "actuaries"         

Saving as R Object

save(words_csc, file = "downloads/words_csc.Rda")

Now you can get words any time you want. Let’s verify this:

rm(words_csc)
load("downloads/words_csc.Rda")

Application: Advent of code, 2022 Day 1

Here is the coding challenge:

https://adventofcode.com/2022/day/1

We must find the maximum number of calories carried by any elf.

Download the Input

download.file(
  url = "https://github.com/homerhanumat/bcscr/blob/master/downloads/input_aoc_2022_01.txt?raw=true", 
  destfile = "downloads/input_aoc_2022_01.txt"
)

What File Looks Like

20576
21113
1865

2343
3759
4671

Blank lines separate the items carried by different elves.

Read It In

input <- readLines("downloads/input_aoc_2022_01.txt")
input
   [1] "20576" "21113" "1865"  ""      "2343"  "3759"  "4671"  "3514"  "6866" 
  [10] "4546"  "3609"  "6326"  "5906"  "5442"  "5195"  "5583"  "2710"  ""     
  [19] "16332" "2699"  "3741"  "7185"  "5896"  ""      "2267"  "3893"  "2980" 
  [28] "2947"  "3050"  "4802"  "3632"  "3782"  "3496"  "2039"  "5480"  "4251" 
  [37] "1354"  "4110"  "3729"  ""      "18422" "14719" "12219" "9338"  ""     
  [46] "3508"  "14810" "7562"  ""      "26427" ""      "50479" ""      "3728" 
  [55] "2075"  "2833"  "3230"  "5686"  "4192"  "6422"  "3889"  "3909"  "5401" 
  [64] "2133"  "4783"  "4033"  ""      "5427"  "5821"  "5961"  "2101"  "5372" 
  [73] "3020"  "1967"  "1515"  "3524"  "1501"  "5739"  "4338"  "1101"  "1814" 
  [82] ""      "31305" "16702" ""      "4486"  "9183"  "8344"  "12223" "7689" 
  [91] "3016"  ""      "8393"  "8685"  "13413" "10985" "8315"  "3788"  ""     
 [100] "13014" "3271"  "9400"  "1992"  "12994" ""      "11346" "10251" "4907" 
 [109] "10542" "7255"  "1851"  "10403" ""      "54808" ""      "22212" "20801"
 [118] "21801" ""      "5884"  "5430"  "2035"  "1874"  "12640" "8107"  ""     
 [127] "5482"  "6859"  "5162"  "8539"  "6095"  "5773"  "6728"  "1805"  ""     
 [136] "4318"  "7332"  "3963"  "8325"  "1885"  "2389"  "5016"  "3755"  "2506" 
 [145] "7459"  ""      "8462"  "8625"  "5314"  "4225"  "4490"  "5034"  "5831" 
 [154] "9497"  ""      "1372"  "4798"  "1102"  "3997"  "3807"  "2653"  "1825" 
 [163] "1917"  "3496"  "3109"  "5821"  "2541"  "1985"  "5603"  "4429"  ""     
 [172] "2610"  "2675"  "4421"  "6752"  "9773"  "11199" ""      "1461"  "4542" 
 [181] "3911"  "5062"  "2511"  "2698"  "2349"  "1237"  "5175"  "5261"  "2584" 
 [190] "5874"  "4620"  ""      "3224"  "2819"  "3777"  "1928"  "5084"  "4794" 
 [199] "6603"  "5089"  "1712"  "3575"  "6366"  "4996"  ""      "11590" "15298"
 [208] ""      "1732"  "5735"  "4073"  "8618"  "3323"  "9048"  "4057"  "1730" 
 [217] "1352"  ""      "6099"  "4661"  "4859"  "6238"  "5420"  "4029"  "6304" 
 [226] "4408"  "1153"  "3267"  "5079"  "5316"  "4313"  "2053"  ""      "3558" 
 [235] "7386"  "4576"  "3634"  "5316"  "2514"  "10040" "1142"  ""      "6295" 
 [244] "7089"  "3635"  "7431"  "4617"  "1446"  "2176"  "3275"  "2918"  "1017" 
 [253] "4783"  "7275"  ""      "5394"  "6103"  "12373" "11996" "11705" ""     
 [262] "7358"  "1411"  "6453"  "8222"  "2769"  "1876"  ""      "11664" "23449"
 [271] ""      "5790"  "5169"  "5938"  "4629"  "7410"  "2332"  "4168"  "3862" 
 [280] ""      "1178"  "2663"  "1199"  "2213"  "2130"  "4467"  "5858"  "2299" 
 [289] "5782"  "1258"  "2804"  "2389"  "3189"  "5331"  "1504"  ""      "20440"
 [298] ""      "14518" "37385" ""      "3145"  "3261"  "6673"  "10868" "5418" 
 [307] "5314"  ""      "11363" "32647" ""      "43296" ""      "15894" "13236"
 [316] "15512" "5712"  "14246" ""      "6781"  "2578"  "5618"  "5439"  "10274"
 [325] "1150"  "9670"  ""      "14103" "14290" "18309" ""      "2913"  "5225" 
 [334] "6490"  "6106"  "9720"  "3185"  "5319"  "7907"  ""      "4639"  "8200" 
 [343] "7643"  "6855"  "3179"  "7296"  "1722"  "3701"  "7727"  "4696"  ""     
 [352] "7122"  "1790"  "1000"  "1669"  "4656"  "1074"  "5694"  "3842"  "2869" 
 [361] "5367"  "4835"  "5366"  ""      "4403"  "29252" ""      "1334"  "3957" 
 [370] "6116"  "3518"  "4336"  "5956"  "2847"  "5139"  "4145"  "2381"  "1033" 
 [379] "1090"  "3084"  "1006"  "5445"  ""      "1266"  "8219"  "11975" "1448" 
 [388] "4872"  "5952"  "11836" ""      "47039" ""      "2057"  "1384"  "12248"
 [397] "5983"  "14939" ""      "3365"  "1461"  "5510"  "4133"  "5086"  "5883" 
 [406] "5206"  "1646"  "5123"  "5439"  "2604"  "3940"  "5788"  ""      "3323" 
 [415] "1300"  "5903"  "2394"  "3720"  "3032"  "3626"  "2745"  "1506"  "4918" 
 [424] "3444"  "4036"  "5288"  "4577"  "1312"  ""      "3799"  "4433"  "2101" 
 [433] "1111"  "1416"  "2845"  "3917"  "3831"  "3914"  "1470"  "5090"  "4247" 
 [442] "5826"  "4868"  "3098"  ""      "10489" "3303"  "14002" ""      "8497" 
 [451] "8272"  "10026" "7923"  "1514"  "4377"  ""      "10675" "6889"  ""     
 [460] "2209"  "1843"  "3090"  "2872"  "3131"  "3253"  "1451"  "4466"  "4324" 
 [469] "1846"  "5920"  "2230"  "5032"  "4709"  "5093"  ""      "8069"  "2206" 
 [478] "7783"  "8083"  "2719"  "7609"  "10018" "5760"  ""      "18179" "5920" 
 [487] "19231" "10281" ""      "8784"  "3672"  "8468"  "5364"  "6517"  "7935" 
 [496] "6765"  "4531"  "3725"  ""      "7255"  "5920"  "7198"  "6102"  "3508" 
 [505] "6387"  "7393"  "1369"  "5819"  "5501"  "4246"  "3924"  ""      "3015" 
 [514] "1547"  "2789"  "5256"  "3726"  "3730"  "3927"  "3119"  "6072"  "5975" 
 [523] "1699"  "1298"  "1143"  "3060"  "3621"  ""      "4768"  "4440"  "3737" 
 [532] "6842"  "4013"  "2782"  "4355"  "6429"  "2795"  "6119"  ""      "8073" 
 [541] "4257"  "6133"  "8704"  "7760"  "1856"  "6286"  "9540"  "4001"  ""     
 [550] "12220" "2290"  "11849" "5142"  "11334" "2195"  ""      "7417"  "2521" 
 [559] "6307"  "4973"  "6115"  "4711"  "6979"  "5766"  "4693"  "7093"  "5102" 
 [568] "6243"  ""      "5545"  "5788"  "6456"  "3505"  "1417"  "2795"  "1332" 
 [577] "2246"  "5923"  "4595"  "2625"  "5600"  "6882"  ""      "5151"  "1836" 
 [586] "1749"  "9667"  "5727"  "6016"  "5880"  "8658"  "5713"  ""      "11762"
 [595] "19759" "16927" "1676"  ""      "1416"  "2057"  "7261"  "6409"  "2761" 
 [604] "10013" "4271"  "5663"  ""      "4043"  "13430" "5809"  "5137"  "5567" 
 [613] "7237"  ""      "2272"  "2910"  "2347"  "4139"  "4200"  "1151"  "2200" 
 [622] "1080"  "2377"  "1025"  "2121"  "5555"  "4991"  "4064"  "1581"  ""     
 [631] "4410"  "5763"  "7428"  "2523"  "4697"  "3205"  "2112"  "7267"  "5998" 
 [640] "5260"  "2638"  ""      "24158" "11935" "16422" ""      "5646"  "8050" 
 [649] "9167"  "4442"  "8747"  "5644"  "1432"  "9406"  "5271"  ""      "6935" 
 [658] "5132"  "3932"  "1403"  "3481"  "6183"  "1379"  "3481"  "5295"  "2469" 
 [667] "6071"  ""      "1391"  "3909"  "3709"  "4322"  "5556"  "5680"  "3847" 
 [676] "6440"  "1186"  "3125"  "3309"  "1926"  "5055"  ""      "6720"  "2591" 
 [685] "5190"  "5752"  "6945"  "1449"  "2342"  "5203"  "6876"  "3126"  "5756" 
 [694] "3276"  "6033"  ""      "4172"  "4948"  "3283"  "4148"  "5099"  "1986" 
 [703] "5267"  "4268"  "2269"  "4827"  "1848"  "2069"  "4351"  "5824"  "3392" 
 [712] ""      "27910" "3719"  ""      "1614"  "4131"  "3647"  "1986"  "4052" 
 [721] "3567"  "6704"  "2935"  "5863"  "4276"  "3894"  "5633"  ""      "4661" 
 [730] "3119"  "12461" "6511"  ""      "8508"  "9046"  "9839"  "9767"  "11123"
 [739] "11641" "10796" ""      "18066" "13926" "12845" "16772" ""      "3277" 
 [748] "4231"  "6197"  "3835"  "5077"  "1997"  "4358"  "3227"  "4468"  "3439" 
 [757] "5138"  "2119"  "5151"  ""      "2154"  "7536"  "8238"  "5169"  "7593" 
 [766] "4794"  "1380"  "4787"  "3160"  ""      "4112"  "5593"  "1909"  "3865" 
 [775] "4222"  "5857"  "6345"  "5754"  "6790"  "3949"  "2151"  "6559"  "1628" 
 [784] ""      "4379"  "2228"  "5188"  "4142"  "1701"  "5397"  "3658"  "1239" 
 [793] "2550"  "4179"  "5389"  "2819"  "3685"  "2996"  ""      "11002" "13882"
 [802] "3882"  "13706" "11087" "5838"  ""      "10144" "10584" "5002"  "9792" 
 [811] "5020"  "2086"  "9097"  "2954"  ""      "7171"  "2630"  "8183"  "6856" 
 [820] "5022"  "2334"  "2581"  "5043"  "7984"  "6596"  ""      "37145" ""     
 [829] "7820"  "3645"  "3311"  "10883" "6330"  "8016"  "10794" ""      "6262" 
 [838] "5203"  "5709"  "5080"  "5320"  "2562"  "4604"  "4126"  "4549"  "5592" 
 [847] "7500"  ""      "1823"  "6193"  ""      "14600" "1724"  "12158" "3864" 
 [856] "2486"  ""      "1401"  "10132" "16192" "11882" ""      "4823"  "1689" 
 [865] "2524"  "6377"  "7431"  "4357"  "3713"  "7343"  "3457"  "6712"  "3012" 
 [874] "2947"  ""      "18318" ""      "30203" "24835" ""      "4292"  "1221" 
 [883] "5654"  "5428"  "5278"  "1575"  "4268"  "6023"  "3891"  "6261"  "5178" 
 [892] "1550"  "1173"  "4501"  ""      "3036"  "12480" "8453"  "7215"  "3536" 
 [901] ""      "6244"  "5588"  "2211"  "9838"  "10042" "4662"  ""      "7163" 
 [910] "7724"  "6376"  "3915"  "3922"  "5919"  "9180"  "4421"  "3726"  ""     
 [919] "6044"  "2245"  "9227"  "6569"  "11782" "2494"  "1405"  ""      "2826" 
 [928] "3400"  "4664"  "5917"  "2934"  "2817"  "2686"  "3770"  "4318"  "2659" 
 [937] "3960"  "3752"  "2592"  "3016"  ""      "3542"  "4286"  "4291"  "1668" 
 [946] "2999"  "4739"  "1226"  "3063"  "2509"  "4095"  "2918"  "4427"  "3673" 
 [955] "2312"  ""      "10232" "6672"  "2804"  "5236"  "10466" "6948"  "4811" 
 [964] "8435"  ""      "7315"  "9233"  "9488"  "7129"  "3549"  "8730"  "2150" 
 [973] "4258"  ""      "1510"  "1286"  "1316"  "4569"  "4419"  "1288"  "3313" 
 [982] "1076"  "2955"  "1837"  "1263"  "3531"  "5726"  "3300"  "4617"  ""     
 [991] "2779"  "9026"  "4720"  "3817"  "3701"  "9456"  "2337"  "9127"  "8076" 
[1000] ""      "4113"  "7168"  "7030"  "3438"  "1686"  "5641"  "5282"  "5710" 
[1009] "7170"  "7722"  "1365"  ""      "14199" "4119"  "6337"  ""      "7418" 
[1018] "16770" "12037" ""      "6225"  "4693"  "5303"  "2626"  "1008"  "4163" 
[1027] "2985"  "1425"  "4092"  "5396"  "3417"  "6143"  "6499"  "5619"  ""     
[1036] "1133"  "3945"  "4897"  "4828"  "3642"  "2893"  "1732"  "1247"  "1963" 
[1045] "5962"  "4106"  "3387"  "4829"  "2595"  "5867"  ""      "6122"  "3406" 
[1054] "6933"  "5611"  "1044"  "4815"  "5767"  "2562"  "2197"  "6550"  "5551" 
[1063] "3119"  ""      "2901"  "6744"  "3204"  "2822"  "5068"  "4457"  "1079" 
[1072] ""      "4452"  "1253"  "3943"  "6092"  "1706"  "4791"  "3951"  "2090" 
[1081] "3114"  "1515"  "2004"  "3980"  "6366"  "1771"  ""      "13893" "11323"
[1090] "13829" "7168"  "14871" ""      "4796"  "2089"  "7885"  "8628"  "6715" 
[1099] "4143"  "1381"  "1412"  "5611"  "3672"  ""      "3768"  "4839"  "3066" 
[1108] "12255" "2517"  "5999"  ""      "1810"  "2477"  "4634"  "3880"  "5517" 
[1117] "4773"  "6438"  "5496"  "3528"  "3022"  "5048"  "1612"  ""      "12728"
[1126] "11268" "4727"  "6643"  "6186"  "5735"  ""      "5856"  "4873"  "2587" 
[1135] "3053"  "2763"  "1681"  "1641"  "4235"  "1895"  "2865"  "3886"  "1090" 
[1144] ""      "7837"  "3957"  "7666"  "15287" "4153"  ""      "33476" "15842"
[1153] ""      "20446" "28621" ""      "4257"  "2252"  "5779"  "2424"  "3048" 
[1162] "4297"  "6185"  "3896"  ""      "5005"  "2248"  "4388"  "5507"  "7246" 
[1171] "5802"  "4730"  "6816"  "1882"  "3101"  "6888"  "7312"  ""      "4287" 
[1180] "16345" "11713" "1141"  "1576"  ""      "5534"  "13649" "2963"  "10251"
[1189] "8072"  ""      "46888" ""      "19996" ""      "6251"  "1783"  "2931" 
[1198] "9216"  "5802"  "6353"  "5406"  "10761" ""      "8964"  "6194"  "5594" 
[1207] "2981"  "4283"  "5227"  "1111"  ""      "3768"  "4065"  "1420"  "6334" 
[1216] "7126"  "3430"  ""      "6369"  "2958"  "2548"  "7475"  "6389"  "5121" 
[1225] "8008"  "1957"  "4481"  "8452"  ""      "2985"  "7921"  "7868"  "9901" 
[1234] "4221"  "8815"  ""      "12828" "35189" ""      "6415"  "3009"  "2332" 
[1243] "6851"  "5956"  "1894"  "6421"  "4728"  "6698"  "3628"  "2004"  "6174" 
[1252] "5251"  ""      "5518"  "4788"  "1959"  "5935"  "7906"  "6064"  "5242" 
[1261] "4082"  "8573"  "4529"  ""      "68508" ""      "3847"  "3451"  "8433" 
[1270] "5073"  "4464"  "7378"  "8997"  "8107"  "7266"  ""      "3750"  "3841" 
[1279] "4113"  "5005"  "4238"  "1316"  "4027"  "3120"  "6083"  "3892"  "6303" 
[1288] "6364"  "1699"  "5665"  ""      "2863"  "5168"  "2244"  "2180"  "6794" 
[1297] "5924"  "5793"  "2997"  "4871"  "7578"  "1821"  ""      "2717"  "1900" 
[1306] "4743"  "6280"  "8703"  "1225"  "2711"  "5260"  "3870"  "7283"  ""     
[1315] "4323"  "9508"  "3221"  "8294"  "4081"  "8086"  "5465"  "10185" ""     
[1324] "6295"  "9301"  "2663"  "9299"  "8681"  "2628"  "5173"  "8236"  ""     
[1333] "1093"  "6211"  "6172"  "3120"  "1545"  "5010"  "2555"  "4503"  "6041" 
[1342] "2256"  "2054"  "3556"  "4189"  "4079"  ""      "4227"  "5046"  "10539"
[1351] ""      "16145" "12616" "1897"  ""      "10759" "13443" "2817"  "5487" 
[1360] "7129"  "13704" ""      "9237"  "9637"  "5517"  "5033"  "7727"  "5903" 
[1369] "7685"  "6360"  "9147"  ""      "11730" "6487"  "7984"  "4641"  "10800"
[1378] "10737" ""      "2926"  "3365"  "10511" "1019"  "5174"  "6880"  "10022"
[1387] "2021"  ""      "7561"  "1995"  "2056"  "9535"  "12687" "11037" ""     
[1396] "2986"  "7624"  "4960"  "3148"  "3615"  "1248"  "6271"  "7689"  "6203" 
[1405] ""      "2078"  "6126"  "2217"  "3778"  "2469"  "2940"  "1009"  "3727" 
[1414] "3591"  "4631"  "6934"  "5679"  "5212"  ""      "7293"  "8422"  "1249" 
[1423] "9071"  "2397"  "9070"  "7249"  "5900"  "8496"  ""      "18221" "12199"
[1432] "23082" ""      "2756"  "2031"  "15919" "8850"  "11519" ""      "4213" 
[1441] "4007"  "4750"  "1689"  "6301"  "2769"  "1822"  "5633"  "3829"  "6259" 
[1450] "1941"  ""      "4566"  "11741" "2449"  "9639"  "2853"  ""      "5442" 
[1459] "2931"  "3418"  "2474"  "5999"  "3614"  "1092"  "5745"  "2216"  "5437" 
[1468] "4653"  "1596"  "2064"  "4568"  "3889"  ""      "30188" "30811" ""     
[1477] "6631"  "7390"  "4365"  "10085" "5771"  "5407"  ""      "5994"  "4371" 
[1486] "4328"  "4888"  "2557"  "4400"  "1917"  "2487"  "5787"  "4068"  "1608" 
[1495] "4897"  "1872"  "3580"  "1828"  ""      "12407" "15919" "18883" "10093"
[1504] ""      "10235" "18157" "10243" ""      "5020"  "7857"  "7218"  "4726" 
[1513] "5184"  "4807"  "5762"  "6433"  "4435"  "3292"  "2582"  ""      "5435" 
[1522] "3279"  "1483"  "2174"  "4082"  "2016"  "3470"  "1106"  "3156"  "5028" 
[1531] "3973"  "3309"  "4918"  "4886"  ""      "5234"  "9601"  "9386"  "4696" 
[1540] "5400"  "3738"  "4093"  ""      "3468"  ""      "2988"  "13322" "16091"
[1549] "6182"  ""      "8902"  "14057" "24074" ""      "2417"  "5580"  "5165" 
[1558] "7582"  "6674"  "6646"  "2562"  "7885"  ""      "4197"  "5211"  "2837" 
[1567] "6012"  "6525"  "4345"  "3060"  "4458"  "6405"  "6556"  "1167"  "2705" 
[1576] ""      "3137"  "4709"  "5239"  "3930"  "2685"  "5421"  "2847"  "2443" 
[1585] "3801"  "3067"  "4431"  "1073"  "6625"  ""      "25928" ""      "11278"
[1594] "3062"  "7704"  "7328"  "2742"  "7913"  "10850" ""      "4179"  "3352" 
[1603] ""      "5766"  "2479"  "5510"  "2723"  "1559"  "4851"  "2808"  "3149" 
[1612] "1900"  "5551"  "1168"  "4292"  "2706"  "1887"  ""      "5644"  "3980" 
[1621] "1953"  "1302"  "4673"  "4792"  "5560"  "4700"  "2098"  "4581"  "2026" 
[1630] "3986"  "3621"  "2729"  "2734"  ""      "1634"  "1891"  "5864"  "3643" 
[1639] "1622"  "1096"  "3405"  "3519"  "4975"  "4773"  "4544"  "4211"  "2889" 
[1648] "5510"  "5677"  ""      "5747"  "3716"  "1570"  "4609"  "3562"  "1537" 
[1657] "5157"  "4558"  "4131"  "4544"  "4445"  "5116"  "2357"  ""      "8035" 
[1666] "15475" "8791"  "12796" "1809"  ""      "3956"  "3423"  ""      "4498" 
[1675] "14291" "5435"  "11333" "12805" ""      "16130" "15515" "8077"  "5292" 
[1684] "14806" ""      "5441"  "7830"  "8229"  "19304" ""      "6133"  "6807" 
[1693] "5145"  "3100"  "2799"  "6450"  "2844"  "7369"  "5750"  "7453"  "6917" 
[1702] "5280"  ""      "7733"  "6790"  "3399"  "9413"  "9225"  "7820"  "3627" 
[1711] ""      "10128" "5460"  "6217"  "1468"  "5069"  "1867"  "2561"  "3563" 
[1720] ""      "6203"  "1220"  "5422"  "9143"  "8279"  "9127"  "2197"  "7563" 
[1729] "5805"  ""      "5641"  "4988"  "3833"  "6330"  "5125"  "4818"  "4985" 
[1738] "5806"  "2835"  "2538"  "4243"  "3944"  "1313"  "5633"  ""      "1670" 
[1747] "3783"  "5004"  "9925"  "2056"  "8138"  "2273"  "5211"  ""      "7054" 
[1756] "3876"  "4804"  "5782"  "2864"  "4869"  "3974"  "3365"  "7392"  "1003" 
[1765] "3421"  "2282"  ""      "16982" "10310" "9105"  "15909" ""      "4006" 
[1774] "4721"  "1089"  "3784"  "3735"  "1462"  "3572"  "3903"  "5100"  "3553" 
[1783] "4538"  "5008"  "3474"  "6114"  "5023"  ""      "7712"  "3772"  "6012" 
[1792] "3780"  "2039"  "1225"  "4572"  "7205"  "3724"  "2743"  "5649"  ""     
[1801] "13835" "16341" ""      "2440"  "3526"  "5922"  "4275"  "6518"  "7738" 
[1810] "4511"  "9176"  "6738"  ""      "8973"  "1525"  "11024" "10053" "1167" 
[1819] ""      "6878"  "6330"  "2436"  "6166"  "6009"  "5824"  "5849"  "7599" 
[1828] "7667"  ""      "6661"  "32224" ""      "4835"  "4152"  "5550"  "17374"
[1837] ""      "4829"  "11255" "11845" "8734"  "11026" "12040" "2598"  ""     
[1846] "5651"  "8148"  "7319"  "7168"  "2570"  "2667"  "6102"  "7372"  "1901" 
[1855] ""      "5257"  "1897"  "5295"  "2643"  "6499"  "6384"  "1979"  "4897" 
[1864] "6198"  "4986"  "4463"  "6078"  "1669"  ""      "36617" "9770"  ""     
[1873] "5488"  "18324" "3889"  "2697"  ""      "3909"  "5302"  "7668"  "4954" 
[1882] "4574"  "7610"  "4162"  "1222"  "5727"  "4826"  "4429"  ""      "50529"
[1891] ""      "4561"  "7022"  "7778"  "7386"  "2126"  "1350"  "8767"  "1089" 
[1900] "4340"  "1013"  ""      "2218"  "6429"  "5964"  "1643"  "1181"  "6695" 
[1909] "6759"  "1766"  "2985"  "3029"  "6439"  "2646"  "6814"  ""      "53117"
[1918] ""      "9836"  "6608"  "13067" "4747"  "10627" "7074"  ""      "7382" 
[1927] "7263"  "2142"  "2197"  "3237"  "4509"  "6866"  "1487"  "6288"  "3515" 
[1936] "4318"  "4403"  ""      "9503"  "7732"  "9320"  "4184"  "4429"  "10334"
[1945] "3313"  "5438"  ""      "15150" "15460" "14761" "8079"  "1070"  ""     
[1954] "2206"  "6973"  "7571"  "2311"  "3170"  "8153"  "7794"  "9043"  "3857" 
[1963] ""      "4169"  "3297"  "1703"  "6039"  "1189"  "4565"  "5455"  "1584" 
[1972] "4338"  "1759"  "1854"  "1093"  "5004"  "1133"  "2004"  ""      "5262" 
[1981] "3782"  "2259"  "5446"  "2978"  "6146"  "1939"  "1805"  "4517"  "2969" 
[1990] "6390"  "2784"  "3689"  ""      "10342" "6089"  "7688"  "10383" "4769" 
[1999] "7696"  "7393"  "10301" ""      "6666"  "10943" "1638"  "1975"  "5509" 
[2008] "5767"  "5673"  ""      "15320" "23126" ""      "2813"  "7182"  "3956" 
[2017] "7486"  "10251" "4172"  "1862"  "4006"  ""      "15496" "4847"  "8430" 
[2026] "1683"  "13281" ""      "4685"  "3580"  "1308"  "8183"  "6367"  "8410" 
[2035] "3052"  "3020"  "1217"  ""      "4252"  "5883"  "4079"  "3580"  "3064" 
[2044] "1385"  "4488"  "1790"  "4826"  "3157"  "1747"  "1783"  "3312"  "4652" 
[2053] ""      "14551" ""      "3025"  "13696" "3537"  "4087"  ""      "6169" 
[2062] "5270"  "5187"  "3572"  "3060"  "3599"  "4252"  "4886"  "5244"  "5231" 
[2071] "1359"  "6340"  "2142"  "4429"  ""      "5850"  "4447"  "7828"  "4518" 
[2080] "6431"  "5995"  "1284"  "5499"  "1372"  "2666"  "7721"  ""      "1191" 
[2089] "20856" ""      "13838" "2247"  "12654" "11027" "9684"  ""      "4997" 
[2098] "8716"  "6293"  "7317"  "1002"  "5121"  "6663"  "7838"  "1922"  "8001" 
[2107] ""      "5614"  "13883" "2757"  "11574" "3051"  "11435" ""      "45664"
[2116] ""      "2476"  "7792"  "8480"  "7283"  "9042"  "7090"  "5830"  ""     
[2125] "2721"  "6238"  "8011"  "1974"  "3526"  "2811"  "6167"  "1778"  "3507" 
[2134] "7992"  ""      "3082"  "4367"  "4463"  "1753"  "3627"  "1468"  "2616" 
[2143] "1456"  "1033"  "1110"  "2453"  "5058"  "1665"  "4399"  "5720"  ""     
[2152] "4019"  "6080"  "5496"  "3896"  "5752"  "2673"  "2460"  "2284"  "6342" 
[2161] "1710"  "3860"  "1223"  "4688"  ""      "1121"  "3153"  "2961"  "2103" 
[2170] "3816"  "6492"  "5483"  "2086"  "6154"  "4440"  "3196"  "1630"  "3140" 
[2179] ""      "4140"  "6238"  "1092"  "1218"  "5688"  "6097"  "5695"  "3413" 
[2188] "9453"  ""      "29041" ""      "3320"  "10344" "21501" ""      "8209" 
[2197] "11402" "11152" "6367"  "5191"  "8598"  "8608"  ""      "12087" "24388"
[2206] "22987" ""      "1668"  "3447"  "7162"  "6136"  "5098"  "1868"  "2116" 
[2215] "2716"  "1715"  "1089"  "5410"  "5259"  ""      "5913"  "3696"  "2832" 
[2224] "5618"  "3555"  "1311"  "3641"  "2488"  "4987"  "2104"  "2269"  "3040" 
[2233] "1706"  "3762"  "2384"  ""      "6731"  "2310"  "3908"  "6314"  "1004" 
[2242] "4632"  "3402"  "2044"  "3407"  "2833"  "1007"  "4695"  ""      "4894" 
[2251] "9624"  ""     

Parse to Numbers

Coerce the strings into numbers with as.numeric():

calories <- as.numeric(input)
calories
   [1] 20576 21113  1865    NA  2343  3759  4671  3514  6866  4546  3609  6326
  [13]  5906  5442  5195  5583  2710    NA 16332  2699  3741  7185  5896    NA
  [25]  2267  3893  2980  2947  3050  4802  3632  3782  3496  2039  5480  4251
  [37]  1354  4110  3729    NA 18422 14719 12219  9338    NA  3508 14810  7562
  [49]    NA 26427    NA 50479    NA  3728  2075  2833  3230  5686  4192  6422
  [61]  3889  3909  5401  2133  4783  4033    NA  5427  5821  5961  2101  5372
  [73]  3020  1967  1515  3524  1501  5739  4338  1101  1814    NA 31305 16702
  [85]    NA  4486  9183  8344 12223  7689  3016    NA  8393  8685 13413 10985
  [97]  8315  3788    NA 13014  3271  9400  1992 12994    NA 11346 10251  4907
 [109] 10542  7255  1851 10403    NA 54808    NA 22212 20801 21801    NA  5884
 [121]  5430  2035  1874 12640  8107    NA  5482  6859  5162  8539  6095  5773
 [133]  6728  1805    NA  4318  7332  3963  8325  1885  2389  5016  3755  2506
 [145]  7459    NA  8462  8625  5314  4225  4490  5034  5831  9497    NA  1372
 [157]  4798  1102  3997  3807  2653  1825  1917  3496  3109  5821  2541  1985
 [169]  5603  4429    NA  2610  2675  4421  6752  9773 11199    NA  1461  4542
 [181]  3911  5062  2511  2698  2349  1237  5175  5261  2584  5874  4620    NA
 [193]  3224  2819  3777  1928  5084  4794  6603  5089  1712  3575  6366  4996
 [205]    NA 11590 15298    NA  1732  5735  4073  8618  3323  9048  4057  1730
 [217]  1352    NA  6099  4661  4859  6238  5420  4029  6304  4408  1153  3267
 [229]  5079  5316  4313  2053    NA  3558  7386  4576  3634  5316  2514 10040
 [241]  1142    NA  6295  7089  3635  7431  4617  1446  2176  3275  2918  1017
 [253]  4783  7275    NA  5394  6103 12373 11996 11705    NA  7358  1411  6453
 [265]  8222  2769  1876    NA 11664 23449    NA  5790  5169  5938  4629  7410
 [277]  2332  4168  3862    NA  1178  2663  1199  2213  2130  4467  5858  2299
 [289]  5782  1258  2804  2389  3189  5331  1504    NA 20440    NA 14518 37385
 [301]    NA  3145  3261  6673 10868  5418  5314    NA 11363 32647    NA 43296
 [313]    NA 15894 13236 15512  5712 14246    NA  6781  2578  5618  5439 10274
 [325]  1150  9670    NA 14103 14290 18309    NA  2913  5225  6490  6106  9720
 [337]  3185  5319  7907    NA  4639  8200  7643  6855  3179  7296  1722  3701
 [349]  7727  4696    NA  7122  1790  1000  1669  4656  1074  5694  3842  2869
 [361]  5367  4835  5366    NA  4403 29252    NA  1334  3957  6116  3518  4336
 [373]  5956  2847  5139  4145  2381  1033  1090  3084  1006  5445    NA  1266
 [385]  8219 11975  1448  4872  5952 11836    NA 47039    NA  2057  1384 12248
 [397]  5983 14939    NA  3365  1461  5510  4133  5086  5883  5206  1646  5123
 [409]  5439  2604  3940  5788    NA  3323  1300  5903  2394  3720  3032  3626
 [421]  2745  1506  4918  3444  4036  5288  4577  1312    NA  3799  4433  2101
 [433]  1111  1416  2845  3917  3831  3914  1470  5090  4247  5826  4868  3098
 [445]    NA 10489  3303 14002    NA  8497  8272 10026  7923  1514  4377    NA
 [457] 10675  6889    NA  2209  1843  3090  2872  3131  3253  1451  4466  4324
 [469]  1846  5920  2230  5032  4709  5093    NA  8069  2206  7783  8083  2719
 [481]  7609 10018  5760    NA 18179  5920 19231 10281    NA  8784  3672  8468
 [493]  5364  6517  7935  6765  4531  3725    NA  7255  5920  7198  6102  3508
 [505]  6387  7393  1369  5819  5501  4246  3924    NA  3015  1547  2789  5256
 [517]  3726  3730  3927  3119  6072  5975  1699  1298  1143  3060  3621    NA
 [529]  4768  4440  3737  6842  4013  2782  4355  6429  2795  6119    NA  8073
 [541]  4257  6133  8704  7760  1856  6286  9540  4001    NA 12220  2290 11849
 [553]  5142 11334  2195    NA  7417  2521  6307  4973  6115  4711  6979  5766
 [565]  4693  7093  5102  6243    NA  5545  5788  6456  3505  1417  2795  1332
 [577]  2246  5923  4595  2625  5600  6882    NA  5151  1836  1749  9667  5727
 [589]  6016  5880  8658  5713    NA 11762 19759 16927  1676    NA  1416  2057
 [601]  7261  6409  2761 10013  4271  5663    NA  4043 13430  5809  5137  5567
 [613]  7237    NA  2272  2910  2347  4139  4200  1151  2200  1080  2377  1025
 [625]  2121  5555  4991  4064  1581    NA  4410  5763  7428  2523  4697  3205
 [637]  2112  7267  5998  5260  2638    NA 24158 11935 16422    NA  5646  8050
 [649]  9167  4442  8747  5644  1432  9406  5271    NA  6935  5132  3932  1403
 [661]  3481  6183  1379  3481  5295  2469  6071    NA  1391  3909  3709  4322
 [673]  5556  5680  3847  6440  1186  3125  3309  1926  5055    NA  6720  2591
 [685]  5190  5752  6945  1449  2342  5203  6876  3126  5756  3276  6033    NA
 [697]  4172  4948  3283  4148  5099  1986  5267  4268  2269  4827  1848  2069
 [709]  4351  5824  3392    NA 27910  3719    NA  1614  4131  3647  1986  4052
 [721]  3567  6704  2935  5863  4276  3894  5633    NA  4661  3119 12461  6511
 [733]    NA  8508  9046  9839  9767 11123 11641 10796    NA 18066 13926 12845
 [745] 16772    NA  3277  4231  6197  3835  5077  1997  4358  3227  4468  3439
 [757]  5138  2119  5151    NA  2154  7536  8238  5169  7593  4794  1380  4787
 [769]  3160    NA  4112  5593  1909  3865  4222  5857  6345  5754  6790  3949
 [781]  2151  6559  1628    NA  4379  2228  5188  4142  1701  5397  3658  1239
 [793]  2550  4179  5389  2819  3685  2996    NA 11002 13882  3882 13706 11087
 [805]  5838    NA 10144 10584  5002  9792  5020  2086  9097  2954    NA  7171
 [817]  2630  8183  6856  5022  2334  2581  5043  7984  6596    NA 37145    NA
 [829]  7820  3645  3311 10883  6330  8016 10794    NA  6262  5203  5709  5080
 [841]  5320  2562  4604  4126  4549  5592  7500    NA  1823  6193    NA 14600
 [853]  1724 12158  3864  2486    NA  1401 10132 16192 11882    NA  4823  1689
 [865]  2524  6377  7431  4357  3713  7343  3457  6712  3012  2947    NA 18318
 [877]    NA 30203 24835    NA  4292  1221  5654  5428  5278  1575  4268  6023
 [889]  3891  6261  5178  1550  1173  4501    NA  3036 12480  8453  7215  3536
 [901]    NA  6244  5588  2211  9838 10042  4662    NA  7163  7724  6376  3915
 [913]  3922  5919  9180  4421  3726    NA  6044  2245  9227  6569 11782  2494
 [925]  1405    NA  2826  3400  4664  5917  2934  2817  2686  3770  4318  2659
 [937]  3960  3752  2592  3016    NA  3542  4286  4291  1668  2999  4739  1226
 [949]  3063  2509  4095  2918  4427  3673  2312    NA 10232  6672  2804  5236
 [961] 10466  6948  4811  8435    NA  7315  9233  9488  7129  3549  8730  2150
 [973]  4258    NA  1510  1286  1316  4569  4419  1288  3313  1076  2955  1837
 [985]  1263  3531  5726  3300  4617    NA  2779  9026  4720  3817  3701  9456
 [997]  2337  9127  8076    NA  4113  7168  7030  3438  1686  5641  5282  5710
[1009]  7170  7722  1365    NA 14199  4119  6337    NA  7418 16770 12037    NA
[1021]  6225  4693  5303  2626  1008  4163  2985  1425  4092  5396  3417  6143
[1033]  6499  5619    NA  1133  3945  4897  4828  3642  2893  1732  1247  1963
[1045]  5962  4106  3387  4829  2595  5867    NA  6122  3406  6933  5611  1044
[1057]  4815  5767  2562  2197  6550  5551  3119    NA  2901  6744  3204  2822
[1069]  5068  4457  1079    NA  4452  1253  3943  6092  1706  4791  3951  2090
[1081]  3114  1515  2004  3980  6366  1771    NA 13893 11323 13829  7168 14871
[1093]    NA  4796  2089  7885  8628  6715  4143  1381  1412  5611  3672    NA
[1105]  3768  4839  3066 12255  2517  5999    NA  1810  2477  4634  3880  5517
[1117]  4773  6438  5496  3528  3022  5048  1612    NA 12728 11268  4727  6643
[1129]  6186  5735    NA  5856  4873  2587  3053  2763  1681  1641  4235  1895
[1141]  2865  3886  1090    NA  7837  3957  7666 15287  4153    NA 33476 15842
[1153]    NA 20446 28621    NA  4257  2252  5779  2424  3048  4297  6185  3896
[1165]    NA  5005  2248  4388  5507  7246  5802  4730  6816  1882  3101  6888
[1177]  7312    NA  4287 16345 11713  1141  1576    NA  5534 13649  2963 10251
[1189]  8072    NA 46888    NA 19996    NA  6251  1783  2931  9216  5802  6353
[1201]  5406 10761    NA  8964  6194  5594  2981  4283  5227  1111    NA  3768
[1213]  4065  1420  6334  7126  3430    NA  6369  2958  2548  7475  6389  5121
[1225]  8008  1957  4481  8452    NA  2985  7921  7868  9901  4221  8815    NA
[1237] 12828 35189    NA  6415  3009  2332  6851  5956  1894  6421  4728  6698
[1249]  3628  2004  6174  5251    NA  5518  4788  1959  5935  7906  6064  5242
[1261]  4082  8573  4529    NA 68508    NA  3847  3451  8433  5073  4464  7378
[1273]  8997  8107  7266    NA  3750  3841  4113  5005  4238  1316  4027  3120
[1285]  6083  3892  6303  6364  1699  5665    NA  2863  5168  2244  2180  6794
[1297]  5924  5793  2997  4871  7578  1821    NA  2717  1900  4743  6280  8703
[1309]  1225  2711  5260  3870  7283    NA  4323  9508  3221  8294  4081  8086
[1321]  5465 10185    NA  6295  9301  2663  9299  8681  2628  5173  8236    NA
[1333]  1093  6211  6172  3120  1545  5010  2555  4503  6041  2256  2054  3556
[1345]  4189  4079    NA  4227  5046 10539    NA 16145 12616  1897    NA 10759
[1357] 13443  2817  5487  7129 13704    NA  9237  9637  5517  5033  7727  5903
[1369]  7685  6360  9147    NA 11730  6487  7984  4641 10800 10737    NA  2926
[1381]  3365 10511  1019  5174  6880 10022  2021    NA  7561  1995  2056  9535
[1393] 12687 11037    NA  2986  7624  4960  3148  3615  1248  6271  7689  6203
[1405]    NA  2078  6126  2217  3778  2469  2940  1009  3727  3591  4631  6934
[1417]  5679  5212    NA  7293  8422  1249  9071  2397  9070  7249  5900  8496
[1429]    NA 18221 12199 23082    NA  2756  2031 15919  8850 11519    NA  4213
[1441]  4007  4750  1689  6301  2769  1822  5633  3829  6259  1941    NA  4566
[1453] 11741  2449  9639  2853    NA  5442  2931  3418  2474  5999  3614  1092
[1465]  5745  2216  5437  4653  1596  2064  4568  3889    NA 30188 30811    NA
[1477]  6631  7390  4365 10085  5771  5407    NA  5994  4371  4328  4888  2557
[1489]  4400  1917  2487  5787  4068  1608  4897  1872  3580  1828    NA 12407
[1501] 15919 18883 10093    NA 10235 18157 10243    NA  5020  7857  7218  4726
[1513]  5184  4807  5762  6433  4435  3292  2582    NA  5435  3279  1483  2174
[1525]  4082  2016  3470  1106  3156  5028  3973  3309  4918  4886    NA  5234
[1537]  9601  9386  4696  5400  3738  4093    NA  3468    NA  2988 13322 16091
[1549]  6182    NA  8902 14057 24074    NA  2417  5580  5165  7582  6674  6646
[1561]  2562  7885    NA  4197  5211  2837  6012  6525  4345  3060  4458  6405
[1573]  6556  1167  2705    NA  3137  4709  5239  3930  2685  5421  2847  2443
[1585]  3801  3067  4431  1073  6625    NA 25928    NA 11278  3062  7704  7328
[1597]  2742  7913 10850    NA  4179  3352    NA  5766  2479  5510  2723  1559
[1609]  4851  2808  3149  1900  5551  1168  4292  2706  1887    NA  5644  3980
[1621]  1953  1302  4673  4792  5560  4700  2098  4581  2026  3986  3621  2729
[1633]  2734    NA  1634  1891  5864  3643  1622  1096  3405  3519  4975  4773
[1645]  4544  4211  2889  5510  5677    NA  5747  3716  1570  4609  3562  1537
[1657]  5157  4558  4131  4544  4445  5116  2357    NA  8035 15475  8791 12796
[1669]  1809    NA  3956  3423    NA  4498 14291  5435 11333 12805    NA 16130
[1681] 15515  8077  5292 14806    NA  5441  7830  8229 19304    NA  6133  6807
[1693]  5145  3100  2799  6450  2844  7369  5750  7453  6917  5280    NA  7733
[1705]  6790  3399  9413  9225  7820  3627    NA 10128  5460  6217  1468  5069
[1717]  1867  2561  3563    NA  6203  1220  5422  9143  8279  9127  2197  7563
[1729]  5805    NA  5641  4988  3833  6330  5125  4818  4985  5806  2835  2538
[1741]  4243  3944  1313  5633    NA  1670  3783  5004  9925  2056  8138  2273
[1753]  5211    NA  7054  3876  4804  5782  2864  4869  3974  3365  7392  1003
[1765]  3421  2282    NA 16982 10310  9105 15909    NA  4006  4721  1089  3784
[1777]  3735  1462  3572  3903  5100  3553  4538  5008  3474  6114  5023    NA
[1789]  7712  3772  6012  3780  2039  1225  4572  7205  3724  2743  5649    NA
[1801] 13835 16341    NA  2440  3526  5922  4275  6518  7738  4511  9176  6738
[1813]    NA  8973  1525 11024 10053  1167    NA  6878  6330  2436  6166  6009
[1825]  5824  5849  7599  7667    NA  6661 32224    NA  4835  4152  5550 17374
[1837]    NA  4829 11255 11845  8734 11026 12040  2598    NA  5651  8148  7319
[1849]  7168  2570  2667  6102  7372  1901    NA  5257  1897  5295  2643  6499
[1861]  6384  1979  4897  6198  4986  4463  6078  1669    NA 36617  9770    NA
[1873]  5488 18324  3889  2697    NA  3909  5302  7668  4954  4574  7610  4162
[1885]  1222  5727  4826  4429    NA 50529    NA  4561  7022  7778  7386  2126
[1897]  1350  8767  1089  4340  1013    NA  2218  6429  5964  1643  1181  6695
[1909]  6759  1766  2985  3029  6439  2646  6814    NA 53117    NA  9836  6608
[1921] 13067  4747 10627  7074    NA  7382  7263  2142  2197  3237  4509  6866
[1933]  1487  6288  3515  4318  4403    NA  9503  7732  9320  4184  4429 10334
[1945]  3313  5438    NA 15150 15460 14761  8079  1070    NA  2206  6973  7571
[1957]  2311  3170  8153  7794  9043  3857    NA  4169  3297  1703  6039  1189
[1969]  4565  5455  1584  4338  1759  1854  1093  5004  1133  2004    NA  5262
[1981]  3782  2259  5446  2978  6146  1939  1805  4517  2969  6390  2784  3689
[1993]    NA 10342  6089  7688 10383  4769  7696  7393 10301    NA  6666 10943
[2005]  1638  1975  5509  5767  5673    NA 15320 23126    NA  2813  7182  3956
[2017]  7486 10251  4172  1862  4006    NA 15496  4847  8430  1683 13281    NA
[2029]  4685  3580  1308  8183  6367  8410  3052  3020  1217    NA  4252  5883
[2041]  4079  3580  3064  1385  4488  1790  4826  3157  1747  1783  3312  4652
[2053]    NA 14551    NA  3025 13696  3537  4087    NA  6169  5270  5187  3572
[2065]  3060  3599  4252  4886  5244  5231  1359  6340  2142  4429    NA  5850
[2077]  4447  7828  4518  6431  5995  1284  5499  1372  2666  7721    NA  1191
[2089] 20856    NA 13838  2247 12654 11027  9684    NA  4997  8716  6293  7317
[2101]  1002  5121  6663  7838  1922  8001    NA  5614 13883  2757 11574  3051
[2113] 11435    NA 45664    NA  2476  7792  8480  7283  9042  7090  5830    NA
[2125]  2721  6238  8011  1974  3526  2811  6167  1778  3507  7992    NA  3082
[2137]  4367  4463  1753  3627  1468  2616  1456  1033  1110  2453  5058  1665
[2149]  4399  5720    NA  4019  6080  5496  3896  5752  2673  2460  2284  6342
[2161]  1710  3860  1223  4688    NA  1121  3153  2961  2103  3816  6492  5483
[2173]  2086  6154  4440  3196  1630  3140    NA  4140  6238  1092  1218  5688
[2185]  6097  5695  3413  9453    NA 29041    NA  3320 10344 21501    NA  8209
[2197] 11402 11152  6367  5191  8598  8608    NA 12087 24388 22987    NA  1668
[2209]  3447  7162  6136  5098  1868  2116  2716  1715  1089  5410  5259    NA
[2221]  5913  3696  2832  5618  3555  1311  3641  2488  4987  2104  2269  3040
[2233]  1706  3762  2384    NA  6731  2310  3908  6314  1004  4632  3402  2044
[2245]  3407  2833  1007  4695    NA  4894  9624    NA

Create Elf ID-Numbers

elf <-
  ifelse(is.na(calories), 1,0) %>% 
  cumsum()
elf[1:50]
 [1] 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
[39] 3 4 4 4 4 4 5 5 5 5 6 6

We have an elf 0, an elf 1, an elf 2, and so on.

Remove the NA Elements

The places where calories is NA do not correspond to any item, so drop:

elf <- elf[!is.na(calories)]
calories <- calories[!is.na(calories)]

Make a Data Frame

df <- data.frame(
  elf,
  calories
)
df
     elf calories
1      0    20576
2      0    21113
3      0     1865
4      1     2343
5      1     3759
6      1     4671
7      1     3514
8      1     6866
9      1     4546
10     1     3609
11     1     6326
12     1     5906
13     1     5442
14     1     5195
15     1     5583
16     1     2710
17     2    16332
18     2     2699
19     2     3741
20     2     7185
21     2     5896
22     3     2267
23     3     3893
24     3     2980
25     3     2947
26     3     3050
27     3     4802
28     3     3632
29     3     3782
30     3     3496
31     3     2039
32     3     5480
33     3     4251
34     3     1354
35     3     4110
36     3     3729
37     4    18422
38     4    14719
39     4    12219
40     4     9338
41     5     3508
42     5    14810
43     5     7562
44     6    26427
45     7    50479
46     8     3728
47     8     2075
48     8     2833
49     8     3230
50     8     5686
51     8     4192
52     8     6422
53     8     3889
54     8     3909
55     8     5401
56     8     2133
57     8     4783
58     8     4033
59     9     5427
60     9     5821
61     9     5961
62     9     2101
63     9     5372
64     9     3020
65     9     1967
66     9     1515
67     9     3524
68     9     1501
69     9     5739
70     9     4338
71     9     1101
72     9     1814
73    10    31305
74    10    16702
75    11     4486
76    11     9183
77    11     8344
78    11    12223
79    11     7689
80    11     3016
81    12     8393
82    12     8685
83    12    13413
84    12    10985
85    12     8315
86    12     3788
87    13    13014
88    13     3271
89    13     9400
90    13     1992
91    13    12994
92    14    11346
93    14    10251
94    14     4907
95    14    10542
96    14     7255
97    14     1851
98    14    10403
99    15    54808
100   16    22212
101   16    20801
102   16    21801
103   17     5884
104   17     5430
105   17     2035
106   17     1874
107   17    12640
108   17     8107
109   18     5482
110   18     6859
111   18     5162
112   18     8539
113   18     6095
114   18     5773
115   18     6728
116   18     1805
117   19     4318
118   19     7332
119   19     3963
120   19     8325
121   19     1885
122   19     2389
123   19     5016
124   19     3755
125   19     2506
126   19     7459
127   20     8462
128   20     8625
129   20     5314
130   20     4225
131   20     4490
132   20     5034
133   20     5831
134   20     9497
135   21     1372
136   21     4798
137   21     1102
138   21     3997
139   21     3807
140   21     2653
141   21     1825
142   21     1917
143   21     3496
144   21     3109
145   21     5821
146   21     2541
147   21     1985
148   21     5603
149   21     4429
150   22     2610
151   22     2675
152   22     4421
153   22     6752
154   22     9773
155   22    11199
156   23     1461
157   23     4542
158   23     3911
159   23     5062
160   23     2511
161   23     2698
162   23     2349
163   23     1237
164   23     5175
165   23     5261
166   23     2584
167   23     5874
168   23     4620
169   24     3224
170   24     2819
171   24     3777
172   24     1928
173   24     5084
174   24     4794
175   24     6603
176   24     5089
177   24     1712
178   24     3575
179   24     6366
180   24     4996
181   25    11590
182   25    15298
183   26     1732
184   26     5735
185   26     4073
186   26     8618
187   26     3323
188   26     9048
189   26     4057
190   26     1730
191   26     1352
192   27     6099
193   27     4661
194   27     4859
195   27     6238
196   27     5420
197   27     4029
198   27     6304
199   27     4408
200   27     1153
201   27     3267
202   27     5079
203   27     5316
204   27     4313
205   27     2053
206   28     3558
207   28     7386
208   28     4576
209   28     3634
210   28     5316
211   28     2514
212   28    10040
213   28     1142
214   29     6295
215   29     7089
216   29     3635
217   29     7431
218   29     4617
219   29     1446
220   29     2176
221   29     3275
222   29     2918
223   29     1017
224   29     4783
225   29     7275
226   30     5394
227   30     6103
228   30    12373
229   30    11996
230   30    11705
231   31     7358
232   31     1411
233   31     6453
234   31     8222
235   31     2769
236   31     1876
237   32    11664
238   32    23449
239   33     5790
240   33     5169
241   33     5938
242   33     4629
243   33     7410
244   33     2332
245   33     4168
246   33     3862
247   34     1178
248   34     2663
249   34     1199
250   34     2213
251   34     2130
252   34     4467
253   34     5858
254   34     2299
255   34     5782
256   34     1258
257   34     2804
258   34     2389
259   34     3189
260   34     5331
261   34     1504
262   35    20440
263   36    14518
264   36    37385
265   37     3145
266   37     3261
267   37     6673
268   37    10868
269   37     5418
270   37     5314
271   38    11363
272   38    32647
273   39    43296
274   40    15894
275   40    13236
276   40    15512
277   40     5712
278   40    14246
279   41     6781
280   41     2578
281   41     5618
282   41     5439
283   41    10274
284   41     1150
285   41     9670
286   42    14103
287   42    14290
288   42    18309
289   43     2913
290   43     5225
291   43     6490
292   43     6106
293   43     9720
294   43     3185
295   43     5319
296   43     7907
297   44     4639
298   44     8200
299   44     7643
300   44     6855
301   44     3179
302   44     7296
303   44     1722
304   44     3701
305   44     7727
306   44     4696
307   45     7122
308   45     1790
309   45     1000
310   45     1669
311   45     4656
312   45     1074
313   45     5694
314   45     3842
315   45     2869
316   45     5367
317   45     4835
318   45     5366
319   46     4403
320   46    29252
321   47     1334
322   47     3957
323   47     6116
324   47     3518
325   47     4336
326   47     5956
327   47     2847
328   47     5139
329   47     4145
330   47     2381
331   47     1033
332   47     1090
333   47     3084
334   47     1006
335   47     5445
336   48     1266
337   48     8219
338   48    11975
339   48     1448
340   48     4872
341   48     5952
342   48    11836
343   49    47039
344   50     2057
345   50     1384
346   50    12248
347   50     5983
348   50    14939
349   51     3365
350   51     1461
351   51     5510
352   51     4133
353   51     5086
354   51     5883
355   51     5206
356   51     1646
357   51     5123
358   51     5439
359   51     2604
360   51     3940
361   51     5788
362   52     3323
363   52     1300
364   52     5903
365   52     2394
366   52     3720
367   52     3032
368   52     3626
369   52     2745
370   52     1506
371   52     4918
372   52     3444
373   52     4036
374   52     5288
375   52     4577
376   52     1312
377   53     3799
378   53     4433
379   53     2101
380   53     1111
381   53     1416
382   53     2845
383   53     3917
384   53     3831
385   53     3914
386   53     1470
387   53     5090
388   53     4247
389   53     5826
390   53     4868
391   53     3098
392   54    10489
393   54     3303
394   54    14002
395   55     8497
396   55     8272
397   55    10026
398   55     7923
399   55     1514
400   55     4377
401   56    10675
402   56     6889
403   57     2209
404   57     1843
405   57     3090
406   57     2872
407   57     3131
408   57     3253
409   57     1451
410   57     4466
411   57     4324
412   57     1846
413   57     5920
414   57     2230
415   57     5032
416   57     4709
417   57     5093
418   58     8069
419   58     2206
420   58     7783
421   58     8083
422   58     2719
423   58     7609
424   58    10018
425   58     5760
426   59    18179
427   59     5920
428   59    19231
429   59    10281
430   60     8784
431   60     3672
432   60     8468
433   60     5364
434   60     6517
435   60     7935
436   60     6765
437   60     4531
438   60     3725
439   61     7255
440   61     5920
441   61     7198
442   61     6102
443   61     3508
444   61     6387
445   61     7393
446   61     1369
447   61     5819
448   61     5501
449   61     4246
450   61     3924
451   62     3015
452   62     1547
453   62     2789
454   62     5256
455   62     3726
456   62     3730
457   62     3927
458   62     3119
459   62     6072
460   62     5975
461   62     1699
462   62     1298
463   62     1143
464   62     3060
465   62     3621
466   63     4768
467   63     4440
468   63     3737
469   63     6842
470   63     4013
471   63     2782
472   63     4355
473   63     6429
474   63     2795
475   63     6119
476   64     8073
477   64     4257
478   64     6133
479   64     8704
480   64     7760
481   64     1856
482   64     6286
483   64     9540
484   64     4001
485   65    12220
486   65     2290
487   65    11849
488   65     5142
489   65    11334
490   65     2195
491   66     7417
492   66     2521
493   66     6307
494   66     4973
495   66     6115
496   66     4711
497   66     6979
498   66     5766
499   66     4693
500   66     7093
501   66     5102
502   66     6243
503   67     5545
504   67     5788
505   67     6456
506   67     3505
507   67     1417
508   67     2795
509   67     1332
510   67     2246
511   67     5923
512   67     4595
513   67     2625
514   67     5600
515   67     6882
516   68     5151
517   68     1836
518   68     1749
519   68     9667
520   68     5727
521   68     6016
522   68     5880
523   68     8658
524   68     5713
525   69    11762
526   69    19759
527   69    16927
528   69     1676
529   70     1416
530   70     2057
531   70     7261
532   70     6409
533   70     2761
534   70    10013
535   70     4271
536   70     5663
537   71     4043
538   71    13430
539   71     5809
540   71     5137
541   71     5567
542   71     7237
543   72     2272
544   72     2910
545   72     2347
546   72     4139
547   72     4200
548   72     1151
549   72     2200
550   72     1080
551   72     2377
552   72     1025
553   72     2121
554   72     5555
555   72     4991
556   72     4064
557   72     1581
558   73     4410
559   73     5763
560   73     7428
561   73     2523
562   73     4697
563   73     3205
564   73     2112
565   73     7267
566   73     5998
567   73     5260
568   73     2638
569   74    24158
570   74    11935
571   74    16422
572   75     5646
573   75     8050
574   75     9167
575   75     4442
576   75     8747
577   75     5644
578   75     1432
579   75     9406
580   75     5271
581   76     6935
582   76     5132
583   76     3932
584   76     1403
585   76     3481
586   76     6183
587   76     1379
588   76     3481
589   76     5295
590   76     2469
591   76     6071
592   77     1391
593   77     3909
594   77     3709
595   77     4322
596   77     5556
597   77     5680
598   77     3847
599   77     6440
600   77     1186
601   77     3125
602   77     3309
603   77     1926
604   77     5055
605   78     6720
606   78     2591
607   78     5190
608   78     5752
609   78     6945
610   78     1449
611   78     2342
612   78     5203
613   78     6876
614   78     3126
615   78     5756
616   78     3276
617   78     6033
618   79     4172
619   79     4948
620   79     3283
621   79     4148
622   79     5099
623   79     1986
624   79     5267
625   79     4268
626   79     2269
627   79     4827
628   79     1848
629   79     2069
630   79     4351
631   79     5824
632   79     3392
633   80    27910
634   80     3719
635   81     1614
636   81     4131
637   81     3647
638   81     1986
639   81     4052
640   81     3567
641   81     6704
642   81     2935
643   81     5863
644   81     4276
645   81     3894
646   81     5633
647   82     4661
648   82     3119
649   82    12461
650   82     6511
651   83     8508
652   83     9046
653   83     9839
654   83     9767
655   83    11123
656   83    11641
657   83    10796
658   84    18066
659   84    13926
660   84    12845
661   84    16772
662   85     3277
663   85     4231
664   85     6197
665   85     3835
666   85     5077
667   85     1997
668   85     4358
669   85     3227
670   85     4468
671   85     3439
672   85     5138
673   85     2119
674   85     5151
675   86     2154
676   86     7536
677   86     8238
678   86     5169
679   86     7593
680   86     4794
681   86     1380
682   86     4787
683   86     3160
684   87     4112
685   87     5593
686   87     1909
687   87     3865
688   87     4222
689   87     5857
690   87     6345
691   87     5754
692   87     6790
693   87     3949
694   87     2151
695   87     6559
696   87     1628
697   88     4379
698   88     2228
699   88     5188
700   88     4142
701   88     1701
702   88     5397
703   88     3658
704   88     1239
705   88     2550
706   88     4179
707   88     5389
708   88     2819
709   88     3685
710   88     2996
711   89    11002
712   89    13882
713   89     3882
714   89    13706
715   89    11087
716   89     5838
717   90    10144
718   90    10584
719   90     5002
720   90     9792
721   90     5020
722   90     2086
723   90     9097
724   90     2954
725   91     7171
726   91     2630
727   91     8183
728   91     6856
729   91     5022
730   91     2334
731   91     2581
732   91     5043
733   91     7984
734   91     6596
735   92    37145
736   93     7820
737   93     3645
738   93     3311
739   93    10883
740   93     6330
741   93     8016
742   93    10794
743   94     6262
744   94     5203
745   94     5709
746   94     5080
747   94     5320
748   94     2562
749   94     4604
750   94     4126
751   94     4549
752   94     5592
753   94     7500
754   95     1823
755   95     6193
756   96    14600
757   96     1724
758   96    12158
759   96     3864
760   96     2486
761   97     1401
762   97    10132
763   97    16192
764   97    11882
765   98     4823
766   98     1689
767   98     2524
768   98     6377
769   98     7431
770   98     4357
771   98     3713
772   98     7343
773   98     3457
774   98     6712
775   98     3012
776   98     2947
777   99    18318
778  100    30203
779  100    24835
780  101     4292
781  101     1221
782  101     5654
783  101     5428
784  101     5278
785  101     1575
786  101     4268
787  101     6023
788  101     3891
789  101     6261
790  101     5178
791  101     1550
792  101     1173
793  101     4501
794  102     3036
795  102    12480
796  102     8453
797  102     7215
798  102     3536
799  103     6244
800  103     5588
801  103     2211
802  103     9838
803  103    10042
804  103     4662
805  104     7163
806  104     7724
807  104     6376
808  104     3915
809  104     3922
810  104     5919
811  104     9180
812  104     4421
813  104     3726
814  105     6044
815  105     2245
816  105     9227
817  105     6569
818  105    11782
819  105     2494
820  105     1405
821  106     2826
822  106     3400
823  106     4664
824  106     5917
825  106     2934
826  106     2817
827  106     2686
828  106     3770
829  106     4318
830  106     2659
831  106     3960
832  106     3752
833  106     2592
834  106     3016
835  107     3542
836  107     4286
837  107     4291
838  107     1668
839  107     2999
840  107     4739
841  107     1226
842  107     3063
843  107     2509
844  107     4095
845  107     2918
846  107     4427
847  107     3673
848  107     2312
849  108    10232
850  108     6672
851  108     2804
852  108     5236
853  108    10466
854  108     6948
855  108     4811
856  108     8435
857  109     7315
858  109     9233
859  109     9488
860  109     7129
861  109     3549
862  109     8730
863  109     2150
864  109     4258
865  110     1510
866  110     1286
867  110     1316
868  110     4569
869  110     4419
870  110     1288
871  110     3313
872  110     1076
873  110     2955
874  110     1837
875  110     1263
876  110     3531
877  110     5726
878  110     3300
879  110     4617
880  111     2779
881  111     9026
882  111     4720
883  111     3817
884  111     3701
885  111     9456
886  111     2337
887  111     9127
888  111     8076
889  112     4113
890  112     7168
891  112     7030
892  112     3438
893  112     1686
894  112     5641
895  112     5282
896  112     5710
897  112     7170
898  112     7722
899  112     1365
900  113    14199
901  113     4119
902  113     6337
903  114     7418
904  114    16770
905  114    12037
906  115     6225
907  115     4693
908  115     5303
909  115     2626
910  115     1008
911  115     4163
912  115     2985
913  115     1425
914  115     4092
915  115     5396
916  115     3417
917  115     6143
918  115     6499
919  115     5619
920  116     1133
921  116     3945
922  116     4897
923  116     4828
924  116     3642
925  116     2893
926  116     1732
927  116     1247
928  116     1963
929  116     5962
930  116     4106
931  116     3387
932  116     4829
933  116     2595
934  116     5867
935  117     6122
936  117     3406
937  117     6933
938  117     5611
939  117     1044
940  117     4815
941  117     5767
942  117     2562
943  117     2197
944  117     6550
945  117     5551
946  117     3119
947  118     2901
948  118     6744
949  118     3204
950  118     2822
951  118     5068
952  118     4457
953  118     1079
954  119     4452
955  119     1253
956  119     3943
957  119     6092
958  119     1706
959  119     4791
960  119     3951
961  119     2090
962  119     3114
963  119     1515
964  119     2004
965  119     3980
966  119     6366
967  119     1771
968  120    13893
969  120    11323
970  120    13829
971  120     7168
972  120    14871
973  121     4796
974  121     2089
975  121     7885
976  121     8628
977  121     6715
978  121     4143
979  121     1381
980  121     1412
981  121     5611
982  121     3672
983  122     3768
984  122     4839
985  122     3066
986  122    12255
987  122     2517
988  122     5999
989  123     1810
990  123     2477
991  123     4634
992  123     3880
993  123     5517
994  123     4773
995  123     6438
996  123     5496
997  123     3528
998  123     3022
999  123     5048
1000 123     1612
1001 124    12728
1002 124    11268
1003 124     4727
1004 124     6643
1005 124     6186
1006 124     5735
1007 125     5856
1008 125     4873
1009 125     2587
1010 125     3053
1011 125     2763
1012 125     1681
1013 125     1641
1014 125     4235
1015 125     1895
1016 125     2865
1017 125     3886
1018 125     1090
1019 126     7837
1020 126     3957
1021 126     7666
1022 126    15287
1023 126     4153
1024 127    33476
1025 127    15842
1026 128    20446
1027 128    28621
1028 129     4257
1029 129     2252
1030 129     5779
1031 129     2424
1032 129     3048
1033 129     4297
1034 129     6185
1035 129     3896
1036 130     5005
1037 130     2248
1038 130     4388
1039 130     5507
1040 130     7246
1041 130     5802
1042 130     4730
1043 130     6816
1044 130     1882
1045 130     3101
1046 130     6888
1047 130     7312
1048 131     4287
1049 131    16345
1050 131    11713
1051 131     1141
1052 131     1576
1053 132     5534
1054 132    13649
1055 132     2963
1056 132    10251
1057 132     8072
1058 133    46888
1059 134    19996
1060 135     6251
1061 135     1783
1062 135     2931
1063 135     9216
1064 135     5802
1065 135     6353
1066 135     5406
1067 135    10761
1068 136     8964
1069 136     6194
1070 136     5594
1071 136     2981
1072 136     4283
1073 136     5227
1074 136     1111
1075 137     3768
1076 137     4065
1077 137     1420
1078 137     6334
1079 137     7126
1080 137     3430
1081 138     6369
1082 138     2958
1083 138     2548
1084 138     7475
1085 138     6389
1086 138     5121
1087 138     8008
1088 138     1957
1089 138     4481
1090 138     8452
1091 139     2985
1092 139     7921
1093 139     7868
1094 139     9901
1095 139     4221
1096 139     8815
1097 140    12828
1098 140    35189
1099 141     6415
1100 141     3009
1101 141     2332
1102 141     6851
1103 141     5956
1104 141     1894
1105 141     6421
1106 141     4728
1107 141     6698
1108 141     3628
1109 141     2004
1110 141     6174
1111 141     5251
1112 142     5518
1113 142     4788
1114 142     1959
1115 142     5935
1116 142     7906
1117 142     6064
1118 142     5242
1119 142     4082
1120 142     8573
1121 142     4529
1122 143    68508
1123 144     3847
1124 144     3451
1125 144     8433
1126 144     5073
1127 144     4464
1128 144     7378
1129 144     8997
1130 144     8107
1131 144     7266
1132 145     3750
1133 145     3841
1134 145     4113
1135 145     5005
1136 145     4238
1137 145     1316
1138 145     4027
1139 145     3120
1140 145     6083
1141 145     3892
1142 145     6303
1143 145     6364
1144 145     1699
1145 145     5665
1146 146     2863
1147 146     5168
1148 146     2244
1149 146     2180
1150 146     6794
1151 146     5924
1152 146     5793
1153 146     2997
1154 146     4871
1155 146     7578
1156 146     1821
1157 147     2717
1158 147     1900
1159 147     4743
1160 147     6280
1161 147     8703
1162 147     1225
1163 147     2711
1164 147     5260
1165 147     3870
1166 147     7283
1167 148     4323
1168 148     9508
1169 148     3221
1170 148     8294
1171 148     4081
1172 148     8086
1173 148     5465
1174 148    10185
1175 149     6295
1176 149     9301
1177 149     2663
1178 149     9299
1179 149     8681
1180 149     2628
1181 149     5173
1182 149     8236
1183 150     1093
1184 150     6211
1185 150     6172
1186 150     3120
1187 150     1545
1188 150     5010
1189 150     2555
1190 150     4503
1191 150     6041
1192 150     2256
1193 150     2054
1194 150     3556
1195 150     4189
1196 150     4079
1197 151     4227
1198 151     5046
1199 151    10539
1200 152    16145
1201 152    12616
1202 152     1897
1203 153    10759
1204 153    13443
1205 153     2817
1206 153     5487
1207 153     7129
1208 153    13704
1209 154     9237
1210 154     9637
1211 154     5517
1212 154     5033
1213 154     7727
1214 154     5903
1215 154     7685
1216 154     6360
1217 154     9147
1218 155    11730
1219 155     6487
1220 155     7984
1221 155     4641
1222 155    10800
1223 155    10737
1224 156     2926
1225 156     3365
1226 156    10511
1227 156     1019
1228 156     5174
1229 156     6880
1230 156    10022
1231 156     2021
1232 157     7561
1233 157     1995
1234 157     2056
1235 157     9535
1236 157    12687
1237 157    11037
1238 158     2986
1239 158     7624
1240 158     4960
1241 158     3148
1242 158     3615
1243 158     1248
1244 158     6271
1245 158     7689
1246 158     6203
1247 159     2078
1248 159     6126
1249 159     2217
1250 159     3778
1251 159     2469
1252 159     2940
1253 159     1009
1254 159     3727
1255 159     3591
1256 159     4631
1257 159     6934
1258 159     5679
1259 159     5212
1260 160     7293
1261 160     8422
1262 160     1249
1263 160     9071
1264 160     2397
1265 160     9070
1266 160     7249
1267 160     5900
1268 160     8496
1269 161    18221
1270 161    12199
1271 161    23082
1272 162     2756
1273 162     2031
1274 162    15919
1275 162     8850
1276 162    11519
1277 163     4213
1278 163     4007
1279 163     4750
1280 163     1689
1281 163     6301
1282 163     2769
1283 163     1822
1284 163     5633
1285 163     3829
1286 163     6259
1287 163     1941
1288 164     4566
1289 164    11741
1290 164     2449
1291 164     9639
1292 164     2853
1293 165     5442
1294 165     2931
1295 165     3418
1296 165     2474
1297 165     5999
1298 165     3614
1299 165     1092
1300 165     5745
1301 165     2216
1302 165     5437
1303 165     4653
1304 165     1596
1305 165     2064
1306 165     4568
1307 165     3889
1308 166    30188
1309 166    30811
1310 167     6631
1311 167     7390
1312 167     4365
1313 167    10085
1314 167     5771
1315 167     5407
1316 168     5994
1317 168     4371
1318 168     4328
1319 168     4888
1320 168     2557
1321 168     4400
1322 168     1917
1323 168     2487
1324 168     5787
1325 168     4068
1326 168     1608
1327 168     4897
1328 168     1872
1329 168     3580
1330 168     1828
1331 169    12407
1332 169    15919
1333 169    18883
1334 169    10093
1335 170    10235
1336 170    18157
1337 170    10243
1338 171     5020
1339 171     7857
1340 171     7218
1341 171     4726
1342 171     5184
1343 171     4807
1344 171     5762
1345 171     6433
1346 171     4435
1347 171     3292
1348 171     2582
1349 172     5435
1350 172     3279
1351 172     1483
1352 172     2174
1353 172     4082
1354 172     2016
1355 172     3470
1356 172     1106
1357 172     3156
1358 172     5028
1359 172     3973
1360 172     3309
1361 172     4918
1362 172     4886
1363 173     5234
1364 173     9601
1365 173     9386
1366 173     4696
1367 173     5400
1368 173     3738
1369 173     4093
1370 174     3468
1371 175     2988
1372 175    13322
1373 175    16091
1374 175     6182
1375 176     8902
1376 176    14057
1377 176    24074
1378 177     2417
1379 177     5580
1380 177     5165
1381 177     7582
1382 177     6674
1383 177     6646
1384 177     2562
1385 177     7885
1386 178     4197
1387 178     5211
1388 178     2837
1389 178     6012
1390 178     6525
1391 178     4345
1392 178     3060
1393 178     4458
1394 178     6405
1395 178     6556
1396 178     1167
1397 178     2705
1398 179     3137
1399 179     4709
1400 179     5239
1401 179     3930
1402 179     2685
1403 179     5421
1404 179     2847
1405 179     2443
1406 179     3801
1407 179     3067
1408 179     4431
1409 179     1073
1410 179     6625
1411 180    25928
1412 181    11278
1413 181     3062
1414 181     7704
1415 181     7328
1416 181     2742
1417 181     7913
1418 181    10850
1419 182     4179
1420 182     3352
1421 183     5766
1422 183     2479
1423 183     5510
1424 183     2723
1425 183     1559
1426 183     4851
1427 183     2808
1428 183     3149
1429 183     1900
1430 183     5551
1431 183     1168
1432 183     4292
1433 183     2706
1434 183     1887
1435 184     5644
1436 184     3980
1437 184     1953
1438 184     1302
1439 184     4673
1440 184     4792
1441 184     5560
1442 184     4700
1443 184     2098
1444 184     4581
1445 184     2026
1446 184     3986
1447 184     3621
1448 184     2729
1449 184     2734
1450 185     1634
1451 185     1891
1452 185     5864
1453 185     3643
1454 185     1622
1455 185     1096
1456 185     3405
1457 185     3519
1458 185     4975
1459 185     4773
1460 185     4544
1461 185     4211
1462 185     2889
1463 185     5510
1464 185     5677
1465 186     5747
1466 186     3716
1467 186     1570
1468 186     4609
1469 186     3562
1470 186     1537
1471 186     5157
1472 186     4558
1473 186     4131
1474 186     4544
1475 186     4445
1476 186     5116
1477 186     2357
1478 187     8035
1479 187    15475
1480 187     8791
1481 187    12796
1482 187     1809
1483 188     3956
1484 188     3423
1485 189     4498
1486 189    14291
1487 189     5435
1488 189    11333
1489 189    12805
1490 190    16130
1491 190    15515
1492 190     8077
1493 190     5292
1494 190    14806
1495 191     5441
1496 191     7830
1497 191     8229
1498 191    19304
1499 192     6133
1500 192     6807
1501 192     5145
1502 192     3100
1503 192     2799
1504 192     6450
1505 192     2844
1506 192     7369
1507 192     5750
1508 192     7453
1509 192     6917
1510 192     5280
1511 193     7733
1512 193     6790
1513 193     3399
1514 193     9413
1515 193     9225
1516 193     7820
1517 193     3627
1518 194    10128
1519 194     5460
1520 194     6217
1521 194     1468
1522 194     5069
1523 194     1867
1524 194     2561
1525 194     3563
1526 195     6203
1527 195     1220
1528 195     5422
1529 195     9143
1530 195     8279
1531 195     9127
1532 195     2197
1533 195     7563
1534 195     5805
1535 196     5641
1536 196     4988
1537 196     3833
1538 196     6330
1539 196     5125
1540 196     4818
1541 196     4985
1542 196     5806
1543 196     2835
1544 196     2538
1545 196     4243
1546 196     3944
1547 196     1313
1548 196     5633
1549 197     1670
1550 197     3783
1551 197     5004
1552 197     9925
1553 197     2056
1554 197     8138
1555 197     2273
1556 197     5211
1557 198     7054
1558 198     3876
1559 198     4804
1560 198     5782
1561 198     2864
1562 198     4869
1563 198     3974
1564 198     3365
1565 198     7392
1566 198     1003
1567 198     3421
1568 198     2282
1569 199    16982
1570 199    10310
1571 199     9105
1572 199    15909
1573 200     4006
1574 200     4721
1575 200     1089
1576 200     3784
1577 200     3735
1578 200     1462
1579 200     3572
1580 200     3903
1581 200     5100
1582 200     3553
1583 200     4538
1584 200     5008
1585 200     3474
1586 200     6114
1587 200     5023
1588 201     7712
1589 201     3772
1590 201     6012
1591 201     3780
1592 201     2039
1593 201     1225
1594 201     4572
1595 201     7205
1596 201     3724
1597 201     2743
1598 201     5649
1599 202    13835
1600 202    16341
1601 203     2440
1602 203     3526
1603 203     5922
1604 203     4275
1605 203     6518
1606 203     7738
1607 203     4511
1608 203     9176
1609 203     6738
1610 204     8973
1611 204     1525
1612 204    11024
1613 204    10053
1614 204     1167
1615 205     6878
1616 205     6330
1617 205     2436
1618 205     6166
1619 205     6009
1620 205     5824
1621 205     5849
1622 205     7599
1623 205     7667
1624 206     6661
1625 206    32224
1626 207     4835
1627 207     4152
1628 207     5550
1629 207    17374
1630 208     4829
1631 208    11255
1632 208    11845
1633 208     8734
1634 208    11026
1635 208    12040
1636 208     2598
1637 209     5651
1638 209     8148
1639 209     7319
1640 209     7168
1641 209     2570
1642 209     2667
1643 209     6102
1644 209     7372
1645 209     1901
1646 210     5257
1647 210     1897
1648 210     5295
1649 210     2643
1650 210     6499
1651 210     6384
1652 210     1979
1653 210     4897
1654 210     6198
1655 210     4986
1656 210     4463
1657 210     6078
1658 210     1669
1659 211    36617
1660 211     9770
1661 212     5488
1662 212    18324
1663 212     3889
1664 212     2697
1665 213     3909
1666 213     5302
1667 213     7668
1668 213     4954
1669 213     4574
1670 213     7610
1671 213     4162
1672 213     1222
1673 213     5727
1674 213     4826
1675 213     4429
1676 214    50529
1677 215     4561
1678 215     7022
1679 215     7778
1680 215     7386
1681 215     2126
1682 215     1350
1683 215     8767
1684 215     1089
1685 215     4340
1686 215     1013
1687 216     2218
1688 216     6429
1689 216     5964
1690 216     1643
1691 216     1181
1692 216     6695
1693 216     6759
1694 216     1766
1695 216     2985
1696 216     3029
1697 216     6439
1698 216     2646
1699 216     6814
1700 217    53117
1701 218     9836
1702 218     6608
1703 218    13067
1704 218     4747
1705 218    10627
1706 218     7074
1707 219     7382
1708 219     7263
1709 219     2142
1710 219     2197
1711 219     3237
1712 219     4509
1713 219     6866
1714 219     1487
1715 219     6288
1716 219     3515
1717 219     4318
1718 219     4403
1719 220     9503
1720 220     7732
1721 220     9320
1722 220     4184
1723 220     4429
1724 220    10334
1725 220     3313
1726 220     5438
1727 221    15150
1728 221    15460
1729 221    14761
1730 221     8079
1731 221     1070
1732 222     2206
1733 222     6973
1734 222     7571
1735 222     2311
1736 222     3170
1737 222     8153
1738 222     7794
1739 222     9043
1740 222     3857
1741 223     4169
1742 223     3297
1743 223     1703
1744 223     6039
1745 223     1189
1746 223     4565
1747 223     5455
1748 223     1584
1749 223     4338
1750 223     1759
1751 223     1854
1752 223     1093
1753 223     5004
1754 223     1133
1755 223     2004
1756 224     5262
1757 224     3782
1758 224     2259
1759 224     5446
1760 224     2978
1761 224     6146
1762 224     1939
1763 224     1805
1764 224     4517
1765 224     2969
1766 224     6390
1767 224     2784
1768 224     3689
1769 225    10342
1770 225     6089
1771 225     7688
1772 225    10383
1773 225     4769
1774 225     7696
1775 225     7393
1776 225    10301
1777 226     6666
1778 226    10943
1779 226     1638
1780 226     1975
1781 226     5509
1782 226     5767
1783 226     5673
1784 227    15320
1785 227    23126
1786 228     2813
1787 228     7182
1788 228     3956
1789 228     7486
1790 228    10251
1791 228     4172
1792 228     1862
1793 228     4006
1794 229    15496
1795 229     4847
1796 229     8430
1797 229     1683
1798 229    13281
1799 230     4685
1800 230     3580
1801 230     1308
1802 230     8183
1803 230     6367
1804 230     8410
1805 230     3052
1806 230     3020
1807 230     1217
1808 231     4252
1809 231     5883
1810 231     4079
1811 231     3580
1812 231     3064
1813 231     1385
1814 231     4488
1815 231     1790
1816 231     4826
1817 231     3157
1818 231     1747
1819 231     1783
1820 231     3312
1821 231     4652
1822 232    14551
1823 233     3025
1824 233    13696
1825 233     3537
1826 233     4087
1827 234     6169
1828 234     5270
1829 234     5187
1830 234     3572
1831 234     3060
1832 234     3599
1833 234     4252
1834 234     4886
1835 234     5244
1836 234     5231
1837 234     1359
1838 234     6340
1839 234     2142
1840 234     4429
1841 235     5850
1842 235     4447
1843 235     7828
1844 235     4518
1845 235     6431
1846 235     5995
1847 235     1284
1848 235     5499
1849 235     1372
1850 235     2666
1851 235     7721
1852 236     1191
1853 236    20856
1854 237    13838
1855 237     2247
1856 237    12654
1857 237    11027
1858 237     9684
1859 238     4997
1860 238     8716
1861 238     6293
1862 238     7317
1863 238     1002
1864 238     5121
1865 238     6663
1866 238     7838
1867 238     1922
1868 238     8001
1869 239     5614
1870 239    13883
1871 239     2757
1872 239    11574
1873 239     3051
1874 239    11435
1875 240    45664
1876 241     2476
1877 241     7792
1878 241     8480
1879 241     7283
1880 241     9042
1881 241     7090
1882 241     5830
1883 242     2721
1884 242     6238
1885 242     8011
1886 242     1974
1887 242     3526
1888 242     2811
1889 242     6167
1890 242     1778
1891 242     3507
1892 242     7992
1893 243     3082
1894 243     4367
1895 243     4463
1896 243     1753
1897 243     3627
1898 243     1468
1899 243     2616
1900 243     1456
1901 243     1033
1902 243     1110
1903 243     2453
1904 243     5058
1905 243     1665
1906 243     4399
1907 243     5720
1908 244     4019
1909 244     6080
1910 244     5496
1911 244     3896
1912 244     5752
1913 244     2673
1914 244     2460
1915 244     2284
1916 244     6342
1917 244     1710
1918 244     3860
1919 244     1223
1920 244     4688
1921 245     1121
1922 245     3153
1923 245     2961
1924 245     2103
1925 245     3816
1926 245     6492
1927 245     5483
1928 245     2086
1929 245     6154
1930 245     4440
1931 245     3196
1932 245     1630
1933 245     3140
1934 246     4140
1935 246     6238
1936 246     1092
1937 246     1218
1938 246     5688
1939 246     6097
1940 246     5695
1941 246     3413
1942 246     9453
1943 247    29041
1944 248     3320
1945 248    10344
1946 248    21501
1947 249     8209
1948 249    11402
1949 249    11152
1950 249     6367
1951 249     5191
1952 249     8598
1953 249     8608
1954 250    12087
1955 250    24388
1956 250    22987
1957 251     1668
1958 251     3447
1959 251     7162
1960 251     6136
1961 251     5098
1962 251     1868
1963 251     2116
1964 251     2716
1965 251     1715
1966 251     1089
1967 251     5410
1968 251     5259
1969 252     5913
1970 252     3696
1971 252     2832
1972 252     5618
1973 252     3555
1974 252     1311
1975 252     3641
1976 252     2488
1977 252     4987
1978 252     2104
1979 252     2269
1980 252     3040
1981 252     1706
1982 252     3762
1983 252     2384
1984 253     6731
1985 253     2310
1986 253     3908
1987 253     6314
1988 253     1004
1989 253     4632
1990 253     3402
1991 253     2044
1992 253     3407
1993 253     2833
1994 253     1007
1995 253     4695
1996 254     4894
1997 254     9624

Use dplyr

cal_count <-
  df %>% 
  group_by(elf) %>% 
  summarize(total_calories = sum(calories)) %>% 
  ## arrange rows in descending order of total:
  arrange(desc(total_calories))
cal_count
# A tibble: 255 × 2
     elf total_calories
   <dbl>          <dbl>
 1    83          70720
 2   143          68508
 3    66          67920
 4   154          66246
 5   192          66047
 6    16          64814
 7   225          64661
 8    61          64622
 9    40          64600
10    27          63199
# … with 245 more rows

Learn more dplyr and Show Off

input %>% 
  tibble(input = .) %>% 
  mutate(
    cals = parse_number(input),
    elf = (input == "") %>% cumsum()
  ) %>% 
  drop_na() %>% 
  count(elf, wt = cals, name = "total") %>% 
  slice_max(n = 1, order_by = total) %>% 
  pull(total)
[1] 70720

Reading Text Files with readr

The readr Package

## no need to do this if you have attached tidyverse:
library(readr)

Let’s use it to read in csv file:

https://query.data.world/s/b6plbxp3ym20s5a5iey36geul

Use the Import Dataset tab in R Studio.

Keep the Code

This preserves a record of how you got our data.

alcGDP <- 
  read_csv(
    "https://query.data.world/s/b6plbxp3ym20s5a5iey36geul"
  )

Writing to Files

Writing a Data Frame to a File

We have seen how you can save an R object.

You can also save a data frame in a format that other programs (and programming languages) can read.

Example:

write_csv(bcscr::m111survey, file = "m111survey.csv")