Lab 7: Inference for Categorical Data

Teamwork Report

Team member name | Attendence | Author | Contribution % |
: ………………………| : ……..| :……..| :………..
Kathleen Vern | yes | yes | 25%
Amanda Beach | yes | no | 25%
Lexi Clifford | yes | no | 25%
Michelle Rodriguez | yes | no | 25%
Total | | | 100% |

Exercise 1:

The percentages presented in the first paragraph appear to be sample statistics because the data describes a large population that was surveyed, but it is unlikely that every single person in each country sampled responded to the survey. Additionally in the second paragraph we are informed that it was surveyed from a sample size of 50,000 people which is not the entire population and thus it appears that we are looking at sample parameters rather than the entire population.

Exercise 2:

To generalize the report’s findings to the global human population, we must assume that the sampling method is a simple random sample. This seems like a reasonable assumption because the data is collected from an international Gallup poll and is described as a “world-wide network of leading opinion pollsters.” There is also diversity among countries, genders, has a large enough number of responses while remaining less that 10% of the whole population, and asks the same question to every sample surveyed. Also, because there is no information to indicate that the data is not taken from a simple random sample, we are able to assume this random method was in fact used.

Exercise 3:

Each row of table 6 corresponds to different countries while each row of “atheism” corresponds to different people who were surveyed. Because these two are different, we will need to take extra measures to compare the data of these tables.

Exercise 4:

The calculated proportion is .0499, which agrees with the percentage of 5% in the table

us12 <- atheism%>%
  filter(nationality == "United States", year == "2012")
inference(y = response, data = us12, null = 0, statistic = "proportion", type = "ht", method = "theoretical", success = "atheist", alternative = "twosided")

## Single categorical variable, success: atheist
## n = 1002, p-hat = 0.0499
## H0: p = 0
## HA: p != 0
## z = 7.2544
## p_value = < 0.0001

Single categorical variable success: atheist n = 1002 p-hat = 0.0499 H0: p = 0 HA: p != 0 z = 7.2544 p_value = < 0.0001

Exercise 5:

We are confident that all conditions are met: The data comes from a random sample. The sampling distribution of p^ is approximately normal. With a large sample size of 50,000, there are at least 10 expected successes and 10 expected failures. The observations appear to be independent, as the sample size is less than 10% of the global population.

Exercise 6:

ME= 1.96 x SE → sq root of (p(1-p))/n → (0.0499(1-0.0499))/1002 → 1.96 x 0.000047 ME = 0.000093

inference(y = response, data = us12, null = 0, statistic = "proportion", type = "ht", method = "theoretical", success = "atheist", alternative = "twosided")

## Single categorical variable, success: atheist
## n = 1002, p-hat = 0.0499
## H0: p = 0
## HA: p != 0
## z = 7.2544
## p_value = < 0.0001

Results: Single categorical variable, success: atheist n = 1002, p-hat = 0.0499 H0: p = 0 HA: p != 0 z = 7.2544 p_value = > 0.0001

Exercise 7:

The conditions for inference are met. The data comes from a random sample as it is part of the data from the Gallup poll, the sampling distribution of p-hat is approximately normal since the sample size is large enough, and there are at least 10 expected successes and 10 expected failures. Finally, the observations appear to be independent and the sample size is less than 10% of the population.

Confidence interval China: 42.63%, 51.37% ME: Z*SE = SE → sq root of (p(1-p))/n → (0.47(1-0.47))/500 = .0004982 → 1.96 x 0.00004982 = .000976 ME = 0.000976 We are 42.63-51.37% confident that the proporiton of atheists in China in 2012 is .47.

Confidence interval Argentina: 5.47-8.66% ME: Z*SE = SE → sq root of (p(1-p))/n → (.0706(1-.0706))/991 = .000066 → 1.96 x .000066 = .00013 ME = 0.00013 We are 5.47-8.66% confident that the proportion of atheists in Argentina in 2012 is .0706%

ch12 <- atheism %>%
  filter(nationality == "China", year == "2012")
inference(y = response, data = ch12, null = 0, statistic = "proportion", type = "ci", method = "theoretical", success = "atheist", alternative = "twosided")

## Single categorical variable, success: atheist
## n = 500, p-hat = 0.47
## 95% CI: (0.4263 , 0.5137)

ar12 <- atheism %>%
 filter(nationality == "Argentina", year == "2012")
inference(y = response, data = ar12, null = 0, statistic = "proportion", type = "ci", method = "theoretical", success = "atheist", alternative = "twosided")

## Single categorical variable, success: atheist
## n = 991, p-hat = 0.0706
## 95% CI: (0.0547 , 0.0866)

China results:

Single categorical variable, success: atheist n = 500, p-hat = 0.47 95% CI: (0.4263 , 0.5137)

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

Argentina results:

Single categorical variable, success: atheist n = 991, p-hat = 0.0706 95% CI: (0.0547 , 0.0866)

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

Exercise 8:

