Exercise 1:

These distributions are a unimodal right skewed data set. This right skew makes it asymmetric with high outliers at these which suggest that the mean is greater than the median and thus in analyzing the data it would be most efficient an accurate to you median and IQR statistics because they are less influenced by outliers than mean and standard deviation. When comparing the three histograms with changed bin width, more features are revealed in the 15 bin width as it displays more specifically each data point.

data(nycflights)
names(nycflights)

##  [1] "year"      "month"     "day"       "dep_time"  "dep_delay"
##  [6] "arr_time"  "arr_delay" "carrier"   "tailnum"   "flight"   
## [11] "origin"    "dest"      "air_time"  "distance"  "hour"     
## [16] "minute"

str(nycflights)

## Classes 'tbl_df' and 'data.frame':   32735 obs. of  16 variables:
##  $ year     : int  2013 2013 2013 2013 2013 2013 2013 2013 2013 2013 ...
##  $ month    : int  6 5 12 5 7 1 12 8 9 4 ...
##  $ day      : int  30 7 8 14 21 1 9 13 26 30 ...
##  $ dep_time : int  940 1657 859 1841 1102 1817 1259 1920 725 1323 ...
##  $ dep_delay: num  15 -3 -1 -4 -3 -3 14 85 -10 62 ...
##  $ arr_time : int  1216 2104 1238 2122 1230 2008 1617 2032 1027 1549 ...
##  $ arr_delay: num  -4 10 11 -34 -8 3 22 71 -8 60 ...
##  $ carrier  : chr  "VX" "DL" "DL" "DL" ...
##  $ tailnum  : chr  "N626VA" "N3760C" "N712TW" "N914DL" ...
##  $ flight   : int  407 329 422 2391 3652 353 1428 1407 2279 4162 ...
##  $ origin   : chr  "JFK" "JFK" "JFK" "JFK" ...
##  $ dest     : chr  "LAX" "SJU" "LAX" "TPA" ...
##  $ air_time : num  313 216 376 135 50 138 240 48 148 110 ...
##  $ distance : num  2475 1598 2475 1005 296 ...
##  $ hour     : num  9 16 8 18 11 18 12 19 7 13 ...
##  $ minute   : num  40 57 59 41 2 17 59 20 25 23 ...

qplot(x = dep_delay, data = nycflights, geom = "histogram", binwidth = 15)

qplot(x = dep_delay, data = nycflights, geom = "histogram", binwidth = 150)

qplot(x = dep_delay, data = nycflights, geom = "histogram")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=703330593 https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=837300587 https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=1541130292

Exercise 2:

68 flights

sfo_feb_flights <-nycflights %>%
+ filter(dest == "SFO", month == 2)
View(sfo_feb_flights)

Exercise 3:

The histogram of this data appears to be mostly unimodal symmetric with various large positive outliers making it slightly right skewed. The mean is likely much higher than the median given that the values are mostly clustered around -1 or 0 with outliers as high as 200. These outliers would strongly alter the mean yet not affect the median to the same extent. Given this, the median and IQR statistics would be more representative of the data as a whole due to the fact that they are less influenced by strong outlier values.

View(sfo_feb_flights)
> qplot(x = arr_delay, data = sfo_feb_flights, geom = "histogram")

Exercise 4:

The carriers with the most variable arrival delays is DL and UA both with IQRs of 22

sfo_feb_flights %>%
+ group_by(carrier) %>%
+ summarise(median_dd = median(arr_delay), iqr_dd = IQR(arr_delay), n = n())
 nycflights %>%
+ group_by(month) %>%
+ summarise(mean_dd = mean(dep_delay)) %>%
+ arrange(desc(mean_dd))

A tibble: 5 x 4

carrier median_dd iqr_dd n 1 AA 5 17.5 10 2 B6 -10.5 12.2 6 3 DL -15 22 19 4 UA -10 22 21 5 VX -22.5 21.2 12

