Teamwork Report
Team Member | Attendence | Author | Contribution % |
: ———————-| : ——– |: ——– | : ———– :
Lexi Clifford | yes | no | 25% |
Amanda Beach | yes | no | 25% |
Michelle Rodriguez | yes | no | 25% |
Kathleen Vern | yes | yes | 25% |
Total | | | 100% |
Exercise 1:
The distribution of the house area in this sample range from 693-3086 with a mean at 1463 and the median at 1382. The IQR is 600 with the 25th percentile at 1111 and the 75th percentile at 1712. Given that the graph is unimodal with a slight right skew, (learned both in graphing the data and the fact that the median is less than the mean) we are able to suggest that to most accurately analyze the data we should utilize the robust statistics. The “typical” size should thus suggest the median value of area as meaning we believe that the typical area or size of a house is 1382 square feet.
data(ames)
set.seed(999)
n <- 60
samp <- sample_n(ames, n)
samp %>%
summarise(mu = mean(area), pop_med = median(area),
sigma = sd(area), pop_iqr = IQR(area),
pop_min = min(area), pop_max = max(area),
pop_q1 = quantile(area, 0.25), # first quartile, 25th percentile
pop_q3 = quantile(area, 0.75)) # third quartile, 75th percentile
## # A tibble: 1 x 8
## mu pop_med sigma pop_iqr pop_min pop_max pop_q1 pop_q3
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1514 1457 566. 581. 480 2956 1108. 1689.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
A tibble: 1 x 8 mu pop_med sigma pop_iqr pop_min pop_max pop_q1 pop_q3 1 1463. 1382. 469. 600. 693 3086 1111 1712.
https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=346275109
Exercise 2:
We would not expect another group’s distribution to be identical to ours. While the distributions would probably be similar, point estimates do not give the full range of population parameters and some variables (i.e. the sample means) can vary among groups. However, as the sample size increases, we would expect the statistics of each group to look more similar and mimic the sample mean of the populations more closely
Exercise 3:
For the confidence interval to be valid the sample mean must be normally distributed with a standard error s/sqrt(n). The conditions necessary for this to be met are having random sampling and ensured independence involved in producing 10 or more successes and failures. There must also be the independence condition than the population is less than 10% of the entire population.
Exercise 4:
95% confidence means that we are 95% confident that the mean of the true population (point score) falls within the given range
Exercise 5:
Our confidence interval captures the true average size of houses in Ames as the range is between 1345-1582 and the true average of this sample is 1499.69. Our neighbor’s interval will also capture the true average size of houses in Ames.
## [1] 1.959964
## [1] 1.959964
## # A tibble: 1 x 2
## lower upper
## <dbl> <dbl>
## 1 1371. 1657.
Confidence Interval 95%: A tibble: 1 x 2 lower upper 1 1345. 1582.
Population Average (mu): mu 1 1499.69
Exercise 6:
The proportion of these intervals we would expect to capture the true population mean is 0.95 because this indicates that we would expect to see a confidence interval that contains the true population mean 95% of the time.
Exercise 7:
The proportion of our confidence intervals that include the true population mean is 48/50, or 96%. While this proportion is not exactly equal to the confidence level of 95%, given that the test was only done 50 times there is not possible value that could have given the result of 95% making this value acceptable for our confidence.
set.seed(999)
ci <- ames %>%
rep_sample_n(size = n, reps = 50, replace = TRUE) %>%
summarise(lower = mean(area) - z_star_95 * (sd(area) / sqrt(n)),
upper = mean(area) + z_star_95 * (sd(area) / sqrt(n)))
ci <- ci %>%
mutate(capture_mu = ifelse(lower < params$mu & upper > params$mu, "yes", "no"))
ci_data <- data.frame(ci_id = c(1:50, 1:50),
ci_bounds = c(ci$lower, ci$upper),
capture_mu = c(ci$capture_mu, ci$capture_mu))
qplot(data = ci_data, x = ci_bounds, y = ci_id,
group = ci_id, color = capture_mu) +
geom_point(size = 2) + # add points at the ends, size = 2
geom_line() + # connect with lines
geom_vline(xintercept = params$mu, color = "darkgray") # draw vertical line
https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=868145293
Exercise 8:
The appropriate critical value for a confidence interval of 99% is 2.575829.
## [1] 2.575829
## [1] 2.575829
Exercise 9:
The proportion of our confidence intervals that include the true population mean is 50/50, or 100%. While this proportion is not exactly equal to the confidence level of 99%, given that the test was only done 50 times there is not possible value that could have given the result of 99% making this value acceptable for our confidence.
set.seed(999)
ci <- ames %>%
rep_sample_n(size = n, reps = 50, replace = TRUE) %>%
summarise(lower = mean(area) - z_star_99 * (sd(area) / sqrt(n)),
upper = mean(area) + z_star_99 * (sd(area) / sqrt(n)))
ci <- ci %>%
mutate(capture_mu = ifelse(lower < params$mu & upper > params$mu, "yes", "no"))
ci_data <- data.frame(ci_id = c(1:50, 1:50),
ci_bounds = c(ci$lower, ci$upper),
capture_mu = c(ci$capture_mu, ci$capture_mu))
qplot(data = ci_data, x = ci_bounds, y = ci_id,
group = ci_id, color = capture_mu) +
geom_point(size = 2) + # add points at the ends, size = 2
geom_line() + # connect with lines
geom_vline(xintercept = params$mu, color = "darkgray") # draw vertical line
https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=574&height=299&randomizer=-320888409
LS0tCnRpdGxlOiAiTGFiIDUiCmF1dGhvcjogIkFib3ZlIEF2ZXJhZ2UiCmRhdGU6ICJGZWIgMTgsIDIwMTkiCm91dHB1dDogb2lsYWJzOjpsYWJfcmVwb3J0Ci0tLQoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkob2lsYWJzKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmRhdGEoYW1lcykKYGBgCgojIyBUZWFtd29yayBSZXBvcnQKCnwgVGVhbSBNZW1iZXIgfCBBdHRlbmRlbmNlIHwgQXV0aG9yIHwgQ29udHJpYnV0aW9uICUgfAp8IDogLS0tLS0tLS0tLS0tLS0tLS0tLS0tLXwgOiAtLS0tLS0tLSB8OiAtLS0tLS0tLSB8IDogLS0tLS0tLS0tLS0gOgp8IExleGkgQ2xpZmZvcmQgICAgICB8IHllcyB8IG5vIHwgMjUlIHwKfCBBbWFuZGEgQmVhY2ggICAgICAgfCB5ZXMgfCBubyB8IDI1JSB8CnwgTWljaGVsbGUgUm9kcmlndWV6IHwgeWVzIHwgbm8gfCAyNSUgfAp8IEthdGhsZWVuIFZlcm4gICAgICB8IHllcyB8IHllcyB8IDI1JSB8IAp8IFRvdGFsIHwgfCB8IDEwMCUgfCAKCgoqICogKgoKIyMjIEV4ZXJjaXNlIDE6IApUaGUgZGlzdHJpYnV0aW9uIG9mIHRoZSBob3VzZSBhcmVhIGluIHRoaXMgc2FtcGxlIHJhbmdlIGZyb20gNjkzLTMwODYgd2l0aCBhIG1lYW4gYXQgMTQ2MyBhbmQgdGhlIG1lZGlhbiBhdCAxMzgyLiBUaGUgSVFSIGlzIDYwMCB3aXRoIHRoZSAyNXRoIHBlcmNlbnRpbGUgYXQgMTExMSBhbmQgdGhlIDc1dGggcGVyY2VudGlsZSBhdCAxNzEyLiBHaXZlbiB0aGF0IHRoZSBncmFwaCBpcyB1bmltb2RhbCB3aXRoIGEgc2xpZ2h0IHJpZ2h0IHNrZXcsIChsZWFybmVkIGJvdGggaW4gZ3JhcGhpbmcgdGhlIGRhdGEgYW5kIHRoZSBmYWN0IHRoYXQgdGhlIG1lZGlhbiBpcyBsZXNzIHRoYW4gdGhlIG1lYW4pIHdlIGFyZSBhYmxlIHRvIHN1Z2dlc3QgdGhhdCB0byBtb3N0IGFjY3VyYXRlbHkgYW5hbHl6ZSB0aGUgZGF0YSB3ZSBzaG91bGQgdXRpbGl6ZSB0aGUgcm9idXN0IHN0YXRpc3RpY3MuIFRoZSDigJx0eXBpY2Fs4oCdIHNpemUgc2hvdWxkIHRodXMgc3VnZ2VzdCB0aGUgbWVkaWFuIHZhbHVlIG9mIGFyZWEgYXMgbWVhbmluZyB3ZSBiZWxpZXZlIHRoYXQgdGhlIHR5cGljYWwgYXJlYSBvciBzaXplIG9mIGEgaG91c2UgaXMgMTM4MiBzcXVhcmUgZmVldC4KCmBgYHtyfQpkYXRhKGFtZXMpCnNldC5zZWVkKDk5OSkKbiA8LSA2MApzYW1wIDwtIHNhbXBsZV9uKGFtZXMsIG4pCnNhbXAgJT4lCiAgICAgc3VtbWFyaXNlKG11ID0gbWVhbihhcmVhKSwgcG9wX21lZCA9IG1lZGlhbihhcmVhKSwgCiAgICAgICAgICAgICAgc2lnbWEgPSBzZChhcmVhKSwgcG9wX2lxciA9IElRUihhcmVhKSwKICAgICAgICAgICAgICBwb3BfbWluID0gbWluKGFyZWEpLCBwb3BfbWF4ID0gbWF4KGFyZWEpLAogICAgICAgICAgICAgIHBvcF9xMSA9IHF1YW50aWxlKGFyZWEsIDAuMjUpLCAgIyBmaXJzdCBxdWFydGlsZSwgMjV0aCBwZXJjZW50aWxlCiAgICAgICAgICAgICAgcG9wX3EzID0gcXVhbnRpbGUoYXJlYSwgMC43NSkpICAjIHRoaXJkIHF1YXJ0aWxlLCA3NXRoIHBlcmNlbnRpbGUKcXBsb3QoZGF0YSA9IHNhbXAsIHggPSBhcmVhLCBnZW9tID0gImhpc3RvZ3JhbSIpCmBgYApBIHRpYmJsZTogMSB4IDgKICAgICBtdSBwb3BfbWVkIHNpZ21hIHBvcF9pcXIgcG9wX21pbiBwb3BfbWF4IHBvcF9xMSBwb3BfcTMKICA8ZGJsPiAgIDxkYmw+IDxkYmw+ICAgPGRibD4gICA8ZGJsPiAgIDxkYmw+ICA8ZGJsPiAgPGRibD4KMSAxNDYzLiAgIDEzODIuICA0NjkuICAgIDYwMC4gICAgIDY5MyAgICAzMDg2ICAgMTExMSAgMTcxMi4KCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc0JmhlaWdodD0yOTkmcmFuZG9taXplcj0zNDYyNzUxMDkKCiMjIyBFeGVyY2lzZSAyOgpXZSB3b3VsZCBub3QgZXhwZWN0IGFub3RoZXIgZ3JvdXDigJlzIGRpc3RyaWJ1dGlvbiB0byBiZSBpZGVudGljYWwgdG8gb3Vycy4gV2hpbGUgdGhlIGRpc3RyaWJ1dGlvbnMgd291bGQgcHJvYmFibHkgYmUgc2ltaWxhciwgcG9pbnQgZXN0aW1hdGVzIGRvIG5vdCBnaXZlIHRoZSBmdWxsIHJhbmdlIG9mIHBvcHVsYXRpb24gcGFyYW1ldGVycyBhbmQgc29tZSB2YXJpYWJsZXMgKGkuZS4gdGhlIHNhbXBsZSBtZWFucykgY2FuIHZhcnkgYW1vbmcgZ3JvdXBzLiBIb3dldmVyLCBhcyB0aGUgc2FtcGxlIHNpemUgaW5jcmVhc2VzLCB3ZSB3b3VsZCBleHBlY3QgdGhlIHN0YXRpc3RpY3Mgb2YgZWFjaCBncm91cCB0byBsb29rIG1vcmUgc2ltaWxhciBhbmQgbWltaWMgdGhlIHNhbXBsZSBtZWFuIG9mIHRoZSBwb3B1bGF0aW9ucyBtb3JlIGNsb3NlbHkKCiMjIyBFeGVyY2lzZSAzOgpGb3IgdGhlIGNvbmZpZGVuY2UgaW50ZXJ2YWwgdG8gYmUgdmFsaWQgdGhlIHNhbXBsZSBtZWFuIG11c3QgYmUgbm9ybWFsbHkgZGlzdHJpYnV0ZWQgd2l0aCBhIHN0YW5kYXJkIGVycm9yIHMvc3FydChuKS4gVGhlIGNvbmRpdGlvbnMgbmVjZXNzYXJ5IGZvciB0aGlzIHRvIGJlIG1ldCBhcmUgaGF2aW5nIHJhbmRvbSBzYW1wbGluZyBhbmQgZW5zdXJlZCBpbmRlcGVuZGVuY2UgaW52b2x2ZWQgaW4gcHJvZHVjaW5nIDEwIG9yIG1vcmUgc3VjY2Vzc2VzIGFuZCBmYWlsdXJlcy4gVGhlcmUgbXVzdCBhbHNvIGJlIHRoZSBpbmRlcGVuZGVuY2UgY29uZGl0aW9uIHRoYW4gdGhlIHBvcHVsYXRpb24gaXMgbGVzcyB0aGFuIDEwJSBvZiB0aGUgZW50aXJlIHBvcHVsYXRpb24uCgojIyMgRXhlcmNpc2UgNDoKOTUlIGNvbmZpZGVuY2UgbWVhbnMgdGhhdCB3ZSBhcmUgOTUlIGNvbmZpZGVudCB0aGF0IHRoZSBtZWFuIG9mIHRoZSB0cnVlIHBvcHVsYXRpb24gKHBvaW50IHNjb3JlKSBmYWxscyB3aXRoaW4gdGhlIGdpdmVuIHJhbmdlCiAKIyMjIEV4ZXJjaXNlIDU6Ck91ciBjb25maWRlbmNlIGludGVydmFsIGNhcHR1cmVzIHRoZSB0cnVlIGF2ZXJhZ2Ugc2l6ZSBvZiBob3VzZXMgaW4gQW1lcyBhcyB0aGUgcmFuZ2UgaXMgYmV0d2VlbiAxMzQ1LTE1ODIgYW5kIHRoZSB0cnVlIGF2ZXJhZ2Ugb2YgdGhpcyBzYW1wbGUgaXMgMTQ5OS42OS4gT3VyIG5laWdoYm9y4oCZcyBpbnRlcnZhbCB3aWxsIGFsc28gY2FwdHVyZSB0aGUgdHJ1ZSBhdmVyYWdlIHNpemUgb2YgaG91c2VzIGluIEFtZXMuCmBgYHtyfQpzZXQuc2VlZCg5OTkpCnpfc3Rhcl85NSA8LSBxbm9ybSgwLjk3NSkKel9zdGFyXzk1CjEuOTU5OTY0CnNhbXAgJT4lCiAgICAgc3VtbWFyaXNlKGxvd2VyID0gbWVhbihhcmVhKSAtIHpfc3Rhcl85NSAqIChzZChhcmVhKSAvIHNxcnQobikpLAogICAgICAgICAgICAgICB1cHBlciA9IG1lYW4oYXJlYSkgKyB6X3N0YXJfOTUgKiAoc2QoYXJlYSkgLyBzcXJ0KG4pKSkKcGFyYW1zIDwtIGFtZXMgJT4lCiAgICAgc3VtbWFyaXNlKG11ID0gbWVhbihhcmVhKSkKYGBgCkNvbmZpZGVuY2UgSW50ZXJ2YWwgOTUlOgpBIHRpYmJsZTogMSB4IDIKICBsb3dlciB1cHBlcgogIDxkYmw+IDxkYmw+CjEgMTM0NS4gMTU4Mi4KClBvcHVsYXRpb24gQXZlcmFnZSAobXUpOgptdQoxCTE0OTkuNjkKCiMjIyBFeGVyY2lzZSA2OgpUaGUgcHJvcG9ydGlvbiBvZiB0aGVzZSBpbnRlcnZhbHMgd2Ugd291bGQgZXhwZWN0IHRvIGNhcHR1cmUgdGhlIHRydWUgcG9wdWxhdGlvbiBtZWFuIGlzIDAuOTUgYmVjYXVzZSB0aGlzIGluZGljYXRlcyB0aGF0IHdlIHdvdWxkIGV4cGVjdCB0byBzZWUgYSBjb25maWRlbmNlIGludGVydmFsIHRoYXQgY29udGFpbnMgdGhlIHRydWUgcG9wdWxhdGlvbiBtZWFuIDk1JSBvZiB0aGUgdGltZS4KCiMjIyBFeGVyY2lzZSA3OgpUaGUgcHJvcG9ydGlvbiBvZiBvdXIgY29uZmlkZW5jZSBpbnRlcnZhbHMgdGhhdCBpbmNsdWRlIHRoZSB0cnVlIHBvcHVsYXRpb24gbWVhbiBpcyA0OC81MCwgb3IgOTYlLiBXaGlsZSB0aGlzIHByb3BvcnRpb24gaXMgbm90IGV4YWN0bHkgZXF1YWwgdG8gdGhlIGNvbmZpZGVuY2UgbGV2ZWwgb2YgOTUlLCBnaXZlbiB0aGF0IHRoZSB0ZXN0IHdhcyBvbmx5IGRvbmUgNTAgdGltZXMgdGhlcmUgaXMgbm90IHBvc3NpYmxlIHZhbHVlIHRoYXQgY291bGQgaGF2ZSBnaXZlbiB0aGUgcmVzdWx0IG9mIDk1JSBtYWtpbmcgdGhpcyB2YWx1ZSBhY2NlcHRhYmxlIGZvciBvdXIgY29uZmlkZW5jZS4gCmBgYHtyfQpzZXQuc2VlZCg5OTkpCmNpIDwtIGFtZXMgJT4lCiAgICAgcmVwX3NhbXBsZV9uKHNpemUgPSBuLCByZXBzID0gNTAsIHJlcGxhY2UgPSBUUlVFKSAlPiUKICAgICBzdW1tYXJpc2UobG93ZXIgPSBtZWFuKGFyZWEpIC0gel9zdGFyXzk1ICogKHNkKGFyZWEpIC8gc3FydChuKSksCiAgICAgICAgICAgICAgIHVwcGVyID0gbWVhbihhcmVhKSArIHpfc3Rhcl85NSAqIChzZChhcmVhKSAvIHNxcnQobikpKQpjaSA8LSBjaSAlPiUKICAgICBtdXRhdGUoY2FwdHVyZV9tdSA9IGlmZWxzZShsb3dlciA8IHBhcmFtcyRtdSAmIHVwcGVyID4gcGFyYW1zJG11LCAieWVzIiwgIm5vIikpCmNpX2RhdGEgPC0gZGF0YS5mcmFtZShjaV9pZCA9IGMoMTo1MCwgMTo1MCksCiAgICAgICAgICAgICAgICAgICAgICBjaV9ib3VuZHMgPSBjKGNpJGxvd2VyLCBjaSR1cHBlciksCiAgICAgICAgICAgICAgICAgICAgICBjYXB0dXJlX211ID0gYyhjaSRjYXB0dXJlX211LCBjaSRjYXB0dXJlX211KSkKcXBsb3QoZGF0YSA9IGNpX2RhdGEsIHggPSBjaV9ib3VuZHMsIHkgPSBjaV9pZCwgCiAgICAgICBncm91cCA9IGNpX2lkLCBjb2xvciA9IGNhcHR1cmVfbXUpICsKICAgICBnZW9tX3BvaW50KHNpemUgPSAyKSArICAjIGFkZCBwb2ludHMgYXQgdGhlIGVuZHMsIHNpemUgPSAyCiAgICAgZ2VvbV9saW5lKCkgKyAgICAgICAgICAgIyBjb25uZWN0IHdpdGggbGluZXMKICAgICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSBwYXJhbXMkbXUsIGNvbG9yID0gImRhcmtncmF5IikgIyBkcmF3IHZlcnRpY2FsIGxpbmUKYGBgCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc0JmhlaWdodD0yOTkmcmFuZG9taXplcj04NjgxNDUyOTMgCgojIyMgRXhlcmNpc2UgODoKVGhlIGFwcHJvcHJpYXRlIGNyaXRpY2FsIHZhbHVlIGZvciBhIGNvbmZpZGVuY2UgaW50ZXJ2YWwgb2YgOTklIGlzIDIuNTc1ODI5LgpgYGB7cn0Kel9zdGFyXzk5IDwtIHFub3JtKDAuOTk1KQp6X3N0YXJfOTkKMi41NzU4MjkKYGBgCgojIyMgRXhlcmNpc2UgOToKVGhlIHByb3BvcnRpb24gb2Ygb3VyIGNvbmZpZGVuY2UgaW50ZXJ2YWxzIHRoYXQgaW5jbHVkZSB0aGUgdHJ1ZSBwb3B1bGF0aW9uIG1lYW4gaXMgNTAvNTAsIG9yIDEwMCUuIFdoaWxlIHRoaXMgcHJvcG9ydGlvbiBpcyBub3QgZXhhY3RseSBlcXVhbCB0byB0aGUgY29uZmlkZW5jZSBsZXZlbCBvZiA5OSUsIGdpdmVuIHRoYXQgdGhlIHRlc3Qgd2FzIG9ubHkgZG9uZSA1MCB0aW1lcyB0aGVyZSBpcyBub3QgcG9zc2libGUgdmFsdWUgdGhhdCBjb3VsZCBoYXZlIGdpdmVuIHRoZSByZXN1bHQgb2YgOTklIG1ha2luZyB0aGlzIHZhbHVlIGFjY2VwdGFibGUgZm9yIG91ciBjb25maWRlbmNlLiAgCmBgYHtyfQpzZXQuc2VlZCg5OTkpCmNpIDwtIGFtZXMgJT4lCiAgICByZXBfc2FtcGxlX24oc2l6ZSA9IG4sIHJlcHMgPSA1MCwgcmVwbGFjZSA9IFRSVUUpICU+JQogICAgc3VtbWFyaXNlKGxvd2VyID0gbWVhbihhcmVhKSAtIHpfc3Rhcl85OSAqIChzZChhcmVhKSAvIHNxcnQobikpLAogICAgICAgICAgICAgICB1cHBlciA9IG1lYW4oYXJlYSkgKyB6X3N0YXJfOTkgKiAoc2QoYXJlYSkgLyBzcXJ0KG4pKSkKY2kgPC0gY2kgJT4lCiAgICAgbXV0YXRlKGNhcHR1cmVfbXUgPSBpZmVsc2UobG93ZXIgPCBwYXJhbXMkbXUgJiB1cHBlciA+IHBhcmFtcyRtdSwgInllcyIsICJubyIpKQpjaV9kYXRhIDwtIGRhdGEuZnJhbWUoY2lfaWQgPSBjKDE6NTAsIDE6NTApLAogICAgICAgICAgICAgICAgICAgICAgIGNpX2JvdW5kcyA9IGMoY2kkbG93ZXIsIGNpJHVwcGVyKSwKICAgICAgICAgICAgICAgICAgICAgICBjYXB0dXJlX211ID0gYyhjaSRjYXB0dXJlX211LCBjaSRjYXB0dXJlX211KSkKcXBsb3QoZGF0YSA9IGNpX2RhdGEsIHggPSBjaV9ib3VuZHMsIHkgPSBjaV9pZCwgCiAgICAgIGdyb3VwID0gY2lfaWQsIGNvbG9yID0gY2FwdHVyZV9tdSkgKwogICAgZ2VvbV9wb2ludChzaXplID0gMikgKyAgIyBhZGQgcG9pbnRzIGF0IHRoZSBlbmRzLCBzaXplID0gMgogICAgIGdlb21fbGluZSgpICsgICAgICAgICAgICMgY29ubmVjdCB3aXRoIGxpbmVzCiAgICAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gcGFyYW1zJG11LCBjb2xvciA9ICJkYXJrZ3JheSIpICMgZHJhdyB2ZXJ0aWNhbCBsaW5lCmBgYApodHRwczovL2xhYnMtYXotMDIub2l0LmR1a2UuZWR1OjMwNjIzL2dyYXBoaWNzL3Bsb3QucG5nP3dpZHRoPTU3NCZoZWlnaHQ9Mjk5JnJhbmRvbWl6ZXI9LTMyMDg4ODQwOSAK