The relationship between “p” and “me” is an inverse u shaped relationship, or a unimodal graph with a margin of error of ** against the population proportion plot we constructed. At a value of p = 0.50, margin of error me is maximized for a given sample size.

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

Exercise 9:

The sampling distribution shows that the mean of the data is approximately 0.11, the graph is unimodal and slightly right skewed.

Exercise 10:

As p changes and n remains constant, the sampling distribution becomes more skewed to either side (it becomes more left skewed as p decreases and more right skewed as p increases). Additionally, the mean of the data decreases as p decreases and increases as p increases. The graph remains unimodal, but becomes less normal.

Exercise 11:

If n is altered along with p, the sampling distribution approaches a nearly normal distribution as n increases. The larger the population size, the more normal the distribution becomes.

Exercise 12:

For Australia, we can proceed with inference and report margin of error (me) as Australia’s data satisfies the conditions for inference for sampling disribution (p). However, Ecuador’s data does not meet the success-failure condition as np is only 8, which is smaller than the 10 needed.

Exercise 13:

Ho = proporiton of atheists in Spain in 2005 = proportion of atheists in Spain in 2012 Ha = proporiton of atheists in Spain in 2005 does not equal proportion of atheists in Spain in 2012

There is convincing evidence that Spain has experienced a change in its atheist index between 2005 and 2012 because the p value is <0.0001, which is less than .05.

The confience interval is (.0831, .1072)

sp <- atheism%>%
 filter(nationality == "Spain", year == "2012" | year == "2005")
inference(y = response, data = sp, statistic = "proportion", type = "ht", method = "theoretical", success = "atheist", alternative = "twosided", null = 0)

## Single categorical variable, success: atheist
## n = 2291, p-hat = 0.0952
## H0: p = 0
## HA: p != 0
## z = 15.5218
## p_value = < 0.0001

inference(y = response, data = sp, statistic = "proportion", type = "ci", method = "theoretical", success = "atheist")

## Single categorical variable, success: atheist
## n = 2291, p-hat = 0.0952
## 95% CI: (0.0831 , 0.1072)

Single categorical variable, success: atheist n = 2291, p-hat = 0.0952 H0: p = 0 HA: p != 0 z = 15.5218 p_value = < 0.0001

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=578&height=298&randomizer=1162104824

Confidence interval:

Single categorical variable, success: atheist n = 2291, p-hat = 0.0952 95% CI: (0.0831 , 0.1072)

Exercise 14:

Ho = proporiton of atheists in the US in 2005 = proportion of atheists in the US in 2012 Ha = proporiton of atheists in the US in 2005 does not equal proportion of atheists in the US in 2012

There is convincing evidence that the US has seen a change in its atheist index between 2005 and 2012. The p value of is < 0.0001, which is less than .05.

The confidence interval is (0.0225 , 0.0374)

us0512 <- atheism%>%
 filter(nationality == "United States", year == "2012" | year == "2005")
 inference(y = response, data = us0512, statistic = "proportion", type = "ht", method = "theoretical", success = "atheist", alternative = "twosided", null = 0)

## Single categorical variable, success: atheist
## n = 2004, p-hat = 0.0299
## H0: p = 0
## HA: p != 0
## z = 7.8646
## p_value = < 0.0001

Single categorical variable, success: atheist n = 2004, p-hat = 0.0299 H0: p = 0 HA: p != 0 z = 7.8646 p_value = < 0.0001

https://labs-az-02.oit.duke.edu:30623/graphics/plot.png?width=578&height=298&randomizer=-2950631

Single categorical variable, success: atheist n = 2004, p-hat = 0.0299 95% CI: (0.0225 , 0.0374)

Exercise 15:

A type 1 error is the false rejection of the null hypothesis; ie a “false positive”. There is a 5% chance because the probability of making a type 1 error is equal to alpha, because of this there is a 5% chance there will be a change in the proportion of atheists due to random chance

Exercise 16: use formula for margin of error + plug in values to calc sample size

Based on the plot of p and margin of error (me) you would need to sample 16 people