A tibble: 12 x 2 month mean_dd 1 7 20.8 2 6 20.4 3 12 17.4 4 4 14.6 5 3 13.5 6 5 13.3 7 8 12.6 8 2 10.7 9 1 10.2 10 9 6.87 11 11 6.10 12 10 5.88 > nycflights %>% + group_by(month) # A tibble: 32,735 x 16 # Groups: month [12] year month day dep_time dep_delay arr_time arr_delay carrier tailnum flight 1 2013 6 30 940 15 1216 -4 VX N626VA 407 2 2013 5 7 1657 -3 2104 10 DL N3760C 329 3 2013 12 8 859 -1 1238 11 DL N712TW 422 4 2013 5 14 1841 -4 2122 -34 DL N914DL 2391 5 2013 7 21 1102 -3 1230 -8 9E N823AY 3652 6 2013 1 1 1817 -3 2008 3 AA N3AXAA 353 7 2013 12 9 1259 14 1617 22 WN N218WN 1428 8 2013 8 13 1920 85 2032 71 B6 N284JB 1407 9 2013 9 26 725 -10 1027 -8 AA N3FSAA 2279 10 2013 4 30 1323 62 1549 60 EV N12163 4162 # … with 32,725 more rows, and 6 more variables: origin , dest , # air_time , distance , hour , minute > nycflights %>% + group_by(month) %>% + summarise(median_dd = median(dep_delay)) %>% + arrange(desc(median_dd)) # A tibble: 12 x 2 month median_dd 1 12 1 2 6 0 3 7 0 4 3 -1 5 5 -1 6 8 -1 7 1 -2 8 2 -2 9 4 -2 10 11 -2 11 9 -3 12 10 -3

Exercise 5:

July has the highest average departure delay from any NYC airport while December has the highest median departure delay. When deciding which type of data is more reliable it appears that median is more accurate and informative as it gives more information of the likelihood of cancelation because it is more robust against the skewed data.

nycflights %>%
+ group_by(month) %>%
+ summarise(median_dd = median(dep_delay)) %>%
+ arrange(desc(median_dd))

A tibble: 12 x 2 month median_dd 1 12 1 2 6 0 3 7 0 4 3 -1 5 5 -1 6 8 -1 7 1 -2 8 2 -2 9 4 -2 10 11 -2 11 9 -3 12 10 -3

Exercise 6:

EWR because it has the lowest departure delay rate

nycflights %>%
+ group_by(origin) %>%
+ summarise(ot_dep_rate = sum(dep_type == "on time") / n()) %>%
+ arrange(desc(ot_dep_rate))

origin ot_dep_rate 1 LGA 0.728 2 JFK 0.694 3 EWR 0.637

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=-2129541217

Exercise 7:

nycflights <- nycflights %>% mutate(avg_speed = distance/(air_time/60))

Exercise 8:

N626VA is the tail number of the plane with the highest average velocity, which is 474

nycflights %>% select(avg_speed, tailnum)

A tibble: 32,735 x 2 avg_speed tailnum
1 474. N626VA 2 444. N3760C 3 395. N712TW 4 447. N914DL 5 355. N823AY 6 319. N3AXAA 7 353. N218WN 8 285 N284JB 9 444. N3FSAA 10 447. N12163 … with 32,725 more rows

Exercise 9:

Average speed and distance have a positive, nonlinear relationship

qplot(x = distance, y = avg_speed, data = nycflights, geom = "point")

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=-1144939123

Exercise 10:

nycflights <- nycflights %>% mutate(arr_type = ifelse(arr_delay <= 0, "on time", "delayed"))
 nycflights <- nycflights %>% mutate(arr_type = ifelse(dep_delay <= 0, "on time", "delayed"))
 nycflights %>% group_by(dep_type) %>% summarise(ot_arr_rate = sum(arr_type == "on time") / n()) %>% arrange(desc(ot_arr_rate))
# A tibble: 2 x 2
   
qplot(x = dep_type, fill = arr_type, data = nycflights, geom = "bar")

A tibble: 2 x 2

dep_type ot_arr_rate 1 on time 0.891 2 delayed 0

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=965302941

Exercise 11

