Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"If", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{ "21199865", ",", "16373645", ",", "9157540", ",", "7608070", ",", "7039362", ",", "6188463", ",", "5819100", ",", "5456428", ",", "5221801", ",", "4669571", ",", "4112198", ",", "3876380", ",", "3554760", ",", "3251876", ",", "2968806", ",", "2945831", ",", "2813833", ",", "2603607", ",", "2581506", ",", "2450292", ",", "2395997", ",", "2358695", ",", "2265223", ",", "1979202", ",", "1796857", ",", "1776062", ",", "1689572", ",", "1644561", ",", "1607486", ",", "1592383", ",", "1569541", ",", "1563282", ",", "1540157", ",", "1499293", ",", "1337726", ",", "1333914", ",", "1251509", ",", "1249763", ",", "1231311", ",", "1188613", ",", "1187941", ",", "1183110", ",", "1170111", ",", "1135614", ",", "1131184", ",", "1100491", ",", "1098201", ",", "1088514", ",", "1083346", ",", "1025598", ",", "996512", ",", "962441", ",", "950558", ",", "922516", ",", "921106", ",", "876156", ",", "875583", ",", "843746", ",", "803235", ",", "732117", ",", "716998", ",", "712738", ",", "687249", ",", "679622", ",", "661645", ",", "637958", ",", "629401", ",", "624776", ",", "618203", ",", "602894", ",", "594746", ",", "591932", ",", "589959", ",", "583845", ",", "569463", ",", "563598", ",", "549033", ",", "545220", ",", "540258", ",", "536691", ",", "516929", ",", "502141", ",", "493175", ",", "483924", ",", "480091", ",", "479198", ",", "477441", ",", "476230", ",", "470658", ",", "465161", ",", "456022", ",", "452851", ",", "447728", ",", "446997", ",", "440888", ",", "440801", ",", "432345", ",", "426526", ",", "417939", ",", "412153", ",", "406934", ",", "403070", ",", "401762", ",", "399347", ",", "392302", ",", "385647", ",", "385090", ",", "381751", ",", "380783", ",", "373638", ",", "371236", ",", "368536", ",", "368021", ",", "363988", ",", "361094", ",", "359062", ",", "358365", ",", "347387", ",", "342376", ",", "341851", ",", "339486", ",", "335227", ",", "333055", ",", "325721", ",", "322959", ",", "322549", ",", "319426", ",", "315538", ",", "312952", ",", "311121", ",", "302963", ",", "299896", ",", "296195", ",", "293566", ",", "293000", ",", "284539", ",", "280843", ",", "274624", ",", "265559", ",", "260283", ",", "258916", ",", "253347", ",", "252320", ",", "251662", ",", "251494", ",", "251377", ",", "250291", ",", "246681", ",", "243815", ",", "243537", ",", "242628", ",", "237132", ",", "235932", ",", "233450", ",", "232621", ",", "226778", ",", "225965", ",", "222581", ",", "217955", ",", "217858", ",", "214911", ",", "213517", ",", "210554", ",", "208780", ",", "207290", ",", "207033", ",", "203171", ",", "201437", ",", "196629", ",", "194477", ",", "193117", ",", "191822", ",", "191701", ",", "183577", ",", "182821", ",", "182791", ",", "181269", ",", "179669", ",", "175818", ",", "174706", ",", "174682", ",", "174367", ",", "172412", ",", "170498", ",", "169871", ",", "169391", ",", "167392", ",", "166814", ",", "164875", ",", "163256", ",", "162582", ",", "162453", ",", "160026", ",", "159576", ",", "158422", ",", "157322", ",", "155084", ",", "153444", ",", "153172", ",", "152415", ",", "152307", ",", "151237", ",", "150433", ",", "150355", ",", "149192", ",", "148337", ",", "148217", ",", "147635", ",", "147250", ",", "146424", ",", "145867", ",", "143026", ",", "142950", ",", "141627", ",", "141472", ",", "140518", ",", "139750", ",", "139149", ",", "137916", ",", "135758", ",", "135454", ",", "133798", ",", "132008", ",", "129749", ",", "129352", ",", "129144", ",", "128012", ",", "126838", ",", "126697", ",", "126555", ",", "126337", ",", "125834", ",", "125761", ",", "124345", ",", "124277", ",", "124130", ",", "122366", ",", "120822", ",", "120563", ",", "120293", ",", "120044", ",", "118769", ",", "116255", ",", "115092", ",", "114996", ",", "114706", ",", "113329", ",", "112646", ",", "112249", ",", "111674", ",", "111006", ",", "110595", ",", "110156", ",", "107377", ",", "104646", ",", "104010", ",", "103459", ",", "102490", ",", "102008", ",", "101541", ",", "99962", ",", "97478", ",", "95802", ",", "94719", ",", "91545", ",", "91070", ",", "90864", ",", "90830", ",", "89143", ",", "88565", ",", "84699", ",", "84278", ",", "84088", ",", "82148", ",", "81607", ",", "80357", ",", "78153", ",", "75565", ",", "66533", ",", "57813"}], "}"}], ",", " ", " ", RowBox[{"{", RowBox[{ "8143197", ",", "3844829", ",", "2842518", ",", "2016582", ",", "1463281", ",", "1461575", ",", "1256509", ",", "1255540", ",", "1213825", ",", "912332", ",", "886671", ",", "784118", ",", "782623", ",", "751276", ",", "739426", ",", "730657", ",", "690252", ",", "672277", ",", "635815", ",", "624067", ",", "610949", ",", "598590", ",", "578887", ",", "573911", ",", "559034", ",", "557917", ",", "550521", ",", "549110", ",", "545147", ",", "533427", ",", "531324", ",", "515526", ",", "494236", ",", "474014", ",", "472122", ",", "470688", ",", "461116", ",", "456441", ",", "454863", ",", "452208", ",", "444965", ",", "442780", ",", "438415", ",", "414521", ",", "395274", ",", "386417", ",", "382457", ",", "377379", ",", "372811", ",", "369815", ",", "362805", ",", "354865", ",", "344362", ",", "341530", ",", "340368", ",", "331804", ",", "329580", ",", "325989", ",", "316718", ",", "308728", ",", "301285", ",", "297235", ",", "296917", ",", "295536", ",", "290086", ",", "286926", ",", "283474", ",", "280666", ",", "279745", ",", "275150", ",", "275043", ",", "268080", ",", "256231", ",", "250096", ",", "249079", ",", "239614", ",", "239435", ",", "239213", ",", "234939", ",", "232146", ",", "231962", ",", "231954", ",", "231483", ",", "226013", ",", "223341", ",", "222975", ",", "222064", ",", "220485", ",", "218968", ",", "216346", ",", "216230", ",", "213223", ",", "211091", ",", "210795", ",", "210497", ",", "209737", ",", "208754", ",", "207011", ",", "204845", ",", "203550", ",", "200468", ",", "200127", ",", "200065", ",", "198874", ",", "198621", ",", "198550", ",", "196818", ",", "196425", ",", "195965", ",", "195898", ",", "194457", ",", "194163", ",", "193780", ",", "193777", ",", "193755", ",", "193649", ",", "193161", ",", "191544", ",", "190782", ",", "186852", ",", "186070", ",", "185781", ",", "184564", ",", "183628", ",", "183021", ",", "180130", ",", "179899", ",", "178367", ",", "178097", ",", "177977", ",", "176862", ",", "176635", ",", "175898", ",", "173989", ",", "172679", ",", "169353", ",", "168253", ",", "168181", ",", "167493", ",", "167380", ",", "166313", ",", "166108", ",", "166075", ",", "164811", ",", "163860", ",", "161143", ",", "158873", ",", "158500", ",", "157493", ",", "156120", ",", "154762", ",", "153787", ",", "153158", ",", "152916", ",", "151732", ",", "150380", ",", "150298", ",", "149843", ",", "149387", ",", "148751", ",", "146431", ",", "146136", ",", "145629", ",", "145579", ",", "144515", ",", "144337", ",", "144210", ",", "143852", ",", "143731", ",", "142384", ",", "141683", ",", "141579", ",", "140671", ",", "140293", ",", "140010", ",", "139517", ",", "139008", ",", "138200", ",", "136208", ",", "135337", ",", "135311", ",", "134950", ",", "134570", ",", "134085", ",", "134032", ",", "132787", ",", "131692", ",", "129928", ",", "129902", ",", "128902", ",", "128804", ",", "128453", ",", "128034", ",", "128026", ",", "125809", ",", "124791", ",", "124397", ",", "124359", ",", "124283", ",", "123622", ",", "123252", ",", "123119", ",", "122513", ",", "121946", ",", "120465", ",", "120045", ",", "119088", ",", "118870", ",", "118687", ",", "118551", ",", "117483", ",", "117390", ",", "117272", ",", "117137", ",", "117088", ",", "115918", ",", "115668", ",", "115518", ",", "114757", ",", "114467", ",", "113459", ",", "113300", ",", "113271", ",", "112878", ",", "112685", ",", "112522", ",", "112338", ",", "112030", ",", "111799", ",", "111334", ",", "110208", ",", "109830", ",", "109718", ",", "109691", ",", "108687", ",", "108669", ",", "108185", ",", "108184", ",", "107902", ",", "106992", ",", "106712", ",", "106623", ",", "106439", ",", "105940", ",", "105834", ",", "105402", ",", "105262", ",", "105182", ",", "105084", ",", "104476", ",", "104179", ",", "104153", ",", "104108", ",", "104017", ",", "103966", ",", "103495", ",", "103238", ",", "103111", ",", "102612", ",", "102186", ",", "101719", ",", "101203", ",", "100744", ",", "100631", ",", "100339", ",", "100233", ",", "100169", ",", "100135", ",", "99846", ",", "99513", ",", "99227", ",", "99187", ",", "98897", ",", "98845", ",", "98721", ",", "98715", ",", "98645", ",", "97977", ",", "97687", ",", "97498"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "data", "]"}], "]"}], ",", "data"}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"Range", "[", "n", "]"}], "]"}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".9", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"22000", ",", RowBox[{"6.5", "*", RowBox[{"10", "^", "7"}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "x", ",", "\"\<)\>\""}], "}"}], "]"}], ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "->", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "->", " ", RowBox[{ RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"Range", "[", RowBox[{"Length", "[", "data", "]"}], "]"}], "]"}], ",", RowBox[{"Log", "[", "data", "]"}]}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"Range", "[", "n", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], "[", "\"\\"", "]"}]}], ",", RowBox[{"\"\\"", "->", RowBox[{ RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"Range", "[", RowBox[{"Length", "[", "data", "]"}], "]"}], "]"}], ",", RowBox[{"Log", "[", "data", "]"}]}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"Range", "[", "n", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], "[", "\"\\"", "]"}]}]}], "}"}], "]"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "375"}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"Range", "[", RowBox[{"Length", "[", "data", "]"}], "]"}], "]"}], ",", RowBox[{"Log", "[", "data", "]"}]}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"Range", "[", "n", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], "[", "\"\\"", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"Log", "[", "n", "]"}]}], "}"}]}], "]"}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "3", ",", "\"\\""}], "}"}], ",", " ", "3", ",", " ", "280", ",", "1", ",", " ", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "False", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", " ", RowBox[{"TrackedSymbols", ":>", "Manipulate"}], ",", RowBox[{"Initialization", ":>", RowBox[{"{", RowBox[{"Needs", "[", "\"\\"", "]"}], "}"}]}]}], " ", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.397682169875*^9, 3.397682169921875*^9}, { 3.397688989359375*^9, 3.397688991515625*^9}, {3.39768905759375*^9, 3.397689079375*^9}, 3.3976933810625*^9, {3.3979896804375*^9, 3.3979896971875*^9}, {3.3980766707719812`*^9, 3.398076712068592*^9}, {3.3980767438808885`*^9, 3.3980768232553806`*^9}, {3.39807700144174*^9, 3.3980771357690053`*^9}, {3.398086889367381*^9, 3.3980870134296155`*^9}, {3.398100399328125*^9, 3.39810041628125*^9}, {3.398100505875*^9, 3.398100535359375*^9}, { 3.3981008704375*^9, 3.398100875015625*^9}, {3.3981013279375*^9, 3.398101345796875*^9}, {3.398101518171875*^9, 3.398101519453125*^9}, 3.39810365165625*^9, {3.398103693953125*^9, 3.398103730109375*^9}, {3.398104076421875*^9, 3.39810407871875*^9}, {3.3981794665625*^9, 3.398179518328125*^9}, { 3.3984419287126856`*^9, 3.3984419601814356`*^9}, { 3.685983329871182*^9, 3.685983363648878*^9}, {3.685983406065311*^9, 3.685983471946124*^9}, {3.685983641565751*^9, 3.6859836828744173`*^9}, 3.7608451161032333`*^9}, CellID->396022123], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 3, $CellContext`t$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 3, "number"}, 3, 280, 1}, {{ Hold[$CellContext`t$$], False, "metropolitan areas"}, { True, False}}}, Typeset`size$$ = {500., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`n$305900$$ = 0, $CellContext`t$305901$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 3, $CellContext`t$$ = False}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$305900$$, 0], Hold[$CellContext`t$$, $CellContext`t$305901$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`data = If[$CellContext`t$$, CompressedData[" 1:eJwNznlQlVUYx/Hvec77vndRrtyLykULxQ0tNU3D1AS9NirG6CiOuOfgUtqk gysBWlKBG2IqJI6ijkvhjFu0KBpqGRpWlgkOGonrWGpqZEGLdv74nPPMc84z zy8mde7oOQoImqMxc7DKu9DIziOrcCIXkD3rNfa/PoWfKsfRNZRMyd6RvD1w KEOOxfNEp/6cHhDHzuKe3EzqRmx9V1bce4qUslhkeiwLpnVkcn4HPvivPblr 2xHqFU3j7NaUR7Xm+qko/MEo4nODJCQFsesjWXcxkgFvRbKlriVLZzVn04Tm fBKM4Jo/grNfB7DbB5jRNkBOWIBjF/08SvZzIOTnTGU4NSfCkc3hnMsNJ353 M7b1bsaK/T6il/nYEOEj4PORNSWMhElhXL3clB2DmlL1dBMq7ntpV+flvSwv FVO85AW9OEc9FG3ysHy5h0tzPPh6eegX4eEFt4dcPOy65WbxATdrityUTHVz cpSb1Hg383u4GXTNxZISF4tzXIxJdTEx2cXPI12oRBdDXnSR3d2FJ8rF2IcO 9bcc7p93aHHO4fkyhyuHHWo2OkRnO6yf6tCY6FD4nMPSTg6pMeZ/pMOcf23m XrUJ1dn0+dHUZ21ySm067LHZuNWmYIvN+TzTy7YpzLCpXWzzT5LNq31tJvax ie5uk/mkzePmNuMbLPLvWjy8bfHFZYt131ukV1iMOmYxf6up11vody3KMyyW p1tkplg0SbQ43sMiJcziSINmer1mR61mW43Gd0Ezs1rzoEpT+oOm6EvNK4c0 oz7TnCzVJBVrNhdpfs3X7F2tubjQ3PM0C2dopiVrxHhzqCYspMmI06x+RlPW RXO4s9kRpakNaFpgZv4SJv8ujLgrVN0Ror4VOlYKLqPFSdP7XKjcJ8zbI0ww 2pQIWdsF2STkvy/sLxDq8oTiVUKTd4RDS4SWmUJBhtAqTRg3V6ieLaycKXwz WZieIowZK7ycLNSPFr4aIWx/SUg2Tg8R0gYLjSGhdKDwbILQ0F8401f4qLsw 0+jfRdjWWbjZwYgR8toIR1uZ/AEh2i/s9gofapP7b8WwRkV6g6LpH4pF9xS/ /KaYaCy7q1h5WzHIOHxDsdC4el3xqFbx5wVFfbXiRpXiznnFg7OKNhWKDScU vY3AccXBMoVzSPHGp4p+HyuKDyr0AUXSPkXaDkXFRsXwQkX7DYoJa02GNYpd qxUZOeYty8wsUjxOUxTNUJRPU9xPVXxn9JmkeDhecWm4Ii7RzA1TXB+oOBVv 8vRVJPZUdIs1tVZUXYH/AfB+Lh4= "], CompressedData[" 1:eJwNz3tMVnUcx/H39/s753keeMZkYurAUPGSmZrkJcRk2UJ04paQl7lcpMua onkr18QLEnJxCqSipnkrtYxKRVJxi8zMReZtYGriqoVUakEqxJzZ94/X+e2c 8/lefj1nvJExT4Cu9pg+OoeG/cmUv/wEY07F05LZmbQJnRk1IIbF/WLIze/I mZtRlBRE0doapntLmIq3wswYG6Zn3zDphZE88lwk+yojOJkfQX5GBCkJEaTV h/jxRIjqghDT80K8PStEa1aIpRNDVPYKkRMX4tuGINuKg2wfGSR5aJCdg4I8 ExGkvTXAueYA828E6FMbYNuJACUHAozIDBAZCrCg0ae93qfX1z7jD/hs+tBn WJFP4myf/qN9Yof7lCb6dIv2yQ76vNruMaje498qj8bNHjFFHvUFHvNXefSd 63E2yyMj02PaWI8Tz9v7Ux4zzeAuHk2/O5rPO9rOOP7b5xhv5u51HN/ouFjs iDUdzchCR8NC+/e64+Esx/yZjtTpjqlTLDPBsTfd0fSsY32SY87TjtHDHeOG OBY+6fign2NgD0d8nKNTB0dNlCPXXA1Zz6Cj3FzE8g+VZQ+UZLOlTVnUqty9 q7SYn8wCU/SPknRLSflD+e2KcumSUlVvufNK+g/K7Vpld41y/Eul5qhy8Igy wlw/pNw/qMR+ruzZpxTstl4blVFlyr1SJXWdUrdW+bhIuVZo9eb7PKXTSmXJ m7ZPttJ7jjLsNeXyK0rxS5aZqoyZrLw4STn8gpI93vqbzHHKmjSlQ6rycKTl k5WGJOUTkzdUuTBEyTC3Eu2OZvAAOx9XwmZFH8XvrfyZoDzoodDd6uOU6E62 W7RSYvp2UPZHKafCSqmpDNhsVQrvC/PM6jahtzl1T0i4K8SaBTeFJU3C7Ubh tFlqbvwqLP5F+Ptnoey6MO2anZcsUycMviBMPi/sOCd0MTdrhXWmqyn7Tsgy Z78R6k4KKSb1K6FXjTDkuLCh2maZv44KA03xEeHiF8L2KuHIYZt7SFj5mRD4 VCivsF1MyUfCMrNlr7DZLN8jNO8SLu8UVpjTO2zW+8JsU71VGGSuvyfkmG6b hTvlwhVTYSaaeJO2QRiz3mrftdpSoX+JMGWtkLlGKCyye5k7BUKRGWceM4HV wrF3hK15wiIzcZXwqNmVa9/MJHNsubBpmXA1R/gfrG8rTQ== "]]; Show[ ListLogLogPlot[ Part[ Transpose[{ Range[ Length[$CellContext`data]], $CellContext`data}], Range[$CellContext`n$$]], PlotRange -> {{0.9, Length[$CellContext`data]}, {22000, 6.5 10^7}}, Ticks -> None, AxesLabel -> { Row[{"log rank (", $CellContext`x, ")"}], "log population"}, PlotLabel -> Column[{"ParameterTable" -> LinearModelFit[ Part[ Transpose[{ Log[ Range[ Length[$CellContext`data]]], Log[$CellContext`data]}], Range[$CellContext`n$$]], { 1, $CellContext`x}, $CellContext`x]["ParameterTable"], "RSquared" -> LinearModelFit[ Part[ Transpose[{ Log[ Range[ Length[$CellContext`data]]], Log[$CellContext`data]}], Range[$CellContext`n$$]], { 1, $CellContext`x}, $CellContext`x]["RSquared"]}], ImageSize -> {500, 375}], Plot[ Evaluate[ LinearModelFit[ Part[ Transpose[{ Log[ Range[ Length[$CellContext`data]]], Log[$CellContext`data]}], Range[$CellContext`n$$]], { 1, $CellContext`x}, $CellContext`x][ "BestFit"]], {$CellContext`x, 0, Log[$CellContext`n$$]}]]), "Specifications" :> {{{$CellContext`n$$, 3, "number"}, 3, 280, 1, Appearance -> "Labeled"}, {{$CellContext`t$$, False, "metropolitan areas"}, {True, False}}}, "Options" :> {TrackedSymbols :> Manipulate}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{545., {242., 248.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({ Needs["LinearRegression`"]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760845116103669*^9}, CellID->1184125681] }, {2}]]