LS0tCnRpdGxlOiAiTGFiIDc6IEluZmVyZW5jZSBmb3IgQ2F0ZWdvcmljYWwgRGF0YSIKYXV0aG9yOiAiQWJvdmUgQXZlcmFnZSIKZGF0ZTogIjMvMTgvMjAxOSIKb3V0cHV0OiBvaWxhYnM6OmxhYl9yZXBvcnQKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShvaWxhYnMpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShkcGx5cikKCmRhdGEoYXRoZWlzbSkKCgpgYGAKCiMjIyBUZWFtd29yayBSZXBvcnQKCnwgVGVhbSBtZW1iZXIgbmFtZSB8IEF0dGVuZGVuY2UgfCBBdXRob3IgfCBDb250cmlidXRpb24gJSB8CnwgOiAuLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi58IDogLi4uLi4uLi58IDouLi4uLi4uLnwgOi4uLi4uLi4uLi4uCnwgS2F0aGxlZW4gVmVybiAgICAgIHwgeWVzIHwgeWVzIHwgMjUlCnwgQW1hbmRhIEJlYWNoICAgICAgIHwgeWVzIHwgbm8gfCAyNSUKfCBMZXhpIENsaWZmb3JkICAgICAgfCB5ZXMgfCBubyB8IDI1JQp8IE1pY2hlbGxlIFJvZHJpZ3VleiB8IHllcyB8IG5vIHwgMjUlCnwgVG90YWwgfCB8IHwgMTAwJSB8CgoqICogKgoKIyMjIEV4ZXJjaXNlIDE6IApUaGUgcGVyY2VudGFnZXMgcHJlc2VudGVkIGluIHRoZSBmaXJzdCBwYXJhZ3JhcGggYXBwZWFyIHRvIGJlIHNhbXBsZSBzdGF0aXN0aWNzIGJlY2F1c2UgdGhlIGRhdGEgZGVzY3JpYmVzIGEgbGFyZ2UgcG9wdWxhdGlvbiB0aGF0IHdhcyBzdXJ2ZXllZCwgYnV0IGl0IGlzIHVubGlrZWx5IHRoYXQgZXZlcnkgc2luZ2xlIHBlcnNvbiBpbiBlYWNoIGNvdW50cnkgc2FtcGxlZCByZXNwb25kZWQgdG8gdGhlIHN1cnZleS4gQWRkaXRpb25hbGx5IGluIHRoZSBzZWNvbmQgcGFyYWdyYXBoIHdlIGFyZSBpbmZvcm1lZCB0aGF0IGl0IHdhcyBzdXJ2ZXllZCBmcm9tIGEgc2FtcGxlIHNpemUgb2YgNTAsMDAwIHBlb3BsZSB3aGljaCBpcyBub3QgdGhlIGVudGlyZSBwb3B1bGF0aW9uIGFuZCB0aHVzIGl0IGFwcGVhcnMgdGhhdCB3ZSBhcmUgbG9va2luZyBhdCBzYW1wbGUgcGFyYW1ldGVycyByYXRoZXIgdGhhbiB0aGUgZW50aXJlIHBvcHVsYXRpb24uIAoKIyMjIEV4ZXJjaXNlIDI6ClRvIGdlbmVyYWxpemUgdGhlIHJlcG9ydOKAmXMgZmluZGluZ3MgdG8gdGhlIGdsb2JhbCBodW1hbiBwb3B1bGF0aW9uLCB3ZSBtdXN0IGFzc3VtZSB0aGF0IHRoZSBzYW1wbGluZyBtZXRob2QgaXMgYSBzaW1wbGUgcmFuZG9tIHNhbXBsZS4gVGhpcyBzZWVtcyBsaWtlIGEgcmVhc29uYWJsZSBhc3N1bXB0aW9uIGJlY2F1c2UgdGhlIGRhdGEgaXMgY29sbGVjdGVkIGZyb20gYW4gaW50ZXJuYXRpb25hbCBHYWxsdXAgcG9sbCBhbmQgaXMgZGVzY3JpYmVkIGFzIGEg4oCcd29ybGQtd2lkZSBuZXR3b3JrIG9mIGxlYWRpbmcgb3BpbmlvbiBwb2xsc3RlcnMu4oCdIFRoZXJlIGlzIGFsc28gZGl2ZXJzaXR5IGFtb25nIGNvdW50cmllcywgZ2VuZGVycywgaGFzIGEgbGFyZ2UgZW5vdWdoIG51bWJlciBvZiByZXNwb25zZXMgd2hpbGUgcmVtYWluaW5nIGxlc3MgdGhhdCAxMCUgb2YgdGhlIHdob2xlIHBvcHVsYXRpb24sIGFuZCBhc2tzIHRoZSBzYW1lIHF1ZXN0aW9uIHRvIGV2ZXJ5IHNhbXBsZSBzdXJ2ZXllZC4gQWxzbywgYmVjYXVzZSB0aGVyZSBpcyBubyBpbmZvcm1hdGlvbiB0byBpbmRpY2F0ZSB0aGF0IHRoZSBkYXRhIGlzIG5vdCB0YWtlbiBmcm9tIGEgc2ltcGxlIHJhbmRvbSBzYW1wbGUsIHdlIGFyZSBhYmxlIHRvIGFzc3VtZSB0aGlzIHJhbmRvbSBtZXRob2Qgd2FzIGluIGZhY3QgdXNlZC4gCgojIyMgRXhlcmNpc2UgMzoKRWFjaCByb3cgb2YgdGFibGUgNiBjb3JyZXNwb25kcyB0byBkaWZmZXJlbnQgY291bnRyaWVzIHdoaWxlIGVhY2ggcm93IG9mIOKAnGF0aGVpc23igJ0gY29ycmVzcG9uZHMgdG8gZGlmZmVyZW50IHBlb3BsZSB3aG8gd2VyZSBzdXJ2ZXllZC4gQmVjYXVzZSB0aGVzZSB0d28gYXJlIGRpZmZlcmVudCwgd2Ugd2lsbCBuZWVkIHRvIHRha2UgZXh0cmEgbWVhc3VyZXMgdG8gY29tcGFyZSB0aGUgZGF0YSBvZiB0aGVzZSB0YWJsZXMuIAoKIyMjIEV4ZXJjaXNlIDQ6ClRoZSBjYWxjdWxhdGVkIHByb3BvcnRpb24gaXMgLjA0OTksIHdoaWNoIGFncmVlcyB3aXRoIHRoZSBwZXJjZW50YWdlIG9mIDUlIGluIHRoZSB0YWJsZQpgYGB7cn0KdXMxMiA8LSBhdGhlaXNtJT4lCiAgZmlsdGVyKG5hdGlvbmFsaXR5ID09ICJVbml0ZWQgU3RhdGVzIiwgeWVhciA9PSAiMjAxMiIpCmluZmVyZW5jZSh5ID0gcmVzcG9uc2UsIGRhdGEgPSB1czEyLCBudWxsID0gMCwgc3RhdGlzdGljID0gInByb3BvcnRpb24iLCB0eXBlID0gImh0IiwgbWV0aG9kID0gInRoZW9yZXRpY2FsIiwgc3VjY2VzcyA9ICJhdGhlaXN0IiwgYWx0ZXJuYXRpdmUgPSAidHdvc2lkZWQiKQoKYGBgClNpbmdsZSBjYXRlZ29yaWNhbCB2YXJpYWJsZSBzdWNjZXNzOiBhdGhlaXN0Cm4gPSAxMDAyIHAtaGF0ID0gMC4wNDk5CkgwOiBwID0gMApIQTogcCAhPSAwCnogPSA3LjI1NDQKcF92YWx1ZSA9IDwgMC4wMDAxCgojIyMgRXhlcmNpc2UgNToKV2UgYXJlIGNvbmZpZGVudCB0aGF0IGFsbCBjb25kaXRpb25zIGFyZSBtZXQ6IApUaGUgZGF0YSBjb21lcyBmcm9tIGEgcmFuZG9tIHNhbXBsZS4KVGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBvZiBwXiBpcyBhcHByb3hpbWF0ZWx5IG5vcm1hbC4gV2l0aCBhIGxhcmdlIHNhbXBsZSBzaXplIG9mIDUwLDAwMCwgdGhlcmUgYXJlIGF0IGxlYXN0IDEwIGV4cGVjdGVkIHN1Y2Nlc3NlcyBhbmQgMTAgZXhwZWN0ZWQgZmFpbHVyZXMuIApUaGUgb2JzZXJ2YXRpb25zIGFwcGVhciB0byBiZSBpbmRlcGVuZGVudCwgYXMgdGhlIHNhbXBsZSBzaXplIGlzIGxlc3MgdGhhbiAxMCUgb2YgdGhlIGdsb2JhbCBwb3B1bGF0aW9uLiAKCiMjIyBFeGVyY2lzZSA2OgpNRT0gMS45NiB4IFNFIOKGkiBzcSByb290IG9mIChwKDEtcCkpL24g4oaSICgwLjA0OTkoMS0wLjA0OTkpKS8xMDAyIOKGkiAxLjk2IHggMC4wMDAwNDcgCk1FID0gMC4wMDAwOTMKCmBgYHtyfQppbmZlcmVuY2UoeSA9IHJlc3BvbnNlLCBkYXRhID0gdXMxMiwgbnVsbCA9IDAsIHN0YXRpc3RpYyA9ICJwcm9wb3J0aW9uIiwgdHlwZSA9ICJodCIsIG1ldGhvZCA9ICJ0aGVvcmV0aWNhbCIsIHN1Y2Nlc3MgPSAiYXRoZWlzdCIsIGFsdGVybmF0aXZlID0gInR3b3NpZGVkIikKYGBgClJlc3VsdHM6ClNpbmdsZSBjYXRlZ29yaWNhbCB2YXJpYWJsZSwgc3VjY2VzczogYXRoZWlzdApuID0gMTAwMiwgIHAtaGF0ID0gMC4wNDk5CkgwOiBwID0gMApIQTogcCAhPSAwCnogPSA3LjI1NDQKcF92YWx1ZSA9ID4gMC4wMDAxCgojIyMgRXhlcmNpc2UgNzoKVGhlIGNvbmRpdGlvbnMgZm9yIGluZmVyZW5jZSBhcmUgbWV0LiBUaGUgZGF0YSBjb21lcyBmcm9tIGEgcmFuZG9tIHNhbXBsZSBhcyBpdCBpcyBwYXJ0IG9mIHRoZSBkYXRhIGZyb20gdGhlIEdhbGx1cCBwb2xsLCB0aGUgc2FtcGxpbmcgZGlzdHJpYnV0aW9uIG9mIHAtaGF0IGlzIGFwcHJveGltYXRlbHkgbm9ybWFsIHNpbmNlIHRoZSBzYW1wbGUgc2l6ZSBpcyBsYXJnZSBlbm91Z2gsIGFuZCB0aGVyZSBhcmUgYXQgbGVhc3QgMTAgZXhwZWN0ZWQgc3VjY2Vzc2VzIGFuZCAxMCBleHBlY3RlZCBmYWlsdXJlcy4gRmluYWxseSwgdGhlIG9ic2VydmF0aW9ucyBhcHBlYXIgdG8gYmUgaW5kZXBlbmRlbnQgYW5kIHRoZSBzYW1wbGUgc2l6ZSBpcyBsZXNzIHRoYW4gMTAlIG9mIHRoZSBwb3B1bGF0aW9uLiAKCkNvbmZpZGVuY2UgaW50ZXJ2YWwgQ2hpbmE6IDQyLjYzJSwgNTEuMzclCk1FOiBaKlNFID0gU0Ug4oaSIHNxIHJvb3Qgb2YgKHAoMS1wKSkvbiDihpIgKDAuNDcoMS0wLjQ3KSkvNTAwID0gLjAwMDQ5ODIg4oaSIDEuOTYgeCAwLjAwMDA0OTgyID0gLjAwMDk3NgpNRSA9IDAuMDAwOTc2CldlIGFyZSA0Mi42My01MS4zNyUgY29uZmlkZW50IHRoYXQgdGhlIHByb3Bvcml0b24gb2YgYXRoZWlzdHMgaW4gQ2hpbmEgaW4gMjAxMiBpcyAuNDcuCgpDb25maWRlbmNlIGludGVydmFsIEFyZ2VudGluYTogNS40Ny04LjY2JQpNRTogWipTRSAgPSBTRSDihpIgc3Egcm9vdCBvZiAocCgxLXApKS9uIOKGkiAoLjA3MDYoMS0uMDcwNikpLzk5MSA9IC4wMDAwNjYg4oaSIDEuOTYgeCAuMDAwMDY2ID0gLjAwMDEzCk1FID0gMC4wMDAxMwpXZSBhcmUgNS40Ny04LjY2JSBjb25maWRlbnQgdGhhdCB0aGUgcHJvcG9ydGlvbiBvZiBhdGhlaXN0cyBpbiBBcmdlbnRpbmEgaW4gMjAxMiBpcyAuMDcwNiUgCgpgYGB7cn0KY2gxMiA8LSBhdGhlaXNtICU+JQogIGZpbHRlcihuYXRpb25hbGl0eSA9PSAiQ2hpbmEiLCB5ZWFyID09ICIyMDEyIikKaW5mZXJlbmNlKHkgPSByZXNwb25zZSwgZGF0YSA9IGNoMTIsIG51bGwgPSAwLCBzdGF0aXN0aWMgPSAicHJvcG9ydGlvbiIsIHR5cGUgPSAiY2kiLCBtZXRob2QgPSAidGhlb3JldGljYWwiLCBzdWNjZXNzID0gImF0aGVpc3QiLCBhbHRlcm5hdGl2ZSA9ICJ0d29zaWRlZCIpCgphcjEyIDwtIGF0aGVpc20gJT4lCiBmaWx0ZXIobmF0aW9uYWxpdHkgPT0gIkFyZ2VudGluYSIsIHllYXIgPT0gIjIwMTIiKQppbmZlcmVuY2UoeSA9IHJlc3BvbnNlLCBkYXRhID0gYXIxMiwgbnVsbCA9IDAsIHN0YXRpc3RpYyA9ICJwcm9wb3J0aW9uIiwgdHlwZSA9ICJjaSIsIG1ldGhvZCA9ICJ0aGVvcmV0aWNhbCIsIHN1Y2Nlc3MgPSAiYXRoZWlzdCIsIGFsdGVybmF0aXZlID0gInR3b3NpZGVkIikKYGBgCkNoaW5hIHJlc3VsdHM6CgpTaW5nbGUgY2F0ZWdvcmljYWwgdmFyaWFibGUsIHN1Y2Nlc3M6IGF0aGVpc3QKbiA9IDUwMCwgcC1oYXQgPSAwLjQ3Cjk1JSBDSTogKDAuNDI2MyAsIDAuNTEzNykKCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc4JmhlaWdodD0yOTkmcmFuZG9taXplcj0tMTcwOTUzMDA2MSAKCkFyZ2VudGluYSByZXN1bHRzOgoKU2luZ2xlIGNhdGVnb3JpY2FsIHZhcmlhYmxlLCBzdWNjZXNzOiBhdGhlaXN0Cm4gPSA5OTEsIHAtaGF0ID0gMC4wNzA2Cjk1JSBDSTogKDAuMDU0NyAsIDAuMDg2NikKCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc4JmhlaWdodD0yOTkmcmFuZG9taXplcj0tMjc0MDgyNzUgCgojIyMgRXhlcmNpc2UgODogClRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiDigJxw4oCdIGFuZCDigJxtZeKAnSBpcyBhbiBpbnZlcnNlIHUgc2hhcGVkIHJlbGF0aW9uc2hpcCwgb3IgYSB1bmltb2RhbCBncmFwaCB3aXRoIGEgbWFyZ2luIG9mIGVycm9yIG9mICoqIGFnYWluc3QgdGhlIHBvcHVsYXRpb24gcHJvcG9ydGlvbiBwbG90IHdlIGNvbnN0cnVjdGVkLiBBdCBhIHZhbHVlIG9mIHAgPSAwLjUwLCBtYXJnaW4gb2YgZXJyb3IgbWUgaXMgbWF4aW1pemVkIGZvciBhIGdpdmVuIHNhbXBsZSBzaXplLiAKCmh0dHBzOi8vbGFicy1hei0wMi5vaXQuZHVrZS5lZHU6MzA2MjMvZ3JhcGhpY3MvcGxvdC5wbmc/d2lkdGg9NTc4JmhlaWdodD0yOTkmcmFuZG9taXplcj0tOTUzMTAwMjk4IAoKIyMjIEV4ZXJjaXNlIDk6ClRoZSBzYW1wbGluZyBkaXN0cmlidXRpb24gc2hvd3MgdGhhdCB0aGUgbWVhbiBvZiB0aGUgZGF0YSBpcyBhcHByb3hpbWF0ZWx5IDAuMTEsIHRoZSBncmFwaCBpcyB1bmltb2RhbCBhbmQgc2xpZ2h0bHkgcmlnaHQgc2tld2VkLgoKIyMjIEV4ZXJjaXNlIDEwOiAKQXMgcCBjaGFuZ2VzIGFuZCBuIHJlbWFpbnMgY29uc3RhbnQsIHRoZSBzYW1wbGluZyBkaXN0cmlidXRpb24gYmVjb21lcyBtb3JlIHNrZXdlZCB0byBlaXRoZXIgc2lkZSAoaXQgYmVjb21lcyBtb3JlIGxlZnQgc2tld2VkIGFzIHAgZGVjcmVhc2VzIGFuZCBtb3JlIHJpZ2h0IHNrZXdlZCBhcyBwIGluY3JlYXNlcykuIEFkZGl0aW9uYWxseSwgdGhlIG1lYW4gb2YgdGhlIGRhdGEgZGVjcmVhc2VzIGFzIHAgZGVjcmVhc2VzIGFuZCBpbmNyZWFzZXMgYXMgcCBpbmNyZWFzZXMuIFRoZSBncmFwaCByZW1haW5zIHVuaW1vZGFsLCBidXQgYmVjb21lcyBsZXNzIG5vcm1hbC4gCgojIyMgRXhlcmNpc2UgMTE6CklmIG4gaXMgYWx0ZXJlZCBhbG9uZyB3aXRoIHAsIHRoZSBzYW1wbGluZyBkaXN0cmlidXRpb24gYXBwcm9hY2hlcyBhIG5lYXJseSBub3JtYWwgZGlzdHJpYnV0aW9uIGFzIG4gaW5jcmVhc2VzLiBUaGUgbGFyZ2VyIHRoZSBwb3B1bGF0aW9uIHNpemUsIHRoZSBtb3JlIG5vcm1hbCB0aGUgZGlzdHJpYnV0aW9uIGJlY29tZXMuCgojIyMgRXhlcmNpc2UgMTI6CkZvciBBdXN0cmFsaWEsIHdlIGNhbiBwcm9jZWVkIHdpdGggaW5mZXJlbmNlIGFuZCByZXBvcnQgbWFyZ2luIG9mIGVycm9yIChtZSkgYXMgQXVzdHJhbGlhJ3MgZGF0YSBzYXRpc2ZpZXMgdGhlIGNvbmRpdGlvbnMgZm9yIGluZmVyZW5jZSBmb3Igc2FtcGxpbmcgZGlzcmlidXRpb24gKHApLiBIb3dldmVyLCBFY3VhZG9yJ3MgZGF0YSBkb2VzIG5vdCBtZWV0IHRoZSBzdWNjZXNzLWZhaWx1cmUgY29uZGl0aW9uIGFzIG5wIGlzIG9ubHkgOCwgd2hpY2ggaXMgc21hbGxlciB0aGFuIHRoZSAxMCBuZWVkZWQuIAoKIyMjIEV4ZXJjaXNlIDEzOgpIbyA9IHByb3Bvcml0b24gb2YgYXRoZWlzdHMgaW4gU3BhaW4gaW4gMjAwNSA9IHByb3BvcnRpb24gb2YgYXRoZWlzdHMgaW4gU3BhaW4gaW4gMjAxMgpIYSA9IHByb3Bvcml0b24gb2YgYXRoZWlzdHMgaW4gU3BhaW4gaW4gMjAwNSBkb2VzIG5vdCBlcXVhbCBwcm9wb3J0aW9uIG9mIGF0aGVpc3RzIGluIFNwYWluIGluIDIwMTIKClRoZSBjb25kaXRpb25zIGZvciBpbmZlcmVuY2UgYXJlIG1ldC4gVGhlIGRhdGEgY29tZXMgZnJvbSBhIHJhbmRvbSBzYW1wbGUgYXMgaXQgaXMgcGFydCBvZiB0aGUgZGF0YSBmcm9tIHRoZSBHYWxsdXAgcG9sbCwgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBvZiBwLWhhdCBpcyBhcHByb3hpbWF0ZWx5IG5vcm1hbCBzaW5jZSB0aGUgc2FtcGxlIHNpemUgaXMgbGFyZ2UgZW5vdWdoLCBhbmQgdGhlcmUgYXJlIGF0IGxlYXN0IDEwIGV4cGVjdGVkIHN1Y2Nlc3NlcyBhbmQgMTAgZXhwZWN0ZWQgZmFpbHVyZXMuIEZpbmFsbHksIHRoZSBvYnNlcnZhdGlvbnMgYXBwZWFyIHRvIGJlIGluZGVwZW5kZW50IGFuZCB0aGUgc2FtcGxlIHNpemUgaXMgbGVzcyB0aGFuIDEwJSBvZiB0aGUgcG9wdWxhdGlvbi4gCgpUaGVyZSBpcyBjb252aW5jaW5nIGV2aWRlbmNlIHRoYXQgU3BhaW4gaGFzIGV4cGVyaWVuY2VkIGEgY2hhbmdlIGluIGl0cyBhdGhlaXN0IGluZGV4IGJldHdlZW4gMjAwNSBhbmQgMjAxMiBiZWNhdXNlIHRoZSBwIHZhbHVlIGlzIDwwLjAwMDEsIHdoaWNoIGlzIGxlc3MgdGhhbiAuMDUuIAoKVGhlIGNvbmZpZW5jZSBpbnRlcnZhbCBpcyAoLjA4MzEsIC4xMDcyKQpgYGB7cn0Kc3AgPC0gYXRoZWlzbSU+JQogZmlsdGVyKG5hdGlvbmFsaXR5ID09ICJTcGFpbiIsIHllYXIgPT0gIjIwMTIiIHwgeWVhciA9PSAiMjAwNSIpCmluZmVyZW5jZSh5ID0gcmVzcG9uc2UsIGRhdGEgPSBzcCwgc3RhdGlzdGljID0gInByb3BvcnRpb24iLCB0eXBlID0gImh0IiwgbWV0aG9kID0gInRoZW9yZXRpY2FsIiwgc3VjY2VzcyA9ICJhdGhlaXN0IiwgYWx0ZXJuYXRpdmUgPSAidHdvc2lkZWQiLCBudWxsID0gMCkKaW5mZXJlbmNlKHkgPSByZXNwb25zZSwgZGF0YSA9IHNwLCBzdGF0aXN0aWMgPSAicHJvcG9ydGlvbiIsIHR5cGUgPSAiY2kiLCBtZXRob2QgPSAidGhlb3JldGljYWwiLCBzdWNjZXNzID0gImF0aGVpc3QiKSAgICAgICAgICAgCmBgYApTaW5nbGUgY2F0ZWdvcmljYWwgdmFyaWFibGUsIHN1Y2Nlc3M6IGF0aGVpc3QKbiA9IDIyOTEsIHAtaGF0ID0gMC4wOTUyCkgwOiBwID0gMApIQTogcCAhPSAwCnogPSAxNS41MjE4CnBfdmFsdWUgPSA8IDAuMDAwMQoKaHR0cHM6Ly9sYWJzLWF6LTAyLm9pdC5kdWtlLmVkdTozMDYyMy9ncmFwaGljcy9wbG90LnBuZz93aWR0aD01NzgmaGVpZ2h0PTI5OCZyYW5kb21pemVyPTExNjIxMDQ4MjQgCgpDb25maWRlbmNlIGludGVydmFsOgoKU2luZ2xlIGNhdGVnb3JpY2FsIHZhcmlhYmxlLCBzdWNjZXNzOiBhdGhlaXN0Cm4gPSAyMjkxLCBwLWhhdCA9IDAuMDk1Mgo5NSUgQ0k6ICgwLjA4MzEgLCAwLjEwNzIpCgojIyMgRXhlcmNpc2UgMTQ6CkhvID0gcHJvcG9yaXRvbiBvZiBhdGhlaXN0cyBpbiB0aGUgVVMgaW4gMjAwNSA9IHByb3BvcnRpb24gb2YgYXRoZWlzdHMgaW4gdGhlIFVTIGluIDIwMTIKSGEgPSBwcm9wb3JpdG9uIG9mIGF0aGVpc3RzIGluIHRoZSBVUyBpbiAyMDA1IGRvZXMgbm90IGVxdWFsIHByb3BvcnRpb24gb2YgYXRoZWlzdHMgaW4gdGhlIFVTIGluIDIwMTIKClRoZSBjb25kaXRpb25zIGZvciBpbmZlcmVuY2UgYXJlIG1ldC4gVGhlIGRhdGEgY29tZXMgZnJvbSBhIHJhbmRvbSBzYW1wbGUgYXMgaXQgaXMgcGFydCBvZiB0aGUgZGF0YSBmcm9tIHRoZSBHYWxsdXAgcG9sbCwgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBvZiBwLWhhdCBpcyBhcHByb3hpbWF0ZWx5IG5vcm1hbCBzaW5jZSB0aGUgc2FtcGxlIHNpemUgaXMgbGFyZ2UgZW5vdWdoLCBhbmQgdGhlcmUgYXJlIGF0IGxlYXN0IDEwIGV4cGVjdGVkIHN1Y2Nlc3NlcyBhbmQgMTAgZXhwZWN0ZWQgZmFpbHVyZXMuIEZpbmFsbHksIHRoZSBvYnNlcnZhdGlvbnMgYXBwZWFyIHRvIGJlIGluZGVwZW5kZW50IGFuZCB0aGUgc2FtcGxlIHNpemUgaXMgbGVzcyB0aGFuIDEwJSBvZiB0aGUgcG9wdWxhdGlvbi4gCgpUaGVyZSBpcyBjb252aW5jaW5nIGV2aWRlbmNlIHRoYXQgdGhlIFVTIGhhcyBzZWVuIGEgY2hhbmdlIGluIGl0cyBhdGhlaXN0IGluZGV4IGJldHdlZW4gMjAwNSBhbmQgMjAxMi4gVGhlIHAgdmFsdWUgb2YgaXMgPCAwLjAwMDEsIHdoaWNoIGlzIGxlc3MgdGhhbiAuMDUuIAoKVGhlIGNvbmZpZGVuY2UgaW50ZXJ2YWwgaXMgKDAuMDIyNSAsIDAuMDM3NCkKCmBgYHtyfQp1czA1MTIgPC0gYXRoZWlzbSU+JQogZmlsdGVyKG5hdGlvbmFsaXR5ID09ICJVbml0ZWQgU3RhdGVzIiwgeWVhciA9PSAiMjAxMiIgfCB5ZWFyID09ICIyMDA1IikKIGluZmVyZW5jZSh5ID0gcmVzcG9uc2UsIGRhdGEgPSB1czA1MTIsIHN0YXRpc3RpYyA9ICJwcm9wb3J0aW9uIiwgdHlwZSA9ICJodCIsIG1ldGhvZCA9ICJ0aGVvcmV0aWNhbCIsIHN1Y2Nlc3MgPSAiYXRoZWlzdCIsIGFsdGVybmF0aXZlID0gInR3b3NpZGVkIiwgbnVsbCA9IDApCmBgYApTaW5nbGUgY2F0ZWdvcmljYWwgdmFyaWFibGUsIHN1Y2Nlc3M6IGF0aGVpc3QKbiA9IDIwMDQsIHAtaGF0ID0gMC4wMjk5CkgwOiBwID0gMApIQTogcCAhPSAwCnogPSA3Ljg2NDYKcF92YWx1ZSA9IDwgMC4wMDAxCgpodHRwczovL2xhYnMtYXotMDIub2l0LmR1a2UuZWR1OjMwNjIzL2dyYXBoaWNzL3Bsb3QucG5nP3dpZHRoPTU3OCZoZWlnaHQ9Mjk4JnJhbmRvbWl6ZXI9LTI5NTA2MzEKClNpbmdsZSBjYXRlZ29yaWNhbCB2YXJpYWJsZSwgc3VjY2VzczogYXRoZWlzdApuID0gMjAwNCwgcC1oYXQgPSAwLjAyOTkKOTUlIENJOiAoMC4wMjI1ICwgMC4wMzc0KQoKIyMjIEV4ZXJjaXNlIDE1OiAKQSB0eXBlIDEgZXJyb3IgaXMgdGhlIGZhbHNlIHJlamVjdGlvbiBvZiB0aGUgbnVsbCBoeXBvdGhlc2lzOyBpZSBhICJmYWxzZSBwb3NpdGl2ZSIuIFRoZXJlIGlzIGEgNSUgY2hhbmNlIGJlY2F1c2UgdGhlIHByb2JhYmlsaXR5IG9mIG1ha2luZyBhIHR5cGUgMSBlcnJvciBpcyBlcXVhbCB0byBhbHBoYSwgYmVjYXVzZSBvZiB0aGlzIHRoZXJlIGlzIGEgNSUgY2hhbmNlIHRoZXJlIHdpbGwgYmUgYSBjaGFuZ2UgaW4gdGhlIHByb3BvcnRpb24gb2YgYXRoZWlzdHMgZHVlIHRvIHJhbmRvbSBjaGFuY2UKCiMjIyBFeGVyY2lzZSAxNjogdXNlIGZvcm11bGEgZm9yIG1hcmdpbiBvZiBlcnJvciArIHBsdWcgaW4gdmFsdWVzIHRvIGNhbGMgc2FtcGxlIHNpemUKQmFzZWQgb24gdGhlIHBsb3Qgb2YgcCBhbmQgbWFyZ2luIG9mIGVycm9yIChtZSkgeW91IHdvdWxkIG5lZWQgdG8gc2FtcGxlIDE2IHBlb3BsZSAK