The latest a plane could leave and arrive on time was around 60 minutes. However, the average time that a plane could be delayed and still arrive on time was 20 minutes. At a 20 minute delay, you can still expect to arrive on time the majority of the time.

airlines <- nycflights %>%
+ filter(carrier == "AA" | carrier == "DL" | carrier == "UA")
 qplot(x = dep_delay, y = arr_delay, data = airlines, geom = "point", color=carrier)

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=889551689

LS0tCnRpdGxlOiAiTGFiIDIiCmF1dGhvcjogIkthdGhsZWVuIFZlcm4iCmRhdGU6ICIxLzI4LzIwMTkiCm91dHB1dDogb2lsYWJzOjpsYWJfcmVwb3J0Ci0tLQoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkob2lsYWJzKQpgYGAKCiogKiAqCgojIyMgRXhlcmNpc2UgMTogClRoZXNlIGRpc3RyaWJ1dGlvbnMgYXJlIGEgdW5pbW9kYWwgcmlnaHQgc2tld2VkIGRhdGEgc2V0LiBUaGlzIHJpZ2h0IHNrZXcgbWFrZXMgaXQgYXN5bW1ldHJpYyB3aXRoIGhpZ2ggb3V0bGllcnMgYXQgdGhlc2Ugd2hpY2ggc3VnZ2VzdCB0aGF0IHRoZSBtZWFuIGlzIGdyZWF0ZXIgdGhhbiB0aGUgbWVkaWFuIGFuZCB0aHVzIGluIGFuYWx5emluZyB0aGUgZGF0YSBpdCB3b3VsZCBiZSBtb3N0IGVmZmljaWVudCBhbiBhY2N1cmF0ZSB0byB5b3UgbWVkaWFuIGFuZCBJUVIgc3RhdGlzdGljcyBiZWNhdXNlIHRoZXkgYXJlIGxlc3MgaW5mbHVlbmNlZCBieSBvdXRsaWVycyB0aGFuIG1lYW4gYW5kIHN0YW5kYXJkIGRldmlhdGlvbi4gV2hlbiBjb21wYXJpbmcgdGhlIHRocmVlIGhpc3RvZ3JhbXMgd2l0aCBjaGFuZ2VkIGJpbiB3aWR0aCwgbW9yZSBmZWF0dXJlcyBhcmUgcmV2ZWFsZWQgaW4gdGhlIDE1IGJpbiB3aWR0aCBhcyBpdCBkaXNwbGF5cyBtb3JlIHNwZWNpZmljYWxseSBlYWNoIGRhdGEgcG9pbnQuCmBgYHtyfQpkYXRhKG55Y2ZsaWdodHMpCm5hbWVzKG55Y2ZsaWdodHMpCnN0cihueWNmbGlnaHRzKQpxcGxvdCh4ID0gZGVwX2RlbGF5LCBkYXRhID0gbnljZmxpZ2h0cywgZ2VvbSA9ICJoaXN0b2dyYW0iLCBiaW53aWR0aCA9IDE1KQpxcGxvdCh4ID0gZGVwX2RlbGF5LCBkYXRhID0gbnljZmxpZ2h0cywgZ2VvbSA9ICJoaXN0b2dyYW0iLCBiaW53aWR0aCA9IDE1MCkKcXBsb3QoeCA9IGRlcF9kZWxheSwgZGF0YSA9IG55Y2ZsaWdodHMsIGdlb20gPSAiaGlzdG9ncmFtIikKYGBgCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc0JmhlaWdodD0yOTkmcmFuZG9taXplcj03MDMzMzA1OTMgCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc0JmhlaWdodD0yOTkmcmFuZG9taXplcj04MzczMDA1ODcgCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc0JmhlaWdodD0yOTkmcmFuZG9taXplcj0xNTQxMTMwMjkyIAoKIyMjIEV4ZXJjaXNlIDI6CjY4IGZsaWdodHMKYGBge3IgZXZhbCA9IEZBTFNFfQpzZm9fZmViX2ZsaWdodHMgPC1ueWNmbGlnaHRzICU+JQorIGZpbHRlcihkZXN0ID09ICJTRk8iLCBtb250aCA9PSAyKQpWaWV3KHNmb19mZWJfZmxpZ2h0cykKYGBgCgojIyMgRXhlcmNpc2UgMzoKVGhlIGhpc3RvZ3JhbSBvZiB0aGlzIGRhdGEgYXBwZWFycyB0byBiZSBtb3N0bHkgdW5pbW9kYWwgc3ltbWV0cmljIHdpdGggdmFyaW91cyBsYXJnZSBwb3NpdGl2ZSBvdXRsaWVycyBtYWtpbmcgaXQgc2xpZ2h0bHkgcmlnaHQgc2tld2VkLiBUaGUgbWVhbiBpcyBsaWtlbHkgbXVjaCBoaWdoZXIgdGhhbiB0aGUgbWVkaWFuIGdpdmVuIHRoYXQgdGhlIHZhbHVlcyBhcmUgbW9zdGx5IGNsdXN0ZXJlZCBhcm91bmQgLTEgb3IgMCB3aXRoIG91dGxpZXJzIGFzIGhpZ2ggYXMgMjAwLiBUaGVzZSBvdXRsaWVycyB3b3VsZCBzdHJvbmdseSBhbHRlciB0aGUgbWVhbiB5ZXQgbm90IGFmZmVjdCB0aGUgbWVkaWFuIHRvIHRoZSBzYW1lIGV4dGVudC4gR2l2ZW4gdGhpcywgdGhlIG1lZGlhbiBhbmQgSVFSIHN0YXRpc3RpY3Mgd291bGQgYmUgbW9yZSByZXByZXNlbnRhdGl2ZSBvZiB0aGUgZGF0YSBhcyBhIHdob2xlIGR1ZSB0byB0aGUgZmFjdCB0aGF0IHRoZXkgYXJlIGxlc3MgaW5mbHVlbmNlZCBieSBzdHJvbmcgb3V0bGllciB2YWx1ZXMuCmBgYHtyIGV2YWwgPSBGQUxTRX0KVmlldyhzZm9fZmViX2ZsaWdodHMpCj4gcXBsb3QoeCA9IGFycl9kZWxheSwgZGF0YSA9IHNmb19mZWJfZmxpZ2h0cywgZ2VvbSA9ICJoaXN0b2dyYW0iKQpgYGAKCiMjIyBFeGVyY2lzZSA0OgpUaGUgY2FycmllcnMgd2l0aCB0aGUgbW9zdCB2YXJpYWJsZSBhcnJpdmFsIGRlbGF5cyBpcyBETCBhbmQgVUEgYm90aCB3aXRoIElRUnMgb2YgMjIKYGBge3IgZXZhbCA9IEZBTFNFfQpzZm9fZmViX2ZsaWdodHMgJT4lCisgZ3JvdXBfYnkoY2FycmllcikgJT4lCisgc3VtbWFyaXNlKG1lZGlhbl9kZCA9IG1lZGlhbihhcnJfZGVsYXkpLCBpcXJfZGQgPSBJUVIoYXJyX2RlbGF5KSwgbiA9IG4oKSkKIG55Y2ZsaWdodHMgJT4lCisgZ3JvdXBfYnkobW9udGgpICU+JQorIHN1bW1hcmlzZShtZWFuX2RkID0gbWVhbihkZXBfZGVsYXkpKSAlPiUKKyBhcnJhbmdlKGRlc2MobWVhbl9kZCkpCmBgYAojIEEgdGliYmxlOiA1IHggNAogIGNhcnJpZXIgbWVkaWFuX2RkIGlxcl9kZCAgICAgbgogIDxjaHI+ICAgICAgIDxkYmw+ICA8ZGJsPiA8aW50PgoxIEFBICAgICAgICAgICAgNSAgICAgMTcuNSAgICAxMAoyIEI2ICAgICAgICAgIC0xMC41ICAgMTIuMiAgICAgNgozIERMICAgICAgICAgIC0xNSAgICAgMjIgICAgICAxOQo0IFVBICAgICAgICAgIC0xMCAgICAgMjIgICAgICAyMQo1IFZYICAgICAgICAgIC0yMi41ICAgMjEuMiAgICAxMgoKIEEgdGliYmxlOiAxMiB4IDIKICAgbW9udGggbWVhbl9kZAogICA8aW50PiAgIDxkYmw+CiAxICAgICA3ICAgMjAuOCAKIDIgICAgIDYgICAyMC40IAogMyAgICAxMiAgIDE3LjQgCiA0ICAgICA0ICAgMTQuNiAKIDUgICAgIDMgICAxMy41IAogNiAgICAgNSAgIDEzLjMgCiA3ICAgICA4ICAgMTIuNiAKIDggICAgIDIgICAxMC43IAogOSAgICAgMSAgIDEwLjIgCjEwICAgICA5ICAgIDYuODcKMTEgICAgMTEgICAgNi4xMAoxMiAgICAxMCAgICA1Ljg4Cj4gbnljZmxpZ2h0cyAlPiUKKyBncm91cF9ieShtb250aCkKIyBBIHRpYmJsZTogMzIsNzM1IHggMTYKIyBHcm91cHM6ICAgbW9udGggWzEyXQogICAgeWVhciBtb250aCAgIGRheSBkZXBfdGltZSBkZXBfZGVsYXkgYXJyX3RpbWUgYXJyX2RlbGF5IGNhcnJpZXIgdGFpbG51bSBmbGlnaHQKICAgPGludD4gPGludD4gPGludD4gICAgPGludD4gICAgIDxkYmw+ICAgIDxpbnQ+ICAgICA8ZGJsPiA8Y2hyPiAgIDxjaHI+ICAgIDxpbnQ+CiAxICAyMDEzICAgICA2ICAgIDMwICAgICAgOTQwICAgICAgICAxNSAgICAgMTIxNiAgICAgICAgLTQgVlggICAgICBONjI2VkEgICAgIDQwNwogMiAgMjAxMyAgICAgNSAgICAgNyAgICAgMTY1NyAgICAgICAgLTMgICAgIDIxMDQgICAgICAgIDEwIERMICAgICAgTjM3NjBDICAgICAzMjkKIDMgIDIwMTMgICAgMTIgICAgIDggICAgICA4NTkgICAgICAgIC0xICAgICAxMjM4ICAgICAgICAxMSBETCAgICAgIE43MTJUVyAgICAgNDIyCiA0ICAyMDEzICAgICA1ICAgIDE0ICAgICAxODQxICAgICAgICAtNCAgICAgMjEyMiAgICAgICAtMzQgREwgICAgICBOOTE0REwgICAgMjM5MQogNSAgMjAxMyAgICAgNyAgICAyMSAgICAgMTEwMiAgICAgICAgLTMgICAgIDEyMzAgICAgICAgIC04IDlFICAgICAgTjgyM0FZICAgIDM2NTIKIDYgIDIwMTMgICAgIDEgICAgIDEgICAgIDE4MTcgICAgICAgIC0zICAgICAyMDA4ICAgICAgICAgMyBBQSAgICAgIE4zQVhBQSAgICAgMzUzCiA3ICAyMDEzICAgIDEyICAgICA5ICAgICAxMjU5ICAgICAgICAxNCAgICAgMTYxNyAgICAgICAgMjIgV04gICAgICBOMjE4V04gICAgMTQyOAogOCAgMjAxMyAgICAgOCAgICAxMyAgICAgMTkyMCAgICAgICAgODUgICAgIDIwMzIgICAgICAgIDcxIEI2ICAgICAgTjI4NEpCICAgIDE0MDcKIDkgIDIwMTMgICAgIDkgICAgMjYgICAgICA3MjUgICAgICAgLTEwICAgICAxMDI3ICAgICAgICAtOCBBQSAgICAgIE4zRlNBQSAgICAyMjc5CjEwICAyMDEzICAgICA0ICAgIDMwICAgICAxMzIzICAgICAgICA2MiAgICAgMTU0OSAgICAgICAgNjAgRVYgICAgICBOMTIxNjMgICAgNDE2MgojIC4uLiB3aXRoIDMyLDcyNSBtb3JlIHJvd3MsIGFuZCA2IG1vcmUgdmFyaWFibGVzOiBvcmlnaW4gPGNocj4sIGRlc3QgPGNocj4sCiMgICBhaXJfdGltZSA8ZGJsPiwgZGlzdGFuY2UgPGRibD4sIGhvdXIgPGRibD4sIG1pbnV0ZSA8ZGJsPgo+IG55Y2ZsaWdodHMgJT4lCisgZ3JvdXBfYnkobW9udGgpICU+JQorIHN1bW1hcmlzZShtZWRpYW5fZGQgPSBtZWRpYW4oZGVwX2RlbGF5KSkgJT4lCisgYXJyYW5nZShkZXNjKG1lZGlhbl9kZCkpCiMgQSB0aWJibGU6IDEyIHggMgogICBtb250aCBtZWRpYW5fZGQKICAgPGludD4gICAgIDxkYmw+CiAxICAgIDEyICAgICAgICAgMQogMiAgICAgNiAgICAgICAgIDAKIDMgICAgIDcgICAgICAgICAwCiA0ICAgICAzICAgICAgICAtMQogNSAgICAgNSAgICAgICAgLTEKIDYgICAgIDggICAgICAgIC0xCiA3ICAgICAxICAgICAgICAtMgogOCAgICAgMiAgICAgICAgLTIKIDkgICAgIDQgICAgICAgIC0yCjEwICAgIDExICAgICAgICAtMgoxMSAgICAgOSAgICAgICAgLTMKMTIgICAgMTAgICAgICAgIC0zCgojIyMgRXhlcmNpc2UgNToKSnVseSBoYXMgdGhlIGhpZ2hlc3QgYXZlcmFnZSBkZXBhcnR1cmUgZGVsYXkgZnJvbSBhbnkgTllDIGFpcnBvcnQgd2hpbGUgRGVjZW1iZXIgaGFzIHRoZSBoaWdoZXN0IG1lZGlhbiBkZXBhcnR1cmUgZGVsYXkuIFdoZW4gZGVjaWRpbmcgd2hpY2ggdHlwZSBvZiBkYXRhIGlzIG1vcmUgcmVsaWFibGUgaXQgYXBwZWFycyB0aGF0IG1lZGlhbiBpcyBtb3JlIGFjY3VyYXRlIGFuZCBpbmZvcm1hdGl2ZSBhcyBpdCBnaXZlcyBtb3JlIGluZm9ybWF0aW9uIG9mIHRoZSBsaWtlbGlob29kIG9mIGNhbmNlbGF0aW9uIGJlY2F1c2UgaXQgaXMgbW9yZSByb2J1c3QgYWdhaW5zdCB0aGUgc2tld2VkIGRhdGEuCmBgYHtyIGV2YWwgPSBGQUxTRX0KbnljZmxpZ2h0cyAlPiUKKyBncm91cF9ieShtb250aCkgJT4lCisgc3VtbWFyaXNlKG1lZGlhbl9kZCA9IG1lZGlhbihkZXBfZGVsYXkpKSAlPiUKKyBhcnJhbmdlKGRlc2MobWVkaWFuX2RkKSkKYGBgCkEgdGliYmxlOiAxMiB4IDIKICAgbW9udGggbWVkaWFuX2RkCiAgIDxpbnQ+ICAgICA8ZGJsPgogMSAgICAxMiAgICAgICAgIDEKIDIgICAgIDYgICAgICAgICAwCiAzICAgICA3ICAgICAgICAgMAogNCAgICAgMyAgICAgICAgLTEKIDUgICAgIDUgICAgICAgIC0xCiA2ICAgICA4ICAgICAgICAtMQogNyAgICAgMSAgICAgICAgLTIKIDggICAgIDIgICAgICAgIC0yCiA5ICAgICA0ICAgICAgICAtMgoxMCAgICAxMSAgICAgICAgLTIKMTEgICAgIDkgICAgICAgIC0zCjEyICAgIDEwICAgICAgICAtMwoKIyMjIEV4ZXJjaXNlIDY6CkVXUiBiZWNhdXNlIGl0IGhhcyB0aGUgbG93ZXN0IGRlcGFydHVyZSBkZWxheSByYXRlCmBgYHtyIGV2YWwgPSBGQUxTRX0KbnljZmxpZ2h0cyAlPiUKKyBncm91cF9ieShvcmlnaW4pICU+JQorIHN1bW1hcmlzZShvdF9kZXBfcmF0ZSA9IHN1bShkZXBfdHlwZSA9PSAib24gdGltZSIpIC8gbigpKSAlPiUKKyBhcnJhbmdlKGRlc2Mob3RfZGVwX3JhdGUpKQpgYGAKb3JpZ2luIG90X2RlcF9yYXRlCiAgPGNocj4gICAgICAgIDxkYmw+CjEgTEdBICAgICAgICAgIDAuNzI4CjIgSkZLICAgICAgICAgIDAuNjk0CjMgRVdSICAgICAgICAgIDAuNjM3CgpodHRwczovL2xhYnMtYXotMDIub2l0LmR1a2UuZWR1OjMwNjIzL2dyYXBoaWNzL3Bsb3QucG5nP3dpZHRoPTU3NCZoZWlnaHQ9Mjk5JnJhbmRvbWl6ZXI9LTIxMjk1NDEyMTcgCgojIyMgRXhlcmNpc2UgNzoKCmBgYHtyIGV2YWwgPSBGQUxTRX0KbnljZmxpZ2h0cyA8LSBueWNmbGlnaHRzICU+JSBtdXRhdGUoYXZnX3NwZWVkID0gZGlzdGFuY2UvKGFpcl90aW1lLzYwKSkKYGBgCgojIyMgRXhlcmNpc2UgODoKTjYyNlZBIGlzIHRoZSB0YWlsIG51bWJlciBvZiB0aGUgcGxhbmUgd2l0aCB0aGUgaGlnaGVzdCBhdmVyYWdlIHZlbG9jaXR5LCB3aGljaCBpcyA0NzQKYGBge3IgZXZhbCA9IEZBTFNFfQpueWNmbGlnaHRzICU+JSBzZWxlY3QoYXZnX3NwZWVkLCB0YWlsbnVtKSAKYGBgCkEgdGliYmxlOiAzMiw3MzUgeCAyCiAgIGF2Z19zcGVlZCB0YWlsbnVtCiAgICAgICA8ZGJsPiA8Y2hyPiAgCiAxICAgICAgNDc0LiBONjI2VkEgCiAyICAgICAgNDQ0LiBOMzc2MEMgCiAzICAgICAgMzk1LiBONzEyVFcgCiA0ICAgICAgNDQ3LiBOOTE0REwgCiA1ICAgICAgMzU1LiBOODIzQVkgCiA2ICAgICAgMzE5LiBOM0FYQUEgCiA3ICAgICAgMzUzLiBOMjE4V04gCiA4ICAgICAgMjg1ICBOMjg0SkIgCiA5ICAgICAgNDQ0LiBOM0ZTQUEgCjEwICAgICAgNDQ3LiBOMTIxNjMgCi4uLiB3aXRoIDMyLDcyNSBtb3JlIHJvd3MKCiMjIyBFeGVyY2lzZSA5OgpBdmVyYWdlIHNwZWVkIGFuZCBkaXN0YW5jZSBoYXZlIGEgcG9zaXRpdmUsIG5vbmxpbmVhciByZWxhdGlvbnNoaXAKYGBge3IgZXZhbCA9IEZBTFNFfQpxcGxvdCh4ID0gZGlzdGFuY2UsIHkgPSBhdmdfc3BlZWQsIGRhdGEgPSBueWNmbGlnaHRzLCBnZW9tID0gInBvaW50IikgCmBgYApodHRwczovL2xhYnMtYXotMDIub2l0LmR1a2UuZWR1OjMwNjIzL2dyYXBoaWNzL3Bsb3QucG5nP3dpZHRoPTU3NCZoZWlnaHQ9Mjk5JnJhbmRvbWl6ZXI9LTExNDQ5MzkxMjMgCgojIyMgRXhlcmNpc2UgMTA6CgpgYGB7ciBldmFsID0gRkFMU0V9Cm55Y2ZsaWdodHMgPC0gbnljZmxpZ2h0cyAlPiUgbXV0YXRlKGFycl90eXBlID0gaWZlbHNlKGFycl9kZWxheSA8PSAwLCAib24gdGltZSIsICJkZWxheWVkIikpCiBueWNmbGlnaHRzIDwtIG55Y2ZsaWdodHMgJT4lIG11dGF0ZShhcnJfdHlwZSA9IGlmZWxzZShkZXBfZGVsYXkgPD0gMCwgIm9uIHRpbWUiLCAiZGVsYXllZCIpKQogbnljZmxpZ2h0cyAlPiUgZ3JvdXBfYnkoZGVwX3R5cGUpICU+JSBzdW1tYXJpc2Uob3RfYXJyX3JhdGUgPSBzdW0oYXJyX3R5cGUgPT0gIm9uIHRpbWUiKSAvIG4oKSkgJT4lIGFycmFuZ2UoZGVzYyhvdF9hcnJfcmF0ZSkpCiMgQSB0aWJibGU6IDIgeCAyCiAgIApxcGxvdCh4ID0gZGVwX3R5cGUsIGZpbGwgPSBhcnJfdHlwZSwgZGF0YSA9IG55Y2ZsaWdodHMsIGdlb20gPSAiYmFyIikKYGBgCiAKIyBBIHRpYmJsZTogMiB4IDIKICBkZXBfdHlwZSBvdF9hcnJfcmF0ZQogIDxjaHI+ICAgICAgICAgIDxkYmw+CjEgb24gdGltZSAgICAgICAgMC44OTEKMiBkZWxheWVkICAgICAgICAwICAgIAoKaHR0cHM6Ly9sYWJzLWF6LTAyLm9pdC5kdWtlLmVkdTozMDYyMy9ncmFwaGljcy9wbG90LnBuZz93aWR0aD01NzQmaGVpZ2h0PTI5OSZyYW5kb21pemVyPTk2NTMwMjk0MSAKCiMjIyBFeGVyY2lzZSAxMQpUaGUgbGF0ZXN0IGEgcGxhbmUgY291bGQgbGVhdmUgYW5kIGFycml2ZSBvbiB0aW1lIHdhcyBhcm91bmQgNjAgbWludXRlcy4gSG93ZXZlciwgdGhlIGF2ZXJhZ2UgdGltZSB0aGF0IGEgcGxhbmUgY291bGQgYmUgZGVsYXllZCBhbmQgc3RpbGwgYXJyaXZlIG9uIHRpbWUgd2FzIDIwIG1pbnV0ZXMuIEF0IGEgMjAgbWludXRlIGRlbGF5LCB5b3UgY2FuIHN0aWxsIGV4cGVjdCB0byBhcnJpdmUgb24gdGltZSB0aGUgbWFqb3JpdHkgb2YgdGhlIHRpbWUuIApgYGB7ciBldmFsID0gRkFMU0V9CmFpcmxpbmVzIDwtIG55Y2ZsaWdodHMgJT4lCisgZmlsdGVyKGNhcnJpZXIgPT0gIkFBIiB8IGNhcnJpZXIgPT0gIkRMIiB8IGNhcnJpZXIgPT0gIlVBIikKIHFwbG90KHggPSBkZXBfZGVsYXksIHkgPSBhcnJfZGVsYXksIGRhdGEgPSBhaXJsaW5lcywgZ2VvbSA9ICJwb2ludCIsIGNvbG9yPWNhcnJpZXIpCmBgYApodHRwczovL2xhYnMtYXotMDIub2l0LmR1a2UuZWR1OjMwNjIzL2dyYXBoaWNzL3Bsb3QucG5nP3dpZHRoPTU3NCZoZWlnaHQ9Mjk5JnJhbmRvbWl6ZXI9ODg5NTUxNjg5IAoKCgoKCg==

Lab 2

Kathleen Vern

1/28/2019