{
"cells": [
{
"cell_type": "markdown",
"id": "valued-people",
"metadata": {},
"source": [
"(hypothesis-testing)=\n",
"# Hypothesis Testing"
]
},
{
"cell_type": "markdown",
"id": "sought-miniature",
"metadata": {},
"source": [
"\n",
">*The process of induction is the process of assuming the simplest law that can be made to harmonize with our experience. This process, however, has no logical foundation but only a psychological one. It is clear that there are no grounds for believing that the simplest course of events will really happen. It is an hypothesis that the sun will rise tomorrow: and this means that we do not know whether it will rise.*\n",
">\n",
">-- Ludwig Wittgenstein [^note1] \n",
"\n",
"In the last chapter, I discussed the ideas behind estimation, which is one of the two \"big ideas\" in inferential statistics. It's now time to turn out attention to the other big idea, which is *hypothesis testing*. In its most abstract form, hypothesis testing really a very simple idea: the researcher has some theory about the world, and wants to determine whether or not the data actually support that theory. However, the details are messy, and most people find the theory of hypothesis testing to be the most frustrating part of statistics. The structure of the chapter is as follows. Firstly, I'll describe how hypothesis testing works, in a fair amount of detail, using a simple running example to show you how a hypothesis test is \"built\". I'll try to avoid being too dogmatic while doing so, and focus instead on the underlying logic of the testing procedure.[^note2] Afterwards, I'll spend a bit of time talking about the various dogmas, rules and heresies that surround the theory of hypothesis testing.\n",
"\n",
"[^note1]: The quote comes from Wittgenstein's (1922) text, *Tractatus Logico-Philosphicus*.\n",
"[^note2]: A technical note. The description below differs subtly from the standard description given in a lot of introductory texts. The orthodox theory of null hypothesis testing emerged from the work of Sir Ronald Fisher and Jerzy Neyman in the early 20th century; but Fisher and Neyman actually had very different views about how it should work. The standard treatment of hypothesis testing that most texts use is a hybrid of the two approaches. The treatment here is a little more Neyman-style than the orthodox view, especially as regards the meaning of the $p$ value."
]
},
{
"cell_type": "markdown",
"id": "american-courage",
"metadata": {},
"source": [
"(hypotheses)=\n",
"## A menagerie of hypotheses\n",
"\n",
"\n",
"Eventually we all succumb to madness. For me, that day will arrive once I'm finally promoted to full professor. Safely ensconced in my ivory tower, happily protected by tenure, I will finally be able to take leave of my senses (so to speak), and indulge in that most thoroughly unproductive line of psychological research: the search for extrasensory perception (ESP).[^note3]\n",
"\n",
"Let's suppose that this glorious day has come. My first study is a simple one, in which I seek to test whether clairvoyance exists. Each participant sits down at a table, and is shown a card by an experimenter. The card is black on one side and white on the other. The experimenter takes the card away, and places it on a table in an adjacent room. The card is placed black side up or white side up completely at random, with the randomisation occurring only after the experimenter has left the room with the participant. A second experimenter comes in and asks the participant which side of the card is now facing upwards. It's purely a one-shot experiment. Each person sees only one card, and gives only one answer; and at no stage is the participant actually in contact with someone who knows the right answer. My data set, therefore, is very simple. I have asked the question of $N$ people, and some number $X$ of these people have given the correct response. To make things concrete, let's suppose that I have tested $N = 100$ people, and $X = 62$ of these got the answer right... a surprisingly large number, sure, but is it large enough for me to feel safe in claiming I've found evidence for ESP? This is the situation where hypothesis testing comes in useful. However, before we talk about how to *test* hypotheses, we need to be clear about what we mean by hypotheses.\n",
"\n",
"### Research hypotheses versus statistical hypotheses\n",
"\n",
"The first distinction that you need to keep clear in your mind is between research hypotheses and statistical hypotheses. In my ESP study, my overall scientific goal is to demonstrate that clairvoyance exists. In this situation, I have a clear research goal: I am hoping to discover evidence for ESP. In other situations I might actually be a lot more neutral than that, so I might say that my research goal is to determine whether or not clairvoyance exists. Regardless of how I want to portray myself, the basic point that I'm trying to convey here is that a research hypothesis involves making a substantive, testable scientific claim... if you are a psychologist, then your research hypotheses are fundamentally *about* psychological constructs. Any of the following would count as **_research hypotheses_**:\n",
"\n",
"- *Listening to music reduces your ability to pay attention to other things.* This is a claim about the causal relationship between two psychologically meaningful concepts (listening to music and paying attention to things), so it's a perfectly reasonable research hypothesis.\n",
"- *Intelligence is related to personality*. Like the last one, this is a relational claim about two psychological constructs (intelligence and personality), but the claim is weaker: correlational not causal.\n",
"- *Intelligence *is* speed of information processing*. This hypothesis has a quite different character: it's not actually a relational claim at all. It's an ontological claim about the fundamental character of intelligence (and I'm pretty sure it's wrong). It's worth expanding on this one actually: It's usually easier to think about how to construct experiments to test research hypotheses of the form \"does X affect Y?\" than it is to address claims like \"what is X?\" And in practice, what usually happens is that you find ways of testing relational claims that follow from your ontological ones. For instance, if I believe that intelligence *is* speed of information processing in the brain, my experiments will often involve looking for relationships between measures of intelligence and measures of speed. As a consequence, most everyday research questions do tend to be relational in nature, but they're almost always motivated by deeper ontological questions about the state of nature. \n",
"\n",
"Notice that in practice, my research hypotheses could overlap a lot. My ultimate goal in the ESP experiment might be to test an ontological claim like \"ESP exists\", but I might operationally restrict myself to a narrower hypothesis like \"Some people can `see' objects in a clairvoyant fashion\". That said, there are some things that really don't count as proper research hypotheses in any meaningful sense: \n",
"\n",
"- *Love is a battlefield*. This is too vague to be testable. While it's okay for a research hypothesis to have a degree of vagueness to it, it has to be possible to operationalise your theoretical ideas. Maybe I'm just not creative enough to see it, but I can't see how this can be converted into any concrete research design. If that's true, then this isn't a scientific research hypothesis, it's a pop song. That doesn't mean it's not interesting -- a lot of deep questions that humans have fall into this category. Maybe one day science will be able to construct testable theories of love, or to test to see if God exists, and so on; but right now we can't, and I wouldn't bet on ever seeing a satisfying scientific approach to either. \n",
"- *The first rule of tautology club is the first rule of tautology club*. This is not a substantive claim of any kind. It's true by definition. No conceivable state of nature could possibly be inconsistent with this claim. As such, we say that this is an unfalsifiable hypothesis, and as such it is outside the domain of science. Whatever else you do in science, your claims must have the possibility of being wrong. \n",
"- *More people in my experiment will say \"yes\" than \"no\"*. This one fails as a research hypothesis because it's a claim about the data set, not about the psychology (unless of course your actual research question is whether people have some kind of \"yes\" bias!). As we'll see shortly, this hypothesis is starting to sound more like a statistical hypothesis than a research hypothesis. \n",
"\n",
"\n",
"As you can see, research hypotheses can be somewhat messy at times; and ultimately they are *scientific* claims. **_Statistical hypotheses_** are neither of these two things. Statistical hypotheses must be mathematically precise, and they must correspond to specific claims about the characteristics of the data-generating mechanism (i.e., the \"population\"). Even so, the intent is that statistical hypotheses bear a clear relationship to the substantive research hypotheses that you care about! For instance, in my ESP study my research hypothesis is that some people are able to see through walls or whatever. What I want to do is to \"map\" this onto a statement about how the data were generated. So let's think about what that statement would be. The quantity that I'm interested in within the experiment is $P(\\mbox{\"correct\"})$, the true-but-unknown probability with which the participants in my experiment answer the question correctly. Let's use the Greek letter $\\theta$ (theta) to refer to this probability. Here are four different statistical hypotheses:\n",
"\n",
"\n",
"- If ESP doesn't exist and if my experiment is well designed, then my participants are just guessing. So I should expect them to get it right half of the time and so my statistical hypothesis is that the true probability of choosing correctly is $\\theta = 0.5$. \n",
"- Alternatively, suppose ESP does exist and participants can see the card. If that's true, people will perform better than chance. The statistical hypotheis would be that $\\theta > 0.5$. \n",
"- A third possibility is that ESP does exist, but the colours are all reversed and people don't realise it (okay, that's wacky, but you never know...). If that's how it works then you'd expect people's performance to be *below* chance. This would correspond to a statistical hypothesis that $\\theta < 0.5$. \n",
"- Finally, suppose ESP exists, but I have no idea whether people are seeing the right colour or the wrong one. In that case, the only claim I could make about the data would be that the probability of making the correct answer is *not* equal to 50. This corresponds to the statistical hypothesis that $\\theta \\neq 0.5$. \n",
"\n",
"All of these are legitimate examples of a statistical hypothesis because they are statements about a population parameter and are meaningfully related to my experiment.\n",
"\n",
"What this discussion makes clear, I hope, is that when attempting to construct a statistical hypothesis test, the researcher actually has two quite distinct hypotheses to consider. First, he or she has a research hypothesis (a claim about psychology), and this corresponds to a statistical hypothesis (a claim about the data generating population). In my ESP example, these might be\n",
"\n",
"[^note3]: My apologies to anyone who actually believes in this stuff, but on my reading of the literature on ESP, it's just not reasonable to think this is real. To be fair, though, some of the studies are rigorously designed; so it's actually an interesting area for thinking about psychological research design. And of course it's a free country, so you can spend your own time and effort proving me wrong if you like, but I wouldn't think that's a terribly practical use of your intellect."
]
},
{
"cell_type": "markdown",
"id": "buried-beijing",
"metadata": {},
"source": [
"\n",
"My research hypothesis: “ESP exists” \n",
"\n",
"My statistical hypothesis: $\\theta \\neq 0.5$\n",
"\n"
]
},
{
"cell_type": "markdown",
"id": "optional-electronics",
"metadata": {},
"source": [
"And the key thing to recognise is this: *a statistical hypothesis test is a test of the statistical hypothesis, not the research hypothesis*. If your study is badly designed, then the link between your research hypothesis and your statistical hypothesis is broken. To give a silly example, suppose that my ESP study was conducted in a situation where the participant can actually see the card reflected in a window; if that happens, I would be able to find very strong evidence that $\\theta \\neq 0.5$, but this would tell us nothing about whether \"ESP exists\". \n",
"\n",
"\n",
"### Null hypotheses and alternative hypotheses\n",
"\n",
"So far, so good. I have a research hypothesis that corresponds to what I want to believe about the world, and I can map it onto a statistical hypothesis that corresponds to what I want to believe about how the data were generated. It's at this point that things get somewhat counterintuitive for a lot of people. Because what I'm about to do is invent a new statistical hypothesis (the \"null\" hypothesis, $H_0$) that corresponds to the exact opposite of what I want to believe, and then focus exclusively on that, almost to the neglect of the thing I'm actually interested in (which is now called the \"alternative\" hypothesis, $H_1$). In our ESP example, the null hypothesis is that $\\theta = 0.5$, since that's what we'd expect if ESP *didn't* exist. My hope, of course, is that ESP is totally real, and so the *alternative* to this null hypothesis is $\\theta \\neq 0.5$. In essence, what we're doing here is dividing up the possible values of $\\theta$ into two groups: those values that I really hope aren't true (the null), and those values that I'd be happy with if they turn out to be right (the alternative). Having done so, the important thing to recognise is that the goal of a hypothesis test is *not* to show that the alternative hypothesis is (probably) true; the goal is to show that the null hypothesis is (probably) false. Most people find this pretty weird. \n",
"\n",
"The best way to think about it, in my experience, is to imagine that a hypothesis test is a criminal trial [^note4] ... *the trial of the null hypothesis*. The null hypothesis is the defendant, the researcher is the prosecutor, and the statistical test itself is the judge. Just like a criminal trial, there is a presumption of innocence: the null hypothesis is *deemed* to be true unless you, the researcher, can prove beyond a reasonable doubt that it is false. You are free to design your experiment however you like (within reason, obviously!), and your goal when doing so is to maximise the chance that the data will yield a conviction... for the crime of being false. The catch is that the statistical test sets the rules of the trial, and those rules are designed to protect the null hypothesis -- specifically to ensure that if the null hypothesis is actually true, the chances of a false conviction are guaranteed to be low. This is pretty important: after all, the null hypothesis doesn't get a lawyer. And given that the researcher is trying desperately to prove it to be false, *someone* has to protect it. \n",
"\n",
"[^note4]: This analogy only works if you're from an adversarial legal system like UK/US/Australia. As I understand these things, the French inquisitorial system is quite different."
]
},
{
"cell_type": "markdown",
"id": "modular-savannah",
"metadata": {},
"source": [
"(errortypes)=\n",
"## Two types of errors\n",
"\n",
"Before going into details about how a statistical test is constructed, it's useful to understand the philosophy behind it. I hinted at it when pointing out the similarity between a null hypothesis test and a criminal trial, but I should now be explicit. Ideally, we would like to construct our test so that we never make any errors. Unfortunately, since the world is messy, this is never possible. Sometimes you're just really unlucky: for instance, suppose you flip a coin 10 times in a row and it comes up heads all 10 times. That feels like very strong evidence that the coin is biased (and it is!), but of course there's a 1 in 1024 chance that this would happen even if the coin was totally fair. In other words, in real life we *always* have to accept that there's a chance that we did the wrong thing. As a consequence, the goal behind statistical hypothesis testing is not to *eliminate* errors, but to *minimise* them.\n",
"\n",
"At this point, we need to be a bit more precise about what we mean by \"errors\". Firstly, let's state the obvious: it is either the case that the null hypothesis is true, or it is false; and our test will either reject the null hypothesis or retain it.[^note5] So, as the table below illustrates, after we run the test and make our choice, one of four things might have happened:\n",
"\n",
"[^note5]: An aside regarding the language you use to talk about hypothesis testing. Firstly, one thing you really want to avoid is the word \"prove\": a statistical test really doesn't *prove* that a hypothesis is true or false. Proof implies certainty, and as the saying goes, statistics means never having to say you're certain. On that point almost everyone would agree. However, beyond that there's a fair amount of confusion. Some people argue that you're only allowed to make statements like \"rejected the null\", \"failed to reject the null\", or possibly \"retained the null\". According to this line of thinking, you can't say things like \"accept the alternative\" or \"accept the null\". Personally I think this is too strong: in my opinion, this conflates null hypothesis testing with Karl Popper's falsificationist view of the scientific process. While there are similarities between falsificationism and null hypothesis testing, they aren't equivalent. However, while I personally think it's fine to talk about accepting a hypothesis (on the proviso that \"acceptance\" doesn't actually mean that it's necessarily true, especially in the case of the null hypothesis), many people will disagree. And more to the point, you should be aware that this particular weirdness exists, so that you're not caught unawares by it when writing up your own results."
]
},
{
"cell_type": "markdown",
"id": "differential-conversion",
"metadata": {},
"source": [
"| | retain H0 | reject H0 |\n",
"|-------------|------------------|------------------|\n",
"| H0 is true | correct decision | error (type I) |\n",
"| H0 is false | error (type II) | correct decision |"
]
},
{
"cell_type": "markdown",
"id": "preliminary-convenience",
"metadata": {},
"source": [
"As a consequence there are actually *two* different types of error here. If we reject a null hypothesis that is actually true, then we have made a **_type I error_**. On the other hand, if we retain the null hypothesis when it is in fact false, then we have made a **_type II error_**. \n",
"\n",
"Remember how I said that statistical testing was kind of like a criminal trial? Well, I meant it. A criminal trial requires that you establish \"beyond a reasonable doubt\" that the defendant did it. All of the evidentiary rules are (in theory, at least) designed to ensure that there's (almost) no chance of wrongfully convicting an innocent defendant. The trial is designed to protect the rights of a defendant: as the English jurist William Blackstone famously said, it is \"better that ten guilty persons escape than that one innocent suffer.\" In other words, a criminal trial doesn't treat the two types of error in the same way... punishing the innocent is deemed to be much worse than letting the guilty go free. A statistical test is pretty much the same: the single most important design principle of the test is to *control* the probability of a type I error, to keep it below some fixed probability. This probability, which is denoted $\\alpha$, is called the **_significance level_** of the test (or sometimes, the *size* of the test). And I'll say it again, because it is so central to the whole set-up... a hypothesis test is said to have significance level $\\alpha$ if the type I error rate is no larger than $\\alpha$. \n",
"\n",
"So, what about the type II error rate? Well, we'd also like to keep those under control too, and we denote this probability by $\\beta$. However, it's much more common to refer to the **_power_** of the test, which is the probability with which we reject a null hypothesis when it really is false, which is $1-\\beta$. To help keep this straight, here's the same table again, but with the relevant numbers added:"
]
},
{
"cell_type": "markdown",
"id": "mature-portal",
"metadata": {},
"source": [
"| | retain H0 | reject H0 |\n",
"|-------------|-----------------------------------------------|-------------------------------|\n",
"| H0 is true | $1-\\alpha$ (probability of correct retention) | $\\alpha$ (type I error rate) |\n",
"| H0 is false | $\\beta$ (type II error rate) | $1-\\beta$ (power of the test)|"
]
},
{
"cell_type": "markdown",
"id": "undefined-remains",
"metadata": {},
"source": [
"A \"powerful\" hypothesis test is one that has a small value of $\\beta$, while still keeping $\\alpha$ fixed at some (small) desired level. By convention, scientists make use of three different $\\alpha$ levels: $.05$, $.01$ and $.001$. Notice the asymmetry here~... the tests are designed to *ensure* that the $\\alpha$ level is kept small, but there's no corresponding guarantee regarding $\\beta$. We'd certainly *like* the type II error rate to be small, and we try to design tests that keep it small, but this is very much secondary to the overwhelming need to control the type I error rate. As Blackstone might have said if he were a statistician, it is \"better to retain 10 false null hypotheses than to reject a single true one\". To be honest, I don't know that I agree with this philosophy -- there are situations where I think it makes sense, and situations where I think it doesn't -- but that's neither here nor there. It's how the tests are built."
]
},
{
"cell_type": "markdown",
"id": "associate-position",
"metadata": {},
"source": [
"(teststatistics)=\n",
"## Test statistics and sampling distributions\n",
"\n",
"At this point we need to start talking specifics about how a hypothesis test is constructed. To that end, let's return to the ESP example. Let's ignore the actual data that we obtained, for the moment, and think about the structure of the experiment. Regardless of what the actual numbers are, the *form* of the data is that $X$ out of $N$ people correctly identified the colour of the hidden card. Moreover, let's suppose for the moment that the null hypothesis really is true: ESP doesn't exist, and the true probability that anyone picks the correct colour is exactly $\\theta = 0.5$. What would we *expect* the data to look like? Well, obviously, we'd expect the proportion of people who make the correct response to be pretty close to 50\\%. Or, to phrase this in more mathematical terms, we'd say that $X/N$ is approximately $0.5$. Of course, we wouldn't expect this fraction to be *exactly* 0.5: if, for example we tested $N=100$ people, and $X = 53$ of them got the question right, we'd probably be forced to concede that the data are quite consistent with the null hypothesis. On the other hand, if $X = 99$ of our participants got the question right, then we'd feel pretty confident that the null hypothesis is wrong. Similarly, if only $X=3$ people got the answer right, we'd be similarly confident that the null was wrong. Let's be a little more technical about this: we have a quantity $X$ that we can calculate by looking at our data; after looking at the value of $X$, we make a decision about whether to believe that the null hypothesis is correct, or to reject the null hypothesis in favour of the alternative. The name for this thing that we calculate to guide our choices is a **_test statistic_**. \n",
"\n",
"\n",
"Having chosen a test statistic, the next step is to state precisely which values of the test statistic would cause us to reject the null hypothesis, and which values would cause us to keep it. In order to do so, we need to determine what the **_sampling distribution of the test statistic_** would be if the null hypothesis were actually true (we talked about [sampling distributions](samplingdists) earlier). Why do we need this? Because this distribution tells us exactly what values of $X$ our null hypothesis would lead us to expect. And therefore, we can use this distribution as a tool for assessing how closely the null hypothesis agrees with our data. Using ``random.binomial`` from ``numpy``, we can estimate a binomial distribution with a $\\theta = 0.5$, e.g. estimating from 10,000 trials:"
]
},
{
"cell_type": "code",
"execution_count": 15,
"id": "alone-legislation",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "espestimation-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAD4CAYAAAAdIcpQAAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAAXjklEQVR4nO3dbbAeZ33f8e8PIRtsULCw7Bwsq0dMFQfbKkY5cQCnGcAkNi213E5MREuqZpyqM1YCpGkSmb5o0xl1/ILJwGRsOhpIojRgVzhmrNAOIMRDHyaxkYWDLAvXKha2IiEpTkFtmHGPnX9f3HvMbelIe0toz/2g72fmzO5e9+45/8uyzk977bW7qSokSTqdlw27AEnS6DMsJEmtDAtJUivDQpLUyrCQJLV6+bAL+GFceumlNT09PewyJGmsPPLII39ZVcvO5JixDovp6Wl27do17DIkaawk+faZHuMwlCSpVadhkeTXkuxN8liSe5O8IsnSJDuSPNksL+nb/84k+5M8keSmLmuTJA2us7BIcgXwfmCmqq4FFgHrgE3AzqpaBexstklydfP5NcDNwD1JFnVVnyRpcF0PQ70ceGWSlwMXAYeAtcDW5vOtwK3N+lrgvqp6rqqeAvYD13dcnyRpAJ2FRVX9BfBh4GngMPC9qvoCcHlVHW72OQxc1hxyBfBM37c42LS9RJINSXYl2XXs2LGuypck9elyGOoSemcLK4HXARcned/pDpmn7aSnHFbVlqqaqaqZZcvOaOaXJOksdTkM9U7gqao6VlWzwAPAW4EjSaYAmuXRZv+DwJV9xy+nN2wlSRqyLsPiaeDNSS5KEuBGYB+wHVjf7LMeeLBZ3w6sS3JhkpXAKuDhDuuTJA2os5vyquqhJPcDu4Hnga8DW4BXAduS3E4vUG5r9t+bZBvweLP/xqp6oav6pHNhdnaWPXv2vLi9evVqFi9ePMSKpG5knF9+NDMzU97BrWHavXs3d9y9nSVT0xw/fIB7Nt7CmjVrDBGNtCSPVNXMmRwz1o/7kEbBkqlplq646iVte/bsOSFEYM2aNUOqUPrhGRZSR04MEc82NM4MC2mBeLahcWZYSAtoviEraRz41FlJUivDQpLUyrCQJLUyLCRJrQwLSVIrZ0NJQ+b9FxoHhoU0ZN5/oXFgWEgjwPsvNOq8ZiFJamVYSJJaGRaSpFaGhSSplRe4pQH1T3Htenqr02k1agwLaUBzU1yBzqe3Op1Wo6azYagkVyV5tO/reJIPJlmaZEeSJ5vlJX3H3Jlkf5InktzUVW3S2VoyNc2SqekF+1lLV1y1YD9POp3OwqKqnqiq66rqOuAngO8DnwE2ATurahWws9kmydXAOuAa4GbgniSLuqpPkjS4hbrAfSPwv6rq28BaYGvTvhW4tVlfC9xXVc9V1VPAfuD6BapPknQaCxUW64B7m/XLq+owQLO8rGm/Anim75iDTdtLJNmQZFeSXceOHeuwZEnSnM7DIskFwC3Ap9t2naetTmqo2lJVM1U1s2zZsnNRoiSpxUKcWbwL2F1VR5rtI0mmAJrl0ab9IHBl33HLgUMLUJ8kqcVChMV7+cEQFMB2YH2zvh54sK99XZILk6wEVgEPL0B9kqQWnd5nkeQi4GeBf9HXfBewLcntwNPAbQBVtTfJNuBx4HlgY1W90GV9kqTBdBoWVfV94LUntD1Lb3bUfPtvBjZ3WZMk6cz5bChJUisf9yGdwOcySSczLKQT+Fwm6WSGhTQPX3MqvZTXLCRJrQwLSVIrw0KS1MqwkCS1MiwkSa0MC0lSK6fOSmPEGwY1LIaFNEa8YVDDYlhIY8YbBjUMXrOQJLUyLCRJrQwLSVIrw0KS1KrTsEjymiT3J/lmkn1J3pJkaZIdSZ5slpf07X9nkv1JnkhyU5e1SZIG1/WZxUeBz1XVjwNvBPYBm4CdVbUK2Nlsk+RqYB1wDXAzcE+SRR3XJ0kaQGdhkWQJ8DPAJwCq6v9V1XeBtcDWZretwK3N+lrgvqp6rqqeAvYD13dVnyRpcF2eWbweOAb8fpKvJ/l4kouBy6vqMECzvKzZ/wrgmb7jDzZtL5FkQ5JdSXYdO3asw/IlSXO6DIuXA2uAj1XVm4C/phlyOoXM01YnNVRtqaqZqppZtmzZualUknRaXYbFQeBgVT3UbN9PLzyOJJkCaJZH+/a/su/45cChDuuTJA2os7Coqu8AzySZey7BjcDjwHZgfdO2HniwWd8OrEtyYZKVwCrg4a7qkyQNrutnQ/0q8MkkFwDfAn6JXkBtS3I78DRwG0BV7U2yjV6gPA9srKoXOq5PkjSATsOiqh4FZub56MZT7L8Z2NxlTZKkM+dTZ3Xe8t0Q0uAMC523fDeENDjDQuc13w0hDcYHCUqSWhkWkqRWhoUkqZVhIUlqZVhIkloZFpKkVoaFJKmVYSFJamVYSJJaGRaSpFaGhSSplWEhSWplWEiSWhkWkqRWnYZFkgNJ9iR5NMmupm1pkh1JnmyWl/Ttf2eS/UmeSHJTl7VJkga3EGcWb6+q66pq7vWqm4CdVbUK2Nlsk+RqYB1wDXAzcE+SRQtQnzT2Zmdn2b17N7t372Z2dnbY5WgCDWMYai2wtVnfCtza135fVT1XVU8B+4HrF748afzMvfXvjru3v+RVsdK50nVYFPCFJI8k2dC0XV5VhwGa5WVN+xXAM33HHmzaJA1gydQ0S6amh12GJlTXr1W9oaoOJbkM2JHkm6fZN/O01Uk79UJnA8CKFSvOTZWSpNPq9Myiqg41y6PAZ+gNKx1JMgXQLI82ux8Eruw7fDlwaJ7vuaWqZqpqZtmyZV2WL0lqdBYWSS5O8uq5deDngMeA7cD6Zrf1wIPN+nZgXZILk6wEVgEPd1WfJGlwXQ5DXQ58Jsncz/lUVX0uydeAbUluB54GbgOoqr1JtgGPA88DG6vqhQ7r03lkdnb2JRd+V69ePcRqpPHTWVhU1beAN87T/ixw4ymO2Qxs7qomnb/mZgstmZrm+OED3LNx2BVJ46XrC9zSyFgyNc3SFVcNuwxpLPm4D0lSK8NCktTKsJAktTIsJEmtDAtJUquBwiLJDYO0SZIm06BnFr87YJskaQKd9j6LJG8B3gosS/Iv+z5aAviuCUk6T7TdlHcB8Kpmv1f3tR8Hfr6roiRJo+W0YVFVXwW+muQPqurbC1STJGnEDPq4jwuTbAGm+4+pqnd0UZQkabQMGhafBv4D8HHAJ8FK0nlm0LB4vqo+1mklkqSRNejU2T9JckeSqSRL5746rUySNDIGPbOYe7Pdb/S1FfD6c1uOJGkUDRQWVbWy60IkSaNroLBI8k/na6+qPzy35UiSRtGg1yx+su/r7wL/FrhlkAOTLEry9SSfbbaXJtmR5MlmeUnfvncm2Z/kiSQ3nVFPJEmdGXQY6lf7t5P8CPAfB/wZHwD20XtECMAmYGdV3ZVkU7P9W0muBtYB1wCvA76Y5Meqyqm6kjRkZ/uI8u8Dq9p2SrIc+Pv07s+YsxbY2qxvBW7ta7+vqp6rqqeA/cD1Z1mfzlOzs7Ps3r37xa/Z2dlhlyRNhEGvWfwJvdlP0HuA4BuAbQMc+hHgN3npc6Uur6rDAFV1OMllTfsVwJ/17XewaTuxlg3ABoAVK1YMUr7OI3v27OGOu7ezZGqa44cPcM9GWLNmzbDLksbeoFNnP9y3/jzw7ao6eLoDkrwbOFpVjyR52wA/I/O01UkNVVuALQAzMzMnfS4tmZpm6Yqrhl2GNFEGvWbx1SSX07vADfDkAIfdANyS5O8BrwCWJPkj4EiSqeasYgo42ux/ELiy7/jlwKFB6pMkdWvQN+W9B3gYuA14D/BQktM+oryq7qyq5VU1Te/C9Zeq6n3Adn5wk9964MFmfTuwLsmFSVbSuyby8Bn2R5LUgUGHof418JNVdRQgyTLgi8D9Z/Ez7wK2JbkdeJpeAFFVe5NsAx6nN9S10ZlQkjQaBg2Ll80FReNZzmAmVVV9BfhKs/4scOMp9tsMbB70+0qSFsagYfG5JJ8H7m22fwH4L92UJOlcmJ2dZc+ePS9ur169msWLFw+xIo2ztndw/216U11/I8k/An6a3qylPwU+uQD1STpLTiPWudR2ZvER4EMAVfUA8ABAkpnms3/QYW2SfkhOI9a50nbdYbqqvnFiY1XtoveKVUnSeaAtLF5xms9eeS4LkSSNrraw+FqSf35iYzPt9ZFuSpIkjZq2axYfBD6T5J/wg3CYAS4A/mGHdUmSRshpw6KqjgBvTfJ24Nqm+T9X1Zc6r0ySNDIGfTbUl4Evd1yLJGlEne37LCRJ5xHDQpLUyrCQJLUyLCRJrQwLSVIrw0KS1MqwkCS1MiwkSa06C4skr0jycJI/T7I3yW837UuT7EjyZLO8pO+YO5PsT/JEkpu6qk2SdGa6PLN4DnhHVb0RuA64OcmbgU3AzqpaBexstklyNbAOuAa4GbgnyaIO65MkDaizsKie/9tsLm6+ClgLbG3atwK3Nutrgfuq6rmqegrYD1zfVX2SpMF1es0iyaIkjwJHgR1V9RC917QeBmiWlzW7XwE803f4wabtxO+5IcmuJLuOHTvWZfmSpMZADxI8W1X1AnBdktfQe9T5tafZPfN9i3m+5xZgC8DMzMxJn0s6vdnZWfbs2fPi9urVq1m8ePEQK9I46DQs5lTVd5N8hd61iCNJpqrqcJIpemcd0DuTuLLvsOXAoYWoTzqf7Nmzhzvu3s6SqWmOHz7APRthzZo1wy5LI67L2VDLmjMKkrwSeCfwTWA7sL7ZbT3wYLO+HViX5MIkK4FVwMNd1Sedz5ZMTbN0xVUsmZoedikaE12eWUwBW5sZTS8DtlXVZ5P8KbCteTXr08BtAFW1N8k24HHgeWBjM4wlSRqyzsKiqr4BvGme9meBG09xzGZgc1c1SZLOjndwS5JaGRaSpFaGhSSp1YJMnZW60H+/gPcKSN0yLDS25u4XALxXQOqYYaGx5n0C0sLwmoUkqZVhIUlqZVhIkloZFpKkVoaFJKmVYSFJamVYSJJaGRaSpFaGhSSplWEhSWrl4z4kveShjOCDGXUyw0LSiw9lXDI1zfHDB3wwo07SWVgkuRL4Q+BHgb8BtlTVR5MsBf4TMA0cAN5TVf+7OeZO4HbgBeD9VfX5rurT+PBfvQtjydQ0S1dcNewyNKK6PLN4Hvj1qtqd5NXAI0l2AP8M2FlVdyXZBGwCfivJ1cA64BrgdcAXk/xYVb3QYY0aA/6rVxq+zi5wV9XhqtrdrP8fYB9wBbAW2NrsthW4tVlfC9xXVc9V1VPAfuD6rurTeJn7V6+PJJeGY0FmQyWZBt4EPARcXlWHoRcowGXNblcAz/QddrBpO/F7bUiyK8muY8eOdVq3JKmn87BI8irgj4EPVtXx0+06T1ud1FC1papmqmpm2bJl56pMSdJpdBoWSRbTC4pPVtUDTfORJFPN51PA0ab9IHBl3+HLgUNd1idJGkxnYZEkwCeAfVX1O30fbQfWN+vrgQf72tcluTDJSmAV8HBX9UmSBtflbKgbgF8E9iR5tGn7EHAXsC3J7cDTwG0AVbU3yTbgcXozqTY6E0qSRkNnYVFV/535r0MA3HiKYzYDm7uqSZJ0dnw2lCSplWEhSWplWEiSWhkWkqRWhoUkqZVhIUlqZVhIkloZFpKkVr4pT9Ip+eIpzTEsJJ2SL57SHMNC0mn5ulWBYaER0z/s4ZCHNDoMC42UuWEPwCEPaYQYFho5vmdbGj1OnZUktTIsJEmtDAtJUqsu38H9e0mOJnmsr21pkh1JnmyWl/R9dmeS/UmeSHJTV3VpNMzOzrJ79+4Xv2ZnZ4ddkqTT6PLM4g+Am09o2wTsrKpVwM5mmyRXA+uAa5pj7kmyqMPaNGRzs542PfAN7rh7+0vuEpY0ejoLi6r6r8BfndC8FtjarG8Fbu1rv6+qnquqp4D9wPVd1abRMHezl7Ofxk//maFnheeHhZ46e3lVHQaoqsNJLmvarwD+rG+/g03bSZJsADYArFixosNSJZ2K98Ocf0blAnfmaav5dqyqLVU1U1Uzy5Yt67gsSaeyZGras8LzyEKHxZEkUwDN8mjTfhC4sm+/5cChBa5NknQKCx0W24H1zfp64MG+9nVJLkyyElgFPLzAtakDznqSJkNn1yyS3Au8Dbg0yUHg3wB3AduS3A48DdwGUFV7k2wDHgeeBzZW1Qtd1aaF4yOupcnQWVhU1XtP8dGNp9h/M7C5q3o0PD7iWhp/o3KBW5I0wgwLSVIrw0KS1Mr3WUg6J/rfcgi+6XDSGBY6Z+b7ZaHzhzPfJpthoXNmvl8WOr84821yGRY6p/xlIU0mL3BLklp5ZiGpU/3XsrzoPb4MC50xZ73oTPg488lgWOiMOetFZ8pHmY8/w0JnxQvZ0vnFsJC04BzKHD+GhaQF51Dm+DEsJA2FQ5njxbCQNDIcnhpdhoWkkeHw1OgyLHRa3lClhXbi8JRnG6Nh5MIiyc3AR4FFwMer6q4hl3ReONVfSG+o0rANcrZhoHRvpMIiySLgbuBngYPA15Jsr6rHh1vZaDuTvyhtoTDfX0hvqNKwzXcxvP//5X379vG7O/8nS1630uGrjoxUWADXA/ur6lsASe4D1gITExa7d+8+599z3759/PtPfZGLXvujfP/Z7/Chf/xO3vCGN5zRvvv27Ttpv7nl8cMHmvXFJ7UdP3ygtf1M9j3bnzfKtZ3tzxvl2kblz2nu/+Vnv7WXH/lbV6PupKqGXcOLkvw8cHNV/XKz/YvAT1XVr/TtswHY0GxeCzy24IUunEuBvxx2ER2yf+Ntkvs3yX0DuKqqXn0mB4zamUXmaXtJmlXVFmALQJJdVTWzEIUNg/0bb/ZvfE1y36DXvzM9ZtTeZ3EQuLJvezlwaEi1SJIaoxYWXwNWJVmZ5AJgHbB9yDVJ0nlvpIahqur5JL8CfJ7e1Nnfq6q9pzlky8JUNjT2b7zZv/E1yX2Ds+jfSF3gliSNplEbhpIkjSDDQpLUamzCIsmVSb6cZF+SvUk+0LQvTbIjyZPN8pJh13qmkrwiycNJ/rzp22837WPft35JFiX5epLPNtsT078kB5LsSfLo3LTECevfa5Lcn+Sbzd/Bt0xK/5Jc1fy5zX0dT/LBCerfrzW/Vx5Lcm/z++aM+zY2YQE8D/x6Vb0BeDOwMcnVwCZgZ1WtAnY22+PmOeAdVfVG4Drg5iRvZjL61u8DQP+t4pPWv7dX1XV98/MnqX8fBT5XVT8OvJHen+NE9K+qnmj+3K4DfgL4PvAZJqB/Sa4A3g/MVNW19CYOreNs+lZVY/kFPEjvGVJPAFNN2xTwxLBr+yH7dRGwG/ipSeobvXtmdgLvAD7btE1S/w4Al57QNhH9A5YAT9FMiJm0/p3Qp58D/sek9A+4AngGWEpv9utnmz6ecd/G6cziRUmmgTcBDwGXV9VhgGZ52RBLO2vNEM2jwFFgR1VNTN8aHwF+E/ibvrZJ6l8BX0jySPNIGpic/r0eOAb8fjOM+PEkFzM5/eu3Dri3WR/7/lXVXwAfBp4GDgPfq6ovcBZ9G7uwSPIq4I+BD1bV8WHXc65U1QvVOw1eDlyf5Nohl3TOJHk3cLSqHhl2LR26oarWAO+iN0T6M8Mu6Bx6ObAG+FhVvQn4a8ZwSKZNcyPwLcCnh13LudJci1gLrAReB1yc5H1n873GKiySLKYXFJ+sqgea5iNJpprPp+j9y3xsVdV3ga8ANzM5fbsBuCXJAeA+4B1J/ojJ6R9VdahZHqU33n09k9O/g8DB5mwX4H564TEp/ZvzLmB3VR1ptiehf+8EnqqqY1U1CzwAvJWz6NvYhEWSAJ8A9lXV7/R9tB1Y36yvp3ctY6wkWZbkNc36K+n9AX+TCegbQFXdWVXLq2qa3mn+l6rqfUxI/5JcnOTVc+v0xoQfY0L6V1XfAZ5JMvdCiRvpvTZgIvrX5738YAgKJqN/TwNvTnJR8zv0RnqTE864b2NzB3eSnwb+G7CHH4x7f4jedYttwAp6/2Fuq6q/GkqRZynJ3wG20pup8DJgW1X9uySvZcz7dqIkbwP+VVW9e1L6l+T19M4moDdk86mq2jwp/QNIch3wceAC4FvAL9H8v8pk9O8ieheCX19V32vaJuLPr5mK/wv0ZpR+Hfhl4FWcYd/GJiwkScMzNsNQkqThMSwkSa0MC0lSK8NCktTKsJAktTIsJEmtDAtJUqv/D2vyWdjl192YAAAAAElFTkSuQmCC\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"from numpy import random\n",
"import matplotlib.pyplot as plt\n",
"import seaborn as sns\n",
"\n",
"# sample from a binomial distribution\n",
"data = random.binomial(n=100, p=.5, size=10000)\n",
"\n",
"\n",
"esp = sns.histplot(data, bins=20,binwidth=0.5)\n",
"esp.set(xlim=(20,80))\n",
"\n",
"glue(\"estimation-fig\", esp, display=False)"
]
},
{
"cell_type": "markdown",
"id": "hundred-religious",
"metadata": {},
"source": [
"```{glue:figure} estimation-fig\n",
":figwidth: 600px\n",
":name: fig-esp-estimation\n",
"\n",
"The sampling distribution for our test statistic X when the null hypothesis is true. For our ESP scenario, this is a binomial distribution. Not surprisingly, since the null hypothesis says that the probability of a correct response is θ = .5, the sampling distribution says that the most likely value is 50 (out of 100) correct responses. Most of the probability mass lies between 40 and 60.\n",
"```\n",
"\n"
]
},
{
"cell_type": "markdown",
"id": "statutory-valuation",
"metadata": {},
"source": [
"How do we actually determine the sampling distribution of the test statistic? For a lot of hypothesis tests this step is actually quite complicated, and later on in the book you'll see me being slightly evasive about it for some of the tests (some of them I don't even understand myself). However, sometimes it's very easy. And, fortunately for us, our ESP example provides us with one of the easiest cases. Our population parameter $\\theta$ is just the overall probability that people respond correctly when asked the question, and our test statistic $X$ is the *count* of the number of people who did so, out of a sample size of $N$. We've seen a distribution like this before, in the section on [the binomial distribution]((binomial)): that's exactly what the binomial distribution describes! So, to use the notation and terminology that I introduced in that section, we would say that the null hypothesis predicts that $X$ is binomially distributed, which is written\n",
"\n",
"$$\n",
"X \\sim \\mbox{Binomial}(\\theta,N)\n",
"$$\n",
"\n",
"Since the null hypothesis states that $\\theta = 0.5$ and our experiment has $N=100$ people, we have the sampling distribution we need. This sampling distribution is plotted in Figure {numref}`fig-esp-estimation`. No surprises really: the null hypothesis says that $X=50$ is the most likely outcome, and it says that we're almost certain to see somewhere between 40 and 60 correct responses. "
]
},
{
"cell_type": "markdown",
"id": "preceding-bermuda",
"metadata": {},
"source": [
"(decisionmaking)=\n",
"## Making decisions\n",
"\n",
"\n",
"Okay, we're very close to being finished. We've constructed a test statistic ($X$), and we chose this test statistic in such a way that we're pretty confident that if $X$ is close to $N/2$ then we should retain the null, and if not we should reject it. The question that remains is this: exactly which values of the test statistic should we associate with the null hypothesis, and which exactly values go with the alternative hypothesis? In my ESP study, for example, I've observed a value of $X=62$. What decision should I make? Should I choose to believe the null hypothesis, or the alternative hypothesis?\n",
"\n",
"### Critical regions and critical values\n",
"\n",
"To answer this question, we need to introduce the concept of a **_critical region_** for the test statistic $X$. The critical region of the test corresponds to those values of $X$ that would lead us to reject the null hypothesis (which is why the critical region is also sometimes called the rejection region). How do we find this critical region? Well, let's consider what we know: \n",
"\n",
"- $X$ should be very big or very small in order to reject the null hypothesis.\n",
"- If the null hypothesis is true, the sampling distribution of $X$ is Binomial $(0.5, N)$.\n",
"- If $\\alpha =.05$, the critical region must cover 5\\% of this sampling distribution. \n",
"\n",
"It's important to make sure you understand this last point: the critical region corresponds to those values of $X$ for which we would reject the null hypothesis, and the sampling distribution in question describes the probability that we would obtain a particular value of $X$ if the null hypothesis were actually true. Now, let's suppose that we chose a critical region that covers 20\\% of the sampling distribution, and suppose that the null hypothesis is actually true. What would be the probability of incorrectly rejecting the null? The answer is of course 20\\%. And therefore, we would have built a test that had an $\\alpha$ level of $0.2$. If we want $\\alpha = .05$, the critical region is only *allowed* to cover 5\\% of the sampling distribution of our test statistic."
]
},
{
"cell_type": "code",
"execution_count": 62,
"id": "interested-depth",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "espcritical-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEICAYAAACuxNj9AAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAAyg0lEQVR4nO3deXxU9bnH8c9D2AURFCmLsliUJYQIISLKJi64VHChYl2wdatFvdZqFe1VXGi1Yi/SulzqAnWFWq1UbS+LoqIoBGQREEHZEyEqikhAAs/945yMkzDJTEIm6/f9es1r5vzO9vxmzswz53fO+R1zd0REREpSp7IDEBGRqk/JQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiUrKoRczsNjN7vITxF5nZjHJYj5vZjw90OQmua4eZdaqIdYXrMzN7ysy2mdn8ilpvVWJmy81sUDHjBpnZpjIut8zzSvIpWVRjZvYzM8sKfzBzzOzfZnZicdO7++/d/Ypw3g7hj3rdqPHPuvupFRF7eXH3Ju7+WQWu8kTgFKCdu2dW4HoBMLM5ZnZFRa83mrt3d/c5Fb3e8voTYmZjzeyZ8oipNlGyqKbM7EZgAvB7oBVwJPAIMKyY6evGKq9M4b/06rYNtgfWuft3pZ2xKn4GIglzdz2q2QNoBuwARpQwzVjgReAZYDtwRVj2TDh+A+DhcnYAxwOXAXOjltEdmAl8BWwBbgvLM4F5wNdADvAXoH7UfA78uJi45gDjgHeBPODHQJeo9awCfho1/aHAv8I6LADuLRJjZF3h+/I3IBdYD/wOqBOOuwyYC4wHtgFrgdOjlnMZ8BnwbTjuohixXw7sAvaG79ldYfmVwJow/ulAmyLxjQZWA2uLeU/+DnwOfAO8DXQvZrpx4bp3hev/C3AX8OdwfD3gO+CP4XCjcNrm4fDZwPLwc5sDdC1h+zkMeDWc9ivgnaj3ch1wctQ6Jofv6QrgZmBT1HLaAP8IP5O1wPVR40qct0g8b4fv5Xdh3S8Iy88CFodxvgekRc1zC7A5/ExXAUOAocD3wJ5wOUsq+/tcXR6VHoAeZfjQgg0+H6hbwjRjwy/EcII9yEYUThYdwi9f3ah5LiP8IQaaEiSC3wANw+HjwnG9gb5A3XA5K4EbopYTL1lsIEhEdQl+4DcCPw+HewFfEP5gAi+Ej8ZAt3Da4pLF34BXwlg7AJ8Al0fVbQ/BD3sKcA2QDRhwEEEyOiactjXF/2BfVmT9J4Xx9gIaAH8G3i4S30ygBdComGX+Ioy5AcHe4uISPtc5wBVF1r8sfN0P+BT4IGrckvD10QQ/tKcQJJXfEiS4+sWs5w/AY+G09YD+gIXj1vFDsriPIJG0AI4APiL8wSfY7hYCdwD1gU4ECfm0ePMWE1Oh7Sp8z7cCx4Wf6agwtgbAMeG20iZqez8q6rvxTGV/j6vbo7o1AUjgUOALd8+PM908d/+nu+9z97xSruMs4HN3f9Ddd7n7t+7+AYC7L3T39909393XAf8LDCzFsie7+/Iw/qEEzTpPhctbRPBP9HwzSwHOA+50953uvgKYEmuB4bQXAGPCWNcBDwKXRE223t3/6u57w+W0JmjCA9gHpJpZI3fPcfflCdblIuBJd1/k7ruBMcDxZtYhapo/uPtXxX0G7v5kGPNugh+ynmbWLMH1zwM6m9mhwADgCaCtmTUh+EzeCqe7AHjN3We6+x6CPaxGBAkmlj0E7097d9/j7u94+EtbxE+BcWH9NgITo8b1AVq6+93u/r0Hx5b+CoxMYN5EXAn8r7t/4O573X0KsJvgj8xegqTRzczqufs6d/+0lMuXKEoW1dOXwGEJtIFvPIB1HEHwL3U/Zna0mb1qZp+b2XaC4yaHlWLZ0XG1B44zs68LHgQ/wD8CWhLsbWwsZt5ohxH8e10fVbYeaBs1/HnBC3ffGb5s4sHxhwuAXwI5ZvaamXVJsC5totfp7jsIPp/o9Rb7OZhZipndZ2afhu/luqj6xBUmoCyCxDCAIDm8B5xA4WRRNM59YVxtzezI8CSJHWa2I5zkAYI9jxlm9pmZ3VpMCG2K1C/6/W8PtCny2d7GDwm6pHkT0R74TZHlH0GwN7EGuIEg+W41sxfMrE0ply9RlCyqp3kEbdHD40xXUpfC8bob3ggcVcy4R4GPgc7ufjDBD4DFWV5x694IvOXuh0Q9mrj7NQTt3PlAu6jpjyhmmV8Q/BtuH1V2JEGbdfyA3P/P3U8h+Df9McE/4ERkR6/TzA4i2POLXm9J7/XPCE5KOJmgSa5DwaKKCzVG2VsETU7HEhzXeQs4jeDY0tvFxGkE7+Vmd98QvudN3L0JQLin8xt37wT8BLjRzIbEWHcOhT+TI6NebyQ4ThP92TZ19zMSmDcRGwn2TKKX39jdnw/r8Jy7nxjW24H7w/nU1XYZKFlUQ+7+DUE78MNmNtzMGptZPTM73cz+mOBicgmaXoq7RuFV4EdmdoOZNTCzpmZ2XDiuKUEb/47wH/g1B1CdV4GjzeySsA71zKyPmXUNm4teAsaGdewCXBprIeG004BxYaztgRsJDvCXyMxamdnZ4Q/9boIDn3sTjP854Odmlm5mDQj2sj4Im8ES0TRc55cEx2V+H2f6Lez/mb1F8L6scPfvCY9rEPxQ54bTTAPONLMhZlaP4FjUboK9kP2Y2Vlm9uMwqWwneD9ivSfTgDFm1tzM2gHXRY2bD2w3s1vMrFG4F5VqZn0SmDeRuv8V+KWZHReeWXeQmZ0Zfv7HmNlJ4Weyi+Bkir1Ry+lQDc/Eq1R6s6opd/8TwY/h7wh++DcC1wL/THD+nYRnJYW78H2LjP+W4GDoTwiab1YDg8PRNxH8I/6W4As79QDq8S1wKkE7dna4rvsJ2psJ69QsLH8aeJ7gRy6W6wgO4n5GcObTc8CTCYRRh+DHM5vgzJ+BwK8SjH828N8Ex1lyCPbGRpY4U2F/I2h+2UxwRtD7caZ/iOB4zjYzK2jjf4/g+EPBXsQKgh/IgmHcfRVwMcEB+C8IPtefhMklls7ALILEOQ94xGNfW3FXGP9aYAbBZ1Swzr3hetLD8V8AjxN8niXOW4yxwJRwe/2pu2cRHLf4C8EZVWsITkCAYPu5L1zn58DhBHvAEJx9BvClmS2Ks04JFZzdIFItmNn9wI/cfVRlxyJSm2jPQqo0M+tiZmlhM0MmwbUOL1d2XCK1ja4olaquKUHTUxuCc+ofJLiWQkQqkJqhREQkLjVDiYhIXNW6Geqwww7zDh06VHYYIiLVysKFC79w95almadaJ4sOHTqQlZVV2WGIiFQrZlbaq+XVDCUiIvEpWYiISFxKFiIiEpeShYiIxKVkISIicSU1WZjZr81suZl9ZGbPm1lDM2thZjPNbHX43Dxq+jFmtsbMVpnZacmMTUREEpe0ZGFmbYHrgQx3TyW47eFI4FZgtrt3BmaHw5hZt3B8d4K7pz0S3v1MREQqWbKboeoCjcI7ujUm6AJ6GD/cGnMKP9zAZxjwgrvvdve1BN0NZyY5PhERSUDSkoW7bya4z+8Ggn7+v3H3GUArd88Jp8kh6GcegttQRt9icROFb00JgJldZWZZZpaVm5tbdLRIleXu5OXlRR7ql02qk2Q2QzUn2FvoSNBj6EFmdnFJs8Qo2+/b5O6T3D3D3TNatizV1eoilWrXrl18+umnkceuXbsqOySRhCWzGepkwts6uvsegttj9gO2mFlrgPB5azj9Jgrfj7cdQbOViIhUsmQmiw1A3/DeyQYMAVYC04GCu5yN4od7E0wHRob3e+5IcFvH+UmMT0REEpS0jgTd/QMzexFYBOQDHwKTgCbANDO7nCChjAinX25m0wjuH5wPjA7v4SsiIpUsqb3OuvudwJ1FincT7GXEmn4cMC6ZMYmUJ3cvdOyhYcOGmFnMcpHqrFp3US5S2QoOWhc46qijaNSoUcxykepM3X2IiEhcShYiIhKXkoWIiMSlYxYilay4g+QiVYmShUglK+4guUhVomYoERGJS8lCRETiUrIQEZG4lCxERCQuJQsREYlLyUJEROJSshARkbh0nYVIgqIvntOFc1LbaM9CJEHRt0XVLVGltlGyEBGRuJQsREQkrqQlCzM7xswWRz22m9kNZtbCzGaa2erwuXnUPGPMbI2ZrTKz05IVm4iIlE7SkoW7r3L3dHdPB3oDO4GXgVuB2e7eGZgdDmNm3YCRQHdgKPCImaUkKz4REUlcRTVDDQE+dff1wDBgSlg+BRgevh4GvODuu919LbAGyKyg+EREpAQVlSxGAs+Hr1u5ew5A+Hx4WN4W2Bg1z6awrBAzu8rMsswsKzc3N4khi4hIgaQnCzOrD5wN/D3epDHKfL8C90nunuHuGS1btiyPEEVEJI6K2LM4HVjk7lvC4S1m1hogfN4alm8Cjoiarx2QXQHxiYhIHBWRLC7khyYogOnAqPD1KOCVqPKRZtbAzDoCnYH5FRCfiIjEkdTuPsysMXAKcHVU8X3ANDO7HNgAjABw9+VmNg1YAeQDo919bzLjExGRxCQ1Wbj7TuDQImVfEpwdFWv6ccC4ZMYkIiKlpyu4RUQkLvU6K1JEdO+yoB5mRUDJQmQ/Bb3LFjjqqKNo1KhRJUYkUvmULESqIO3dSFWjZCFSBWnvRqoaHeAWEZG4alWyaNKkSWWHUKJ+/foBsG7dOp577rlIeVZWFtdff32Zljlo0CCysrLKJb5o06dP57777iv35UrNl52dzfnnnw/A4sWLef311yPjDmS76tChA1988UW5xBjtscce429/+1u5L7e6UTNUEuzdu5eUlMR7Vy+Y/r333gN+SBY/+9nPAMjIyCAjIyMpsUavvzTOPvtszj777CRFJNWBu+Pu1KmT+H/O/Px82rRpw4svvggEySIrK4szzjgDSP52VZZt/Ze//GWSoqleatWeRQF35+abbyY1NZUePXowdepUAH71q18xffp0AM455xx+8YtfAPDEE0/wu9/9DoBnnnmGzMxM0tPTufrqq9m7N7jIvEmTJtxxxx0cd9xxzJs3r9D61qxZw8knn0zPnj3p1asXn376KXPmzGHw4MH87Gc/o0ePHpFlANx666288847pKen8z//8z/MmTOHs846C4AdO3bw85//nB49epCWlsY//vEPAK655hoyMjLo3r07d955Z9z3oEOHDtx9992ceOKJ/P3vf2fGjBkcf/zx9OrVixEjRrBjxw4AXn/9dbp06cKJJ57I9ddfH4lj8uTJXHvttQCsX7+eIUOGkJaWxpAhQ9iwYQMAl112Gddffz39+vWjU6dOkR8ISY5169aRmpoaGR4/fjxjx44Fgj3MG264gX79+pGamsr8+UFPOmPHjuWSSy7hpJNOonPnzvz1r3+NzP/AAw/Qp08f0tLSItvUunXr6Nq1K7/61a/o1asXGzdGdxQNCxYsoF+/fvTs2ZPMzEy+/fZbJk+ezIgRI/jJT37CqaeeGonz+++/54477mDq1Kmkp6czderUQtvVli1bOOecc+jZsyc9e/aM/JkaPnw4vXv3pnv37kyaNCnu+1L0u1ncd/iJJ57g6KOPZtCgQVx55ZWROMaOHcv48eOBILn17duXtLQ0zjnnHLZt2xZ5f2+55RYyMzM5+uijeeedd0r34VUDtTJZvPTSSyxevJglS5Ywa9Ysbr75ZnJychgwYEDkQ968eTMrVqwAYO7cufTv35+VK1cydepU3n33XRYvXkxKSgrPPvssAN999x2pqal88MEHnHjiiYXWd9FFFzF69GiWLFnCe++9R+vWrQGYP38+48aNi6ynwH333Uf//v1ZvHgxv/71rwuNu+eee2jWrBnLli1j6dKlnHTSSQCMGzeOrKwsli5dyltvvcXSpUvjvg8NGzZk7ty5nHzyydx7773MmjWLRYsWkZGRwZ/+9Cd27drF1Vdfzb///W/mzp1LcV3CX3vttVx66aUsXbqUiy66qFCTWU5ODnPnzuXVV1/l1ltvjRuTJM93333He++9xyOPPBL5IwSwdOlSXnvtNebNm8fdd99NdnY2M2bMYPXq1cyfP5/FixezcOFC3n77bQBWrVrFpZdeyocffkj79u0jy/n++++54IILeOihhyLfrYKD8vPmzWPKlCm88cYbkenr16/P3XffzQUXXMDixYu54IILCsV7/fXXM3DgQJYsWcKiRYvo3r07AE8++SQLFy4kKyuLiRMn8uWXX8atd8F389BDD435Hc7Ozuaee+7h/fffZ+bMmXz88ccxl3XppZdy//33s3TpUnr06MFdd90VGZefn8/8+fOZMGFCofKaolY2Q82dO5cLL7yQlJQUWrVqxcCBA1mwYAH9+/dnwoQJrFixgm7durFt2zZycnKYN28eEydOZMqUKSxcuJA+ffoAkJeXx+GHB7fjSElJ4bzzzttvXd9++y2bN2/mnHPOAYIf6AKZmZl07NixVLHPmjWLF154ITLcvHlwV9pp06YxadIk8vPzycnJYcWKFaSlpZW4rIIv5/vvv8+KFSs44YQTgOBLf/zxx/Pxxx/TqVOnSIwXXnhhzH9y8+bN46WXXgLgkksu4be//W1k3PDhw6lTpw7dunVjy5Yt+80rFefCCy8EYMCAAWzfvp2vv/4agGHDhtGoUSMaNWrE4MGDmT9/PnPnzmXGjBkce+yxQLBHu3r1ao488kjat29P375991v+qlWraN26deT7cfDBB0fGnXLKKbRo0aJU8b7xxhuRYwUpKSk0a9YMgIkTJ/Lyyy8DsHHjRlavXs2hhx5a7HKiv5uzZ8+O+R2eP38+AwcOjMQ4YsQIPvnkk0LL+eabb/j6668ZOHAgAKNGjWLEiBGR8eeeey4AvXv3Zt26daWqa3VQK5OF+363yQCgbdu2bNu2jf/85z8MGDCAr776imnTptGkSROaNm2KuzNq1Cj+8Ic/7Ddvw4YNY7aFFrcugIMOOqhMsRc9337t2rWMHz+eBQsW0Lx5cy677LJC5+jHW7+7c8opp/D8888XGv/hhx+WOj6gUHwNGjQoFLskT926ddm3b19kuOg2UHS7KRiOVe7ujBkzhquvvrrQuHXr1hW73cbaNguUZVuPZc6cOcyaNYt58+bRuHFjBg0aFHdbj/5uFvcdLkg+B6JgW09JSSE/P/+Al1fV1MpmqAEDBjB16lT27t1Lbm4ub7/9NpmZwR1cjz/+eCZMmMCAAQPo378/48ePp3///gAMGTKEF198ka1bg1twfPXVV6xfv77EdR188MG0a9eOf/7znwDs3r2bnTt3ljhP06ZN+fbbb2OOO/XUU/nLX/4SGd62bRvbt2/noIMOolmzZmzZsoV///vfCb0PBfr27cu7777LmjVrANi5cyeffPIJXbp04bPPPov8Syo4tlNUv379Ins7zz777H7NcFIxWrVqxdatW/nyyy/ZvXs3r776aqHxBZ/f3LlzadasWeSf+iuvvMKuXbv48ssvmTNnDn369OG0007jySefjBy72rx5c2S7L06XLl3Izs5mwYIFQLBXHe9Hs6RtfciQITz66KNAcGB6+/btfPPNNzRv3pzGjRvz8ccf8/7778d5V/ZfZqzvcGZmJm+99Rbbtm0jPz8/ciwwWrNmzWjevHmkqfrpp5+O7GXUBrVyz+Kcc85h3rx59OzZEzPjj3/8Iz/60Y8A6N+/PzNmzODHP/4x7du356uvvooki27dunHvvfdy6qmnsm/fPurVq8fDDz9cqN02lqeffpqrr76aO+64g3r16vH3v5d808C0tDTq1q1Lz549ueyyyyJNAQC/+93vGD16NKmpqaSkpHDnnXdy7rnncuyxx9K9e3c6deoUaU5KVMuWLZk8eTIXXnghu3fvBuDee+/l6KOP5pFHHmHo0KEcdthhkYRa1MSJE/nFL37BAw88QMuWLXnqqadKtX4pH/Xq1YscyO3YsSNdunQpNL558+b069eP7du38+STT0bKMzMzOfPMM9mwYQP//d//TZs2bWjTpg0rV67k+OOPB4KDxM8880yJZxLVr1+fqVOnct1115GXl0ejRo2YNWtWiTEPHjyY++67j/T0dMaMGVNo3EMPPcRVV13FE088QUpKCo8++ihDhw7lscceIy0tjWOOOSZmc1hJivsO9+3bl9tuu43jjjuONm3a0K1bt0gyjTZlyhR++ctfsnPnTjp16lSrtnWrzk0DGRkZnoxrCOQHO3bsoEmTJrg7o0ePpnPnzvsddK9p8vLyYl49HV0eqyxeOXDA05bVoEGDGD9+/H6nYI8dO5YmTZpw0003lXnZNUXBtp6fnx85G7LgWGNNY2YL3b1U5+PXymYoSdxf//pX0tPT6d69O998881+bdhSsdydvLy8yKM6/9mrasaOHUt6ejqpqal07NiR4cOHV3ZIVUqtbIaSxP3617+u8XsS1UlZ+4yaM2dOzPKC6zCEyLUUEltS9yzM7BAze9HMPjazlWZ2vJm1MLOZZrY6fG4eNf0YM1tjZqvM7LRkxiYiIolLdjPUQ8B/3L0L0BNYCdwKzHb3zsDscBgz6waMBLoDQ4FHzKx01+WXgrtz0kknsX37djZu3MjgwYPp2rUr3bt356GHHoo5z5w5c2jWrBnp6emkp6dz9913A5Cbm8uJJ55Iampq5KwnCM5fz87OLlVcubm5HHfccRx77LH7XQU6YcKEQmdSlWdfV9F9SJ1xxhmRc/BjKRpHUVdccUXkQsPSxliefQXl5uYydOjQMs1bE2gbL0zb+IFJWrIws4OBAcATAO7+vbt/DQwDpoSTTQGGh6+HAS+4+253XwusAWKfflMOXn/9dXr27MnBBx9M3bp1efDBB1m5ciXvv/8+Dz/88H5XVRcouLJ68eLF3HHHHQA8//zzjBo1innz5vHAAw8A8K9//YtevXrRpk2bUsU1e/ZsunTpwocffhg5C6tAvA24vLz++usccsghxY4vKY69e/fy+OOP061btzKtu+gX6eyzzy7zld8tW7akdevWvPvuu2Wav7rTNl48beOll8w9i05ALvCUmX1oZo+b2UFAK3fPAQifDw+nbwtEdzSzKSwrxMyuMrMsM8sqrvuJRDz77LMMGzYMgNatW9OrVy8gOO+7a9eubN68OeFl1atXj7y8PHbv3k2dOnXIz89nwoQJ3HzzzcXOE6s/pcWLF/Pb3/6W119/nfT0dPLy8iLTT5w4kezsbAYPHszgwYMj5bfffjs9e/akb9++kSukc3NzOe+88+jTpw99+vSJuSHl5eUxcuRI0tLSuOCCCwqtq6D3zu+++44zzzyTnj17kpqaytSpU2PGUbTvnaI93f7mN7+hV69eDBkyJNJlSPQ0X3zxBR06dIjbV1BZ+qAaPnx4pEuW2kbbuLbxclXQc2R5P4AMIB84Lhx+CLgH+LrIdNvC54eBi6PKnwDOK2kdvXv39rI68sgjffv27fuVr1271o844gj/5ptv9hv35ptveosWLTwtLc2HDh3qH330kbu7f/31137GGWd47969fdasWf7QQw/55MmTS1z/WWedFZnmiSee8GHDhrm7+1NPPeWjR4+OOU/79u09Nzc3Mgz49OnT3d395ptv9nvuucfd3S+88EJ/55133N19/fr13qVLl/2W9eCDD/rPf/5zd3dfsmSJp6Sk+IIFCwqt58UXX/QrrrgiMs/XX39dbBxTp06NDA8cODCyLMCfeeYZd3e/6667InWLniY3N9fbt28fs/7Rw8W9Z6NGjfLzzz/f9+7d68uXL/ejjjoqMv+mTZs8NTU15vtZnJ07d/qyZcsij507d+5XHqssXnmypi2OtnFt48UBsryUv+nJ3LPYBGxy9w/C4ReBXsAWM2sNED5vjZr+iKj52wGlawwtha+++oqmTZsWKtuxYwfnnXceEyZMKNSvTYFevXqxfv16lixZwnXXXRc5ta5Zs2a89tprZGVl0atXL1599VXOO+88rrzySs4///z9eqGFoD+lgi7IL7nkEubOnVvqOtSvXz/SC2x0fzSzZs3i2muvJT09nbPPPpvt27fvd5Xs22+/zcUXXwwEFwHG6keqR48ezJo1i1tuuYV33nkn5kVKUHy/WAB16tSJ9EF18cUXl6meBUp6z4rrg+rwww8vdZt6TaFtXNt4eUpasnD3z4GNZnZMWDQEWAFMB0aFZaOAV8LX04GRZtbAzDoCnYH5yYqvaD86e/bs4bzzzuOiiy6KdAhW1MEHHxw5mHXGGWewZ8+e/W62cvfdd3P77bfz/PPP07t3b5588kluu+22uPGU5f7K9erVi8wX3R/Nvn37mDdvXqTdefPmzfv9aCSyzqOPPpqFCxfSo0cPxowZEznYWVRx/WLFUrDO6Pc/kX6sSloWFN8H1a5du2rt7Ui1jWsbL0/JPhvqOuBZM1sKpAO/B+4DTjGz1cAp4TDuvhyYRpBQ/gOMdve9yQrsmGOO4bPPPiNcN5dffjldu3blxhtvLHaezz//PPIhzZ8/n3379hXq7XL16tVkZ2czcOBAdu7cSZ06dTCzmBtKWfpTKqkfnWhF+49avHjxftMMGDAg0s750UcfxezSPDs7m8aNG3PxxRdz0003sWjRolLFAcGXuqB99bnnnovUs0OHDixcuBCgUPtrScsuy3v2ySefFLrHQ22ibVzbeHlKarJw98XunuHuae4+3N23ufuX7j7E3TuHz19FTT/O3Y9y92PcvXS94ZXSmWeeGblQ6d133+Xpp5/mjTfeiJwyWHC2wmOPPcZjjz0GBB94amoqPXv25Prrr+eFF14olPlvv/127r33XiDoDnry5Mn07ds3ZlcKEydO5KmnniItLY2nn3662FMZo1111VWcfvrphQ7+xTJx4kSysrJIS0ujW7dukfijXXPNNezYsYO0tDT++Mc/xuz3admyZZGbxIwbNy5yA6hE44Cgt9Hly5fTu3dv3njjjcjZNTfddBOPPvoo/fr1K/TPdfDgwaxYsSJy8K9ovUr7nr355puceeaZcaeribSNaxsvT7W2b6icnBwuvfRSZs6cWc5RSVUyYMAAXnnllch9PxJRlfuGKm59sWgbrx3Kso2rb6hSaN26NVdeeSXbt2+v7FAkSXJzc7nxxhtL9SWqSbSN13wVuY3X6r6hfvrTn1Z2CJJELVu2rPWdwWkbr9kqchuvtXsWIiKSuFq9ZyG1m7sXOounYcOGZTq9U6Q2ULKQWqus3X2L1EZqhhIRkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiUrIQEZG4lCxERCQuJQsREYkrqcnCzNaZ2TIzW2xmWWFZCzObaWarw+fmUdOPMbM1ZrbKzE5LZmzVlbszffp0nnvuucoORaTa2rx5M7///e/3u7+4FK8i9iwGu3t61F2ZbgVmu3tnYHY4jJl1A0YC3YGhwCNmltgd0muBgiTRu3dv7rzzTtq2bVvZIUkV4u7k5eWRl5dHdb77ZUU55JBD2LhxI8cccwxjxoxR0khAZfQ6OwwYFL6eAswBbgnLX3D33cBaM1sDZALzKiHGKmXlypUMGDCAPXv20Lt3b4488kimTJnClClTKju0Mrnxxhsr5Abz0WJ1R16TRPegW5G9595xxx1s2rSpQtaVDEOGDOHll19m/PjxXH755THv5S2BZCcLB2aYmQP/6+6TgFbungPg7jlmdng4bVvg/ah5N4VlhZjZVcBVAEceeWQyY68yWrVqRXp6Ou+99x5169YlLS2NZs2aVXZYZXb44YfHn6icxeqOXA5cZmYmHTp0qOwwymTfvn0sWrSI7777jrZt29K3b9/KDqlKS3ayOMHds8OEMNPMPi5h2lh3ndlvfzpMOJMAMjIyasX+dosWLZg5cyabN2/m/vvv55577mHcuHFcc801lR2a1HJnnXVWZYdQJps3b+b000+nfv36PProo5x55pm68VUcSU0W7p4dPm81s5cJmpW2mFnrcK+iNbA1nHwTcETU7O2A7GTGV920bduWiRMncsstt5Cbm1vZ4YhUW82aNePPf/4zAwYMUJJIUNIOcJvZQWbWtOA1cCrwETAdGBVONgp4JXw9HRhpZg3MrCPQGZifrPiqs7Zt25Kenl7ZYYhUW02aNGHgwIFKFKWQzD2LVsDL4YdRF3jO3f9jZguAaWZ2ObABGAHg7svNbBqwAsgHRrv73iTGJyIiCUpasnD3z4CeMcq/BIYUM884YFyyYhIRkbLRFdwiIhKXkoWIiMSlZCEiInEllCzM7IREykREpGZKdM/izwmWiYhIDVTi2VBmdjzQD2hpZjdGjToYUCd/IiK1RLxTZ+sDTcLpmkaVbwfOT1ZQIiJStZSYLNz9LeAtM5vs7usrKCYREaliEr0or4GZTQI6RM/j7iclIygREalaEk0WfwceAx4H1AWHiEgtk2iyyHf3R5MaiYiIVFmJnjr7LzP7lZm1Du+h3cLMWiQ1MhERqTIS3bMo6FL85qgyBzqVbzgiIlIVJZQs3L1jsgMREZGqK6FkYWaXxip397+VbzgiIlIVJdoM1SfqdUOC+1EsApQsRERqgUSboa6LHjazZsDTSYlIRESqnLJ2Ub6T4B7ZcZlZipl9aGavhsMtzGymma0On5tHTTvGzNaY2SozO62MsYmISDlLtIvyf5nZ9PDxGrAKeCXBdfwXsDJq+FZgtrt3BmaHw5hZN2Ak0B0YCjxiZuqsUESkCkj0mMX4qNf5wHp33xRvJjNrB5xJcF/tgl5rhwGDwtdTgDnALWH5C+6+G1hrZmuATGBegjGKiEiSJLRnEXYo+DFBz7PNge8TXP4E4LfAvqiyVu6eEy43Bzg8LG8LbIyablNYVoiZXWVmWWaWlZubm2AYIiJyIBJthvopMB8YAfwU+MDMSuyi3MzOAra6+8IEY7EYZb5fgfskd89w94yWLVsmuGgRETkQiTZD3Q70cfetAGbWEpgFvFjCPCcAZ5vZGQSn2x5sZs8AW8ystbvnmFlrYGs4/SbgiKj52wHZiVdFBNydXbt2RYYbNmyIWaz/ISJSGomeDVWnIFGEvow3r7uPcfd27t6B4MD1G+5+MTCdH7oPGcUPB8qnAyPNrIGZdSQ422p+gvGJALBr1y4+/fTTyCM6cYhI2SW6Z/EfM/s/4Plw+ALg9TKu8z5gmpldDmwgaNrC3Zeb2TRgBcFB9NHuru7QRUSqgHj34P4xwQHpm83sXOBEgmML84BnE12Ju88hOOsJd/+S4ArwWNONIzhzSkQOkJrkpDzF27OYANwG4O4vAS8BmFlGOO4nSYxNRA5AQZNcgaOOOopGjRpVYkRSncU7ZtHB3ZcWLXT3LIJbrIqISC0QL1k0LGGc/qKIiNQS8ZLFAjO7smhheHA60esnRESkmot3zOIG4GUzu4gfkkMGUB84J4lxiYhIFVJisnD3LUA/MxsMpIbFr7n7G0mPTEREqoxE72fxJvBmkmMREZEqqqz3sxARkVpEyUJEROJSshARkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiSlqyMLOGZjbfzJaY2XIzuyssb2FmM81sdfjcPGqeMWa2xsxWmdlpyYpNRERKJ5l7FruBk9y9J5AODDWzvsCtwGx37wzMDocxs27ASKA7MBR4xMxSkhifiIgkKGnJwgM7wsF64cOBYcCUsHwKMDx8PQx4wd13u/taYA2Qmaz4REQkcUk9ZmFmKWa2GNgKzHT3D4BW7p4DED4fHk7eFtgYNfumsKzoMq8ysywzy8rNzU1m+CIiEkpqsnD3ve6eDrQDMs0stYTJLdYiYixzkrtnuHtGy5YtyylSkdrD3cnLy4s83Pf7monsJ6H7WRwod//azOYQHIvYYmat3T3HzFoT7HVAsCdxRNRs7YDsiohPpDbZtWsXn376aWT4qKOOolGjRpUYkVQHyTwbqqWZHRK+bgScDHwMTAdGhZONAl4JX08HRppZAzPrCHQG5icrPqn+ov8h69+xSHIlc8+iNTAlPKOpDjDN3V81s3nANDO7HNgAjABw9+VmNg1YAeQDo919bxLjk2ou+h+y/h2LJFfSkoW7LwWOjVH+JTCkmHnGAeOSFZOIiJSNruAWEZG4lCxERCQuJQsREYlLyUJEROJSshARkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiUrIQEZG4KuTmRyIHwt3ZtWtXZLhhw4aYxbqxoogki5KFVHm6s5tI5VMzlIiIxKVkISIicSXzHtxHmNmbZrbSzJab2X+F5S3MbKaZrQ6fm0fNM8bM1pjZKjM7LVmxiUhh0fcz1z3NJZZk7lnkA79x965AX2C0mXUDbgVmu3tnYHY4TDhuJNAdGAo8Et6/W0SSrOC4UMEj+oQCEUhisnD3HHdfFL7+FlgJtAWGAVPCyaYAw8PXw4AX3H23u68F1gCZyYpPREQSVyHHLMysA3As8AHQyt1zIEgowOHhZG2BjVGzbQrLii7rKjPLMrOs3NzcpMYtIiKBpCcLM2sC/AO4wd23lzRpjLL9Gk7dfZK7Z7h7RsuWLcsrTBERKUFSk4WZ1SNIFM+6+0th8RYzax2Obw1sDcs3AUdEzd4OyE5mfCIikphkng1lwBPASnf/U9So6cCo8PUo4JWo8pFm1sDMOgKdgfnJik9ERBKXzCu4TwAuAZaZ2eKw7DbgPmCamV0ObABGALj7cjObBqwgOJNqtLvvTWJ8IiKSoKQlC3efS+zjEABDiplnHDAuWTGJiEjZ6ApuERGJS8lCRETiUq+zIlIsdQ8vBZQspEqJ/nHSD1PlU/fwUkDNUFKlRPdRpP6JRKoOJQsREYlLyUJEROJSshARkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS919SKVQn0Mi1YuShVQK9TkkUr2oGUpEROJK5j24nzSzrWb2UVRZCzObaWarw+fmUePGmNkaM1tlZqclKy4RESm9ZO5ZTAaGFim7FZjt7p2B2eEwZtYNGAl0D+d5xMxSkhibiIiUQtKShbu/DXxVpHgYMCV8PQUYHlX+grvvdve1wBogM1mxiYhI6VT0MYtW7p4DED4fHpa3BTZGTbcpLNuPmV1lZllmlpWbm5vUYEUkNncnLy+PvLw83L2yw5EKUFUOcMc6ZzLmFujuk9w9w90zWrZsmeSwRCQW3aSq9qnoZLHFzFoDhM9bw/JNwBFR07UDsis4NhERKUZFJ4vpwKjw9SjglajykWbWwMw6Ap2B+RUcm4iIFCNpF+WZ2fPAIOAwM9sE3AncB0wzs8uBDcAIAHdfbmbTgBVAPjDa3fcmKzYRESmdpCULd7+wmFFDipl+HDAuWfGISHLt2bOHZcuWRYZ79OhBvXr1KjEiKU/q7kOSSj8gtceyZcu4+OKLady4MTt37uSZZ56hV69elR2WlBMlC0kq/YDULo0bN6Zp06aVHYYkgZKFJJ1+QESqv6pynYWIiFRhShYiIhKXkoWIiMSlZCEiInEpWYiISFw6G0rKTaxrKkSitwtdZ1N9KVlIuYl1TYVIwXYB6DqbakzJQsqVrqmQWBo3blzZIcgB0jELERGJS8lCRETiUrIQEZG4dMxCgOJ7h411Jot6kpUDpW2o+lGyEKD43mFjncminmTlQBW3DRV3+rUSS+VTspCI4s5kinUmi856kgMVaxsq7vRr/TmpfFUuWZjZUOAhIAV43N3vq+SQahTt/ktVFyuJ6M9J5atSycLMUoCHgVOATcACM5vu7isqN7Kq40CvhlUTktQUpTnOJgeuSiULIBNY4+6fAZjZC8AwQMkitGzZMs4991wAxo0bR9euXUs1/8qVK2MOr1y5kp07dwKwc+fOmOWlmTa6PFaZmRX6Eu/evbvQc3Fl5TFtrOGquL6qHFt0+YcffkjDhg0rfBtauXIlt99+Ow0aNGD37t2R70NBOZTtOwLoD1QM5u6VHUOEmZ0PDHX3K8LhS4Dj3P3aqGmuAq4KB1OBjyo80IpzGPBFZQeRRKpf9VaT61eT6wZwjLuXql2vqu1ZWIyyQtnM3ScBkwDMLMvdMyoisMqg+lVvql/1VZPrBkH9SjtPVbsobxNwRNRwOyC7kmIREZFQVUsWC4DOZtbRzOoDI4HplRyTiEitV6Waodw938yuBf6P4NTZJ919eQmzTKqYyCqN6le9qX7VV02uG5ShflXqALeIiFRNVa0ZSkREqiAlCxERiavaJAszO8LM3jSzlWa23Mz+KyxvYWYzzWx1+Ny8smMtLTNraGbzzWxJWLe7wvJqX7doZpZiZh+a2avhcI2pn5mtM7NlZra44LTEGla/Q8zsRTP7OPwOHl9T6mdmx4SfW8Fju5ndUIPq9+vwd+UjM3s+/L0pdd2qTbIA8oHfuHtXoC8w2sy6AbcCs929MzA7HK5udgMnuXtPIB0YamZ9qRl1i/ZfQPQl5DWtfoPdPT3q/PyaVL+HgP+4exegJ8HnWCPq5+6rws8tHegN7ARepgbUz8zaAtcDGe6eSnDi0EjKUjd3r5YP4BWCPqRWAa3DstbAqsqO7QDr1RhYBBxXk+pGcM3MbOAk4NWwrCbVbx1wWJGyGlE/4GBgLeEJMTWtfkXqdCrwbk2pH9AW2Ai0IDj79dWwjqWuW3Xas4gwsw7AscAHQCt3zwEInw+vxNDKLGyiWQxsBWa6e42pW2gC8FtgX1RZTaqfAzPMbGHYJQ3UnPp1AnKBp8JmxMfN7CBqTv2ijQSeD19X+/q5+2ZgPLAByAG+cfcZlKFu1S5ZmFkT4B/ADe6+vbLjKS/uvteD3eB2QKaZpVZySOXGzM4Ctrr7wsqOJYlOcPdewOkETaQDKjugclQX6AU86u7HAt9RDZtk4gkvBD4b+Htlx1JewmMRw4COQBvgIDO7uCzLqlbJwszqESSKZ939pbB4i5m1Dse3JvhnXm25+9fAHGAoNaduJwBnm9k64AXgJDN7hppTP9w9O3zeStDenUnNqd8mYFO4twvwIkHyqCn1K3A6sMjdt4TDNaF+JwNr3T3X3fcALwH9KEPdqk2yMDMDngBWuvufokZNB0aFr0cRHMuoVsyspZkdEr5uRPABf0wNqBuAu49x93bu3oFgN/8Nd7+YGlI/MzvIzJoWvCZoE/6IGlI/d/8c2Ghmx4RFQwhuG1Aj6hflQn5ogoKaUb8NQF8zaxz+hg4hODmh1HWrNldwm9mJwDvAMn5o976N4LjFNOBIgjdmhLt/VSlBlpGZpQFTCM5UqANMc/e7zexQqnndijKzQcBN7n5WTamfmXUi2JuAoMnmOXcfV1PqB2Bm6cDjQH3gM+DnhNsqNaN+jQkOBHdy92/Cshrx+YWn4l9AcEbph8AVQBNKWbdqkyxERKTyVJtmKBERqTxKFiIiEpeShYiIxKVkISIicSlZiIhIXEoWIiISl5KFiIjE9f8tR9lGeaaFLAAAAABJRU5ErkJggg==\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"from numpy import random\n",
"import matplotlib.pyplot as plt\n",
"import seaborn as sns\n",
"\n",
"# sample from a binomial distribution\n",
"data = random.binomial(n=100, p=.5, size=10000)\n",
"\n",
"# plot distribution and color critical region\n",
"ax = sns.histplot(data, bins=20,binwidth=.5, color=\"black\")\n",
"ax.set_title(\"Critical regions for a two-sided test\")\n",
"ax.annotate(\"\", xy=(40, 500), xytext=(30, 500), arrowprops=dict(arrowstyle=\"<-\"))\n",
"ax.annotate(\"lower critical region \\n (2.5% of the distribution)\", xy=(40, 600), xytext=(22, 580))\n",
"ax.annotate(\"\", xy=(70, 500), xytext=(60, 500), arrowprops=dict(arrowstyle=\"->\"))\n",
"ax.annotate(\"upper critical region \\n (2.5% of the distribution)\", xy=(70, 500), xytext=(55, 580))\n",
"ax.set(xlim=(20,80))\n",
"for p in ax.patches:\n",
" if p.get_x() >= 40:\n",
" if p.get_x() <= 60:\n",
" p.set_color(\"lightgrey\")\n",
"\n",
"\n",
" \n",
"glue(\"espcritical-fig\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "directed-assembly",
"metadata": {},
"source": [
"```{glue:figure} espcritcal-fig\n",
":figwidth: 600px\n",
":name: fig-esp-critical\n",
"\n",
"The critical region associated with the hypothesis test for the ESP study, for a hypothesis test with a significance level of $\\alpha = .05$. The plot itself shows the sampling distribution of $X$ under the null hypothesis: the grey bars correspond to those values of $X$ for which we would retain the null hypothesis. The black bars show the critical region: those values of $X$ for which we would reject the null. Because the alternative hypothesis is two sided (i.e., allows both $\\theta <.5$ and $\\theta >.5$), the critical region covers both tails of the distribution. To ensure an $\\alpha$ level of $.05$, we need to ensure that each of the two regions encompasses 2.5% of the sampling distribution.\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "daily-coast",
"metadata": {},
"source": [
"As it turns out, those three things uniquely solve the problem: our critical region consists of the most *extreme values*, known as the **_tails_** of the distribution. This is illustrated in {numref}`fig-esp-critical`. As it turns out, if we want $\\alpha = .05$, then our critical regions correspond to $X \\leq 40$ and $X \\geq 60$.[^note6] That is, if the number of people saying \"true\" is between 41 and 59, then we should retain the null hypothesis. If the number is between 0 to 40 or between 60 to 100, then we should reject the null hypothesis. The numbers 40 and 60 are often referred to as the **_critical values_**, since they define the edges of the critical region.\n",
"\n",
"\n",
"At this point, our hypothesis test is essentially complete: (1) we choose an $\\alpha$ level (e.g., $\\alpha = .05$, (2) come up with some test statistic (e.g., $X$) that does a good job (in some meaningful sense) of comparing $H_0$ to $H_1$, (3) figure out the sampling distribution of the test statistic on the assumption that the null hypothesis is true (in this case, binomial) and then (4) calculate the critical region that produces an appropriate $\\alpha$ level (0-40 and 60-100). All that we have to do now is calculate the value of the test statistic for the real data (e.g., $X = 62$) and then compare it to the critical values to make our decision. Since 62 is greater than the critical value of 60, we would reject the null hypothesis. Or, to phrase it slightly differently, we say that the test has produced a **_significant_** result. \n",
"\n",
"[^note6]: Strictly speaking, the test I just constructed has $\\alpha = .057$, which is a bit too generous. However, if I'd chosen 39 and 61 to be the boundaries for the critical region, then the critical region only covers 3.5\\% of the distribution. I figured that it makes more sense to use 40 and 60 as my critical values, and be willing to tolerate a 5.7\\% type I error rate, since that's as close as I can get to a value of $\\alpha = .05$."
]
},
{
"cell_type": "markdown",
"id": "fifty-toilet",
"metadata": {},
"source": [
"### A note on statistical \"significance\"\n",
"\n",
">*Like other occult techniques of divination, the statistical method has a private jargon deliberately contrived to obscure its methods from non-practitioners.*\n",
">\n",
">-- Attributed to G. O. Ashley[^note7]\n",
"\n",
"A very brief digression is in order at this point, regarding the word \"significant\". The concept of statistical significance is actually a very simple one, but has a very unfortunate name. If the data allow us to reject the null hypothesis, we say that \"the result is *statistically significant*\", which is often shortened to \"the result is significant\". This terminology is rather old, and dates back to a time when \"significant\" just meant something like \"indicated\", rather than its modern meaning, which is much closer to \"important\". As a result, a lot of modern readers get very confused when they start learning statistics, because they think that a \"significant result\" must be an important one. It doesn't mean that at all. All that \"statistically significant\" means is that the data allowed us to reject a null hypothesis. Whether or not the result is actually important in the real world is a very different question, and depends on all sorts of other things. \n",
"\n",
"[^note7]:(The internet seems fairly convinced that Ashley said this, though I can't for the life of me find anyone willing to give a source for the claim.)"
]
},
{
"cell_type": "markdown",
"id": "activated-hammer",
"metadata": {},
"source": [
"(one-two-sided)=\n",
"### The difference between one sided and two sided tests\n",
"\n",
"\n",
"There's one more thing I want to point out about the hypothesis test that I've just constructed. If we take a moment to think about the statistical hypotheses I've been using, \n",
"\n",
"$$\n",
"\\begin{array}{cc}\n",
"H_0 : & \\theta = .5 \\\\\n",
"H_1 : & \\theta \\neq .5 \n",
"\\end{array}\n",
"$$\n",
"\n",
"we notice that the alternative hypothesis covers *both* the possibility that $\\theta < .5$ and the possibility that $\\theta > .5$. This makes sense if I really think that ESP could produce better-than-chance performance *or* worse-than-chance performance (and there are some people who think that). In statistical language, this is an example of a **_two-sided test_**. It's called this because the alternative hypothesis covers the area on both \"sides\" of the null hypothesis, and as a consequence the critical region of the test covers both tails of the sampling distribution (2.5\\% on either side if $\\alpha =.05$), as illustrated earlier in {numref}`fig-esp-critical`. \n",
"\n",
"However, that's not the only possibility. It might be the case, for example, that I'm only willing to believe in ESP if it produces better than chance performance. If so, then my alternative hypothesis would only cover the possibility that $\\theta > .5$, and as a consequence the null hypothesis now becomes $\\theta \\leq .5$:\n",
"\n",
"$$\n",
"\\begin{array}{cc}\n",
"H_0 : & \\theta \\leq .5 \\\\\n",
"H_1 : & \\theta > .5 \n",
"\\end{array}\n",
"$$\n",
"\n",
"When this happens, we have what's called a **_one-sided test_**, and when this happens the critical region only covers one tail of the sampling distribution. This is illustrated in {numref}`fig-esp-critical-onesided`.\n",
"\n"
]
},
{
"cell_type": "code",
"execution_count": 10,
"id": "binary-shoot",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "espcritical-onesided-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEICAYAAACuxNj9AAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAArsklEQVR4nO3deXwV9b3/8deHyL6JCjQIslwBZY0QAmIrIFfEjaUFxbpga0VbW69drOKvVfRKL1Xr1rpRF1C4ClqtXLUti41WRCBAXFAQVBQaBESRHQn5/P6YyfEkJDknMZPl5P18PPI4Z77znZnPd5Kcz5nvzHzH3B0REZGy1KvuAEREpOZTshARkYSULEREJCElCxERSUjJQkREElKyEBGRhJQs6igzu8HMHi5j/oVmNr8StuNmdvw3XU+S29ptZl0iWG93M1tlZrvM7OrKXn9NZ2bHhfs2rZT5U8xsVgXXXeFlpWopWaQIM/u+meWE/9SbzexvZvbt0uq7++/c/Ufhsp3CD/Uj4ubPdvcRVRF7ZXH3Zu7+YQSr/jWQ7e7N3f3eCNZfo7n7J+G+PVSV2zWzoWa2qZLWlW1mP6qMddVVShYpwMx+AdwN/A5oCxwH3A+MLqX+ESWVVycL1NS/x47A6oosWBP3tUiFuLt+avEP0BLYDYwvo84U4BlgFrAT+FFYNiuc/wng4Xp2AycDlwKvxa2jJ7AA+BzYAtwQlmcBS4AdwGbgT0CDuOUcOL6UuLKBqcBiYB9wPHBC3HbWAufF1T8a+L+wDcuBW4vFGNtWuF8eB7YBHwO/AeqF8y4FXgPuAL4APgLOLCXGl4FDwP5w33RLYt2LgbvCNtxawjrL3Gcl1B9FkKx2hPvsxLh5G4BfAW8BXwJzgEZx888BcsNlXwf6lLGdLCAn3L9bgDvD8k7hvj0inO4MvALsCn9XfyL8WwrnDwq3tQN4ExgaN6/MZePqNQ3/Jgr4+u+yHcEX3OuBD4DtwFzgqHCZRgR/49vDbS8n+PI0tdjv8E/V/X9bG3+qPQD9fMNfIIwE8gv/kUupMwU4CIwJ/9kaUzRZFPkwCMsuJfwgBpqHH2q/DP8hmwMDw3n9ww+HI8L1vAdcE7eeRMniE4JEdATBh/BG4AfhdD/gM6BnWP+p8KcJ0COsW1qyeBx4Poy1E/A+cFlc2w4ClwNpwI+BPMDKiPNHcdOJ1p0P/CxsQ+MS1lfmPitWtxuwBzgdqE/QJbaeMLkQJItlBB+kR4XrujKc1w/YCgwM2zkxrN+wlG0tAS4O3zcDBpX09xHWuxNoCJxK8MFf+Ld0LMGH9VkEf2unh9OtEy1bQjxDgU3Fyq4B3gDah+t4CHgynHcFwZeJJmF7+wMtSvod6qf8PzX1sF+SdzTwmbvnJ6i3xN3/6u4F7r6vnNs4B/jU3f/g7vvdfZe7LwVw9xXu/oa757v7BoJ/3iHlWPcMd18dxj8S2ODuj4XrWwn8BRgXnlz9HnCTu+9193eBmSWtMKx7PjA5jHUD8Afg4rhqH7v7nz3oh58JpBN8Cy1TkuvOc/c/hm04bF+Xc5+dD7zo7gvc/SDB0VBjYHBcnXvdPc/dPyf4sMwIyy8HHnL3pe5+yN1nAgcIElVJDgLHm9kx7r7b3d8oof3HAQOA37r7AXd/NdxmoYuAl9z9pfBvbQHB0cpZSSybjCuA/+fum9z9AMGXnnFhd99Bgv+H48P2rnD3neVcv5RCyaL22w4ck0Tf+MZvsI0OBIf9hzGzbmb2gpl9amY7Cc6bHFOOdcfH1REYaGY7Cn+AC4FvAa0JvolvLGXZeMcADQi6iAp9TPCtt9CnhW/cfW/4tlkS8Saz7jL3dTn3Wbv4bbl7Qbj+EtsC7OXrdnQEfllsf3YA2oVXu+0Of/4W1r+M4EhmjZktN7NzSonnC3ffE1cWvy86AuOLbfPbBMk40bLJ6Ag8F7fu9wi6mNoCTwD/AJ4yszwzu83M6pdz/VIKJYvabwlBX+yYBPXKGl440dDDG4H/KGXeA8AaoKu7twBuACzB+krb9kbgFXc/Mu6nmbv/mOD8QD5B90OhDqWs8zOCb5kd48qOA/5djrhKk8y6E+3P8uyzvPhtmZkRtDuZtmwEphbbn03c/UkPrnZrFv6cCeDu69z9AqAN8HvgGTNrWmydm4FWxcqPK7bNJ4pts6m7T0ti2eJK2o8bCc4vxa+/kbv/290PuvvN7t6D4MjrHOCSMtYl5aBkUcu5+5fAjcB9ZjbGzJqYWX0zO9PMbktyNdsITiSWdo/CC8C3zOwaM2toZs3NbGA4rznBCdHdZnYCQf9/Rb0AdDOzi8M21DezAWZ2Ythd9CwwJWzjCXz9QVBEWHcuMDWMtSPwC4KTn99IJa27PPtsLnC2mQ0PvyX/kqAr6fUktvNn4EozGxhebdbUzM42s+YlVTazi8ysdXj0siMsLnK5rLt/TNCtdLOZNQgvzz43rsos4FwzO8PM0sysUXgJbPskli1uC3C0mbWMK3uQYN93DGNubWajw/fDzKx32FW4kyCpH4pbV6Xfg1OXKFmkAHe/k+AD6zcEH/wbgZ8Cf01y+b2EVyWFh/eDis3fRXCi8lyCLo91wLBw9q+A7xOcqPwzwdU4FW3HLmAEMIHgG/WnBN9wG4ZVfkpwEvxTgi6HJwk+OEvyM4ITwx8SXPn0v8CjFY2tkted9D5z97UE5wH+SHBUcy5wrrt/lWgj7p5DcN7iTwRXfa0nOAFfmpHAajPbDdwDTHD3/SXU+z7BSfPPgZsITvgXbnMjwSXbN/D13+K1fP1ZU+qyJcS/huB3/GH4d9kujGseMN/MdhGc7C784vItgqv+dhJ0T73C10n8HoJzG1+YWZ27V6YymLuOzqR2MrPfA99y94nVHYtIqtORhdQaZnaCmfUJu1SyCE7IPlfdcYnUBbq7VGqT5gTdEu0I7h/4A8H9DiISMXVDiYhIQuqGEhGRhGp1N9QxxxzjnTp1qu4wRERqlRUrVnzm7q3Ls0ykycLMfk4waJ0DbxOM+dOE4FLBTgTj1Jzn7l+E9ScTnLQ8BFzt7v8oa/2dOnUiJycnqvBFRFKSmZX3zvnouqHM7FjgaiDT3XsRDOw1gWDEyEXu3hVYFE5jZj3C+T0Jrve+30p52IqIiFStqM9ZHAE0DsctakJwo9Vovh4AbiZfD1MxGngqHGDsI4IbiLIijk9ERJIQWbJw938TjJD5CcGYMF+6+3ygrbtvDutsJhiHBoKB0eIHYNtE0cHSADCzSRY8ES5n27ZtUYUvIiJxouyGakVwtNCZ4Lr4pmZ2UVmLlFB22HW97j7d3TPdPbN163KdnxERkQqKshvqP4GP3H1bOA7/swQjQW4xs3SA8HVrWH8TRUcRbU/QbSUiItUsymTxCTAoHCHUgOEEg3vNI3hiF+Fr4R2484AJ4aimnYGuBE8AExGRahbZpbPuvtTMngFWEjyHYBUwneDBLHPN7DKChDI+rL/azOYC74b1rwqHgxYRkWpWq4f7yMzMdN1nISJSPma2wt0zy7NMrb6DW6QqFRQUsH9/8HiHRo0aUa+eRsuRukN/7SJJ2r9/Px9++CEffvhhLGmI1BU6shCpZvFHLKCjFqmZlCxEvoHK+KAvPGIp1KVLF5o0aVJpMYpUBiULkW9AH/RSV+hYV0REElKyEBGRhNQNJRIBnbSWVKNkIRIBncuQVKOvOiIikpCOLESqiLqmpDZTshCpIuqaktpMX2tERCQhJQsREUlI3VAixejcgsjhlCxEitG5BZHD6euSiIgkpGQhIiIJRZYszKy7meXG/ew0s2vM7CgzW2Bm68LXVnHLTDaz9Wa21szOiCo2EREpn8iShbuvdfcMd88A+gN7geeA64FF7t4VWBROY2Y9gAlAT2AkcL+ZpUUVn4iIJK+quqGGAx+4+8fAaGBmWD4TGBO+Hw085e4H3P0jYD2QVUXxiYhIGaoqWUwAngzft3X3zQDha5uw/FhgY9wym8KyIsxskpnlmFnOtm3bIgxZREQKRZ4szKwBMAp4OlHVEsr8sAL36e6e6e6ZrVu3rowQRUQkgao4sjgTWOnuW8LpLWaWDhC+bg3LNwEd4pZrD+RVQXwiIpJAVSSLC/i6CwpgHjAxfD8ReD6ufIKZNTSzzkBXYFkVxCciIglEege3mTUBTgeuiCueBsw1s8uAT4DxAO6+2szmAu8C+cBV7n4oyvhERCQ5kSYLd98LHF2sbDvB1VEl1Z8KTI0yJhERKT/dwS0iIgkpWYiISEJKFiIikpCGKBepgfRMDalplCxEaiA9U0NqGn1VERGRhJQsREQkISULEalSeXl5jBs3DoDc3Fxeeuml2Lx58+Yxbdq0Cq23U6dOfPbZZ5USY7wHH3yQxx9/vNLXW9vonIWIVIi74+7lOvGen59Pu3bteOaZZ4AgWeTk5HDWWWcBMGrUKEaNGhVJvACHDh0iLa18j8m58sorI4qmdtGRhUiK2LBhA7169YpN33HHHUyZMgWAoUOHcs011zB48GB69erFsmXBsGtTpkzh4osv5rTTTqNr1678+c9/ji1/++23M2DAAPr06cNNN90U28aJJ57IT37yE/r168fGjfFPFYDly5czePBg+vbtS1ZWFrt27WLGjBmMHz+ec889lxEjRsTi/Oqrr7jxxhuZM2cOGRkZzJkzhxkzZvDTn/4UgC1btjB27Fj69u1L3759ef311wEYM2YM/fv3p2fPnkyfPj3hfmnWrBk33ngjAwcOZMmSJcyaNYusrCwyMjK44oorOHQoGFXokUceoVu3bgwdOpTLL788FseUKVO44447gCC5DRo0iD59+jB27Fi++OKL2P697rrryMrKolu3bvzrX/8q3y+vFlCyEKkj9uzZw+uvv87999/PD3/4w1j5W2+9xYsvvsiSJUu45ZZbyMvLY/78+axbt45ly5aRm5vLihUrePXVVwFYu3Ytl1xyCatWraJjx46x9Xz11Vecf/753HPPPbz55pssXLiQxo0bA7BkyRJmzpzJyy+/HKvfoEEDbrnlFs4//3xyc3M5//zzi8R79dVXM2TIEN58801WrlxJz549AXj00UdZsWIFOTk53HvvvWzfvj1hu3v16sXSpUs5+uijmTNnDosXLyY3N5e0tDRmz55NXl4e//3f/80bb7zBggULWLNmTYnruuSSS/j973/PW2+9Re/evbn55ptj8/Lz81m2bBl33313kfJUoW4okTriggsuAODUU09l586d7NixA4DRo0fTuHFjGjduzLBhw1i2bBmvvfYa8+fP56STTgJg9+7drFu3juOOO46OHTsyaNCgw9a/du1a0tPTGTBgAAAtWrSIzTv99NM56qijyhXvyy+/HDtXkJaWRsuWLQG49957ee655wDYuHEj69at4+ijjy51PWlpaXzve98DYNGiRaxYsSIW4759+2jTpg3Lli1jyJAhsRjHjx/P+++/X2Q9X375JTt27GDIkCEATJw4kfHjx8fmf/e73wWgf//+bNiwoVxtrQ2ULERSxBFHHEFBQUFsOv6mPgAzK3G6pHJ3Z/LkyVxxxRVF5m3YsIGmTZuWuH13P2xdhUpbpryys7NZuHAhS5YsoUmTJgwdOvSwdhbXqFGj2HkKd2fixIn8z//8T5E6hcnnm2jYsCEQJKf8/PxvvL6aRt1QIimibdu2bN26le3bt3PgwAFeeOGFIvPnzJkDwGuvvUbLli1j39Sff/559u/fz/bt28nOzmbAgAGcccYZPProo+zevRuAf//732zdupWynHDCCeTl5bF8+XIAdu3alfBDs3nz5uzatavEecOHD+eBBx4AghPTO3fu5Msvv6RVq1Y0adKENWvW8MYbbyTYK4ev85lnnom15fPPP+fjjz8mKyuLV155hS+++IL8/Hz+8pe/HLZsy5YtadWqVex8xBNPPBE7yqgLdGQhkiLq168fO5HbuXNnTjjhhCLzW7VqxeDBg9m5cyePPvporDwrK4uzzz6bTz75hN/+9re0a9eOdu3a8d5773HyyScDwUniWbNmlXklUYMGDZgzZw4/+9nP2LdvH40bN2bhwoVlxjxs2DCmTZtGRkYGkydPLjLvnnvuYdKkSTzyyCOkpaXxwAMPMHLkSB588EH69OlD9+7dS+wOK0uPHj249dZbGTFiBAUFBdSvX5/77ruPQYMGccMNNzBw4EDatWtHjx49Ysk03syZM7nyyivZu3cvXbp04bHHHivX9mszcz/sMde1RmZmpufk5FR3GJJi9u7dW+JQG/HlJZUlKge+cd2KGjp0KHfccQeZmZlFyqdMmUKzZs341a9+VeF1p4rdu3fTrFkz8vPzGTt2LD/84Q8ZO3ZsdYcVCTNb4e6ZiWt+Td1QIiIEiTMjI4NevXrRuXNnxowZU90h1ShRP1b1SOBhoBfgwA+BtcAcoBOwATjP3b8I608GLgMOAVe7+z+ijE+krsjOzi6xvPA+DCF2L4WULOoji3uAv7v7CUBf4D3gemCRu3cFFoXTmFkPYALQExgJ3G9m5bvVUkREIhFZsjCzFsCpwCMA7v6Vu+8ARgMzw2ozgTHh+9HAU+5+wN0/AtYDWVHFJ5Lq3J3TTjuNnTt3AsHYSb179yYjI6PIuYvrrruOPn36cMkll8TKnnjiCe65555yb/Paa6+lZ8+eXHvttUXKs7OzY3dgA1x66aWxIT++qfi7vhON41Q8juLix6aqSIy/+93vikwPHjy4XMvHmzBhAuvWravw8pUtyiOLLsA24DEzW2VmD5tZU6Ctu28GCF/bhPWPBeLHDtgUlhVhZpPMLMfMcrZt2xZh+CK120svvUTfvn2L3Bz3z3/+MzYeEwQ3mr3++uu89dZbHDp0iLfffpt9+/YxY8YMfvKTn5R7mw899BArV67k9ttvL1Ke6EO6slx55ZVFkl5xZcWRn5/PqFGjuP766yu8/eLJ4pu0+cc//jG33XZbhZevbFEmiyOAfsAD7n4SsIewy6kUJd3Nc9ilWu4+3d0z3T2zdevWlROpSAqaPXs2o0ePLrNOvXr1+Oqrr3B39u3bR/369bn99tu5+uqrqV+/fonLuDvXXnstvXr1onfv3rH7N0aNGsWePXsYOHBgrAyCG/kefPBB7rrrLjIyMmL3Kbz66qsMHjyYLl26FPkGX9KYVMU99thjdOvWjSFDhrB48eJYefw4Tvfeey89evSgT58+TJgwocQ4Lr30Un7xi18wbNgwrrvuuiJHKQALFy7kO9/5Dt26dYvdt1K8zjnnnEN2djbXX389+/btIyMjgwsvvBAILjkua59lZ2czdOhQxo0bxwknnMCFF15I4RWq3/nOd1i4cGGNucEvyhPcm4BN7r40nH6GIFlsMbN0d99sZunA1rj6HeKWbw/kRRifSEpbvHgxDz30UGzazBgxYgRmxhVXXMGkSZNo3rw53/ve9zjppJMYPnw4LVu2ZPny5dx4442lrvfZZ58lNzeXN998k88++4wBAwZw6qmnMm/ePJo1a0Zubm6R+p06deLKK68sconuI488wubNm3nttddYs2YNo0aNYty4cUXGpHJ3Ro0axauvvsqpp54aW9/mzZu56aabWLFiBS1btmTYsGGxYUniTZs2jY8++oiGDRuyY8cOjjzyyBLjeP/991m4cCFpaWnMmDGjyDo2bNjAK6+8wgcffMCwYcNYv359qftl2rRp/OlPfzqs/WXtM4BVq1axevVq2rVrxymnnMLixYv59re/Tb169Tj++ON588036d+/f6nbrSqRHVm4+6fARjPrHhYNB94F5gETw7KJwPPh+3nABDNraGadga7AsqjiE0l1n3/+Oc2bN49NL168mJUrV/K3v/2N++67LzYw4K9//Wtyc3P5wx/+wG9/+1tuueUWHn74Yc477zxuvfXWw9b72muvccEFF5CWlkbbtm0ZMmRI7K7t8hgzZgz16tWjR48ebNmyBYD58+fHxqTq168fa9asOazffunSpQwdOpTWrVvToEGDwwYgLNSnTx8uvPBCZs2axRFHlP69ePz48aXebHjeeedRr149unbtSpcuXUodYDCRsvZZVlYW7du3p169emRkZBQZV6pNmzbk5dWM78xRXw31M2C2mb0FZAC/A6YBp5vZOuD0cBp3Xw3MJUgofweucvdDEccnkrKKjxXVrl07IPgAGjt2bGyY8kKrVq0CoFu3bjz++OPMnTuXd95557AP68q6kbdwLKX4dRaOSZWbm0tubi7r16/nsssuO2zZ0sagivfiiy9y1VVXsWLFCvr3719qd05Z41aVNG5WojG4SlLWPovfD8XHldq/f39s5N7qFmmycPfc8PxCH3cf4+5fuPt2dx/u7l3D18/j6k919/9w9+7u/rcoYxNJdd27d4/dBb5nz57YGEx79uxh/vz5RZ59AcSOKg4ePBh7xkO9evXYu3dvkXqnnnoqc+bM4dChQ2zbto1XX32VrKyyL1wsawyoeMmMSTVw4ECys7PZvn07Bw8e5Omnnz5sPQUFBWzcuJFhw4Zx2223sWPHDnbv3p10HIWefvppCgoK+OCDD/jwww/p3r07nTp1Ijc3N7aN+KRbv359Dh48eNh6KrLPAN5///3Y0OzVTWNDidQiBQUFRb7JNmrUqNQn1Z199tlkZ2dz/PHHxx4kBMFVP9///vcZOXJkrO5f//pXBgwYEDv6OPnkk+nduzd9+vShb9++RdY7duxYlixZQt++fTEzbrvtNr71rW+VGfe5557LuHHjeP755/njH/9Yar0RI0aUOCZVmzZtYnXS09OZMmUKJ598Munp6fTr1y+W3AodOnSIiy66iC+//BJ35+c//zlHHnlk0nEU6t69O0OGDGHLli08+OCDNGrUiFNOOYXOnTvTu3dvevXqRb9+/WL1J02aRJ8+fejXrx+zZ89OuM/K6tbasmULjRs3Jj09PWGcVUFjQ4kUU5PHhipteyXZvHkzl1xyCQsWLKjQfpDqddddd9GiRYsSu+G+KY0NJSIx6enpXH755bGb8qR2OfLII5k4cWLiilVE3VAiKey8886r7hCkgn7wgx9UdwhF6MhCREQSUrIQEZGElCxERCQhJQsREUlIyUJERBJSshARkYR06azUWeW5G1qkrlOykDpr//79Sd8NLVLX6WuUiIgkpGQhIiIJKVmIiEhCShYiIpKQkoWIiCSkZCEiIglFmizMbIOZvW1muWaWE5YdZWYLzGxd+Noqrv5kM1tvZmvN7IwoYxORumv//v2sXr26usOoVariyGKYu2fEPZXpemCRu3cFFoXTmFkPYALQExgJ3G9maVUQn4jUMVu2bOGss87izDPP5I033qjucGqF6rgpbzQwNHw/E8gGrgvLn3L3A8BHZrYeyAKWVEOMIrVK/N3oVXkn+uuvv85nn31WJduqbHfeeSeLFi1i1KhRdOjQgZtvvplzzjmnusOqsaJOFg7MNzMHHnL36UBbd98M4O6bzazwSezHAvEpflNYVoSZTQImARx33HFRxi5Sa8TfjV6Vd6LPnj2bjRs3Vsm2ovDVV1/RokULVq1axaxZs5QsyhB1sjjF3fPChLDAzNaUUddKKPPDCoKEMx0gMzPzsPkiUnXuu+++6g6hQg4cOMCtt97K/fffz9ixY5k/fz5dunSp7rBqtEiThbvnha9bzew5gm6lLWaWHh5VpANbw+qbgA5xi7cH8qKMT0Tqpk8//ZTdu3ezfPlyJYkkRdaxaWZNzax54XtgBPAOMA+YGFabCDwfvp8HTDCzhmbWGegKLIsqPhGpuzp27Mhdd92lRFEOUR5ZtAWeM7PC7fyvu//dzJYDc83sMuATYDyAu682s7nAu0A+cJW7H4owPhERSVJkycLdPwT6llC+HRheyjJTgalRxSR1V0nPrhCR5Ol5FlInlPTsChFJnob7EBGRhJQsREQkISULERFJSMlCREQSUrIQEZGElCxERCShpJKFmZ2STJmIiKSmZI8s/phkmYiIpKAyb8ozs5OBwUBrM/tF3KwWgB5MJCJSRyS6g7sB0Cys1zyufCcwLqqgRESkZikzWbj7K8ArZjbD3T+uophEpBKUNB5WVT1BT1JPsmNDNTSz6UCn+GXc/bQoghKRb66k8bCq6gl6knqSTRZPAw8CDwMaNlxEpI5JNlnku/sDkUYiIiI1VrIdmP9nZj8xs3QzO6rwJ9LIRESkxkj2yKLwMajXxpU5oIcCiIjUAUklC3fvHHUgIiJScyWVLMzskpLK3f3xJJZNA3KAf7v7OWH31RyCK6s2AOe5+xdh3cnAZQQn0a92938kE5+IiEQr2XMWA+J+vgNMAUYluex/Ae/FTV8PLHL3rsCicBoz6wFMAHoCI4H7w0QjIiLVLNluqJ/FT5tZS+CJRMuZWXvgbGAqUDhcyGhgaPh+JpANXBeWP+XuB4CPzGw9kAUsSSZGERGJTkVv59wLdE2i3t3Ar4GCuLK27r4ZIHxtE5YfC2yMq7cpLCvCzCaZWY6Z5Wzbtq0CoYuISHkle87i/wiufoJgAMETgbkJljkH2OruK8xsaDKbKaHMDytwnw5MB8jMzDxsvoiIVL5kL529I+59PvCxu29KsMwpwCgzOwtoBLQws1nAFjNLd/fNZpYObA3rbwI6xC3fHshLMj4REYlQUt1Q4YCCawhGnm0FfJXEMpPdvb27dyI4cf2yu18EzOPr+zYmAs+H7+cBE8ysoZl1JujmWlaOtoiISESSfVLeeQQf3OOB84ClZlbRIcqnAaeb2Trg9HAad19N0LX1LvB34Cp31zhUIiI1QLLdUP8PGODuWwHMrDWwEHgmmYXdPZvgqifcfTswvJR6UwmunBKpEA3LLRKNZJNFvcJEEdpOxa+kEomMhuUWiUayyeLvZvYP4Mlw+nzgpWhCEhGRmibRM7iPJ7gv4loz+y7wbYJLXJcAs6sgPhERqQESdSXdDewCcPdn3f0X7v5zgqOKu6MNTUREaopEyaKTu79VvNDdcwgGAhQRkTogUbJoVMa8xpUZiIiI1FyJksVyM7u8eKGZXQasiCYkERGpaRJdDXUN8JyZXcjXySETaACMjTAuERGpQcpMFu6+BRhsZsOAXmHxi+7+cuSRiYhIjZHs8yz+Cfwz4lhERKSG0l3YIiKSkJKFiIgkpGQhIiIJKVmIiEhCShYiIpKQkoWIiCSkZCEiIglFlizMrJGZLTOzN81stZndHJYfZWYLzGxd+NoqbpnJZrbezNaa2RlRxSYiIuUT5ZHFAeA0d+8LZAAjzWwQcD2wyN27AovCacysBzAB6AmMBO43s7QI4xOpkwoKCti7d2/sp6CgoLpDklogsmThgd3hZP3wx4HRwMywfCYwJnw/GnjK3Q+4+0fAeiArqvhE6qrCR88W/sQ/s1ykNJGeszCzNDPLBbYCC9x9KcGT9zYDhK9twurHAhvjFt8UlomISDWLNFm4+yF3zwDaA1lm1quM6lbSKg6rZDbJzHLMLGfbtm2VFKmIiJSlSq6GcvcdQDbBuYgtZpYOEL5uDattAjrELdYeyCthXdPdPdPdM1u3bh1l2CIiEoryaqjWZnZk+L4x8J/AGmAeMDGsNhF4Pnw/D5hgZg3NrDPQFVgWVXxS+8WfqNVJWpFoJTVEeQWlAzPDK5rqAXPd/QUzWwLMDZ+29wkwHsDdV5vZXOBdIB+4yt0PRRif1HKFJ2oBunTpQpMmTao5IpHUFVmycPe3gJNKKN8ODC9lmanA1KhiEhGRitEd3CIikpCShYiIJKRkISIiCSlZiIhIQkoWIiKSkJKFiIgkpGQhIiIJKVmIiEhCShYiIpKQkoWIiCSkZCEiIgkpWYiISEJKFiIikpCShYiIJKRkISIiCUX58CORSlFQUMD+/ftj040aNaJePX3PEalKShZS48U/EQ/0VLwoKCFLIkoWIqKELAlF9tXBzDqY2T/N7D0zW21m/xWWH2VmC8xsXfjaKm6ZyWa23szWmtkZUcUmIiLlE+VxZj7wS3c/ERgEXGVmPYDrgUXu3hVYFE4TzpsA9ARGAvebWVqE8YmISJIiSxbuvtndV4bvdwHvAccCo4GZYbWZwJjw/WjgKXc/4O4fAeuBrKjiExGR5FXJGSwz6wScBCwF2rr7ZggSCtAmrHYssDFusU1hWfF1TTKzHDPL2bZtW6Rxi4hIIPJkYWbNgL8A17j7zrKqllDmhxW4T3f3THfPbN26dWWFKSIiZYg0WZhZfYJEMdvdnw2Lt5hZejg/Hdgalm8COsQt3h7IizI+ERFJTpRXQxnwCPCeu98ZN2seMDF8PxF4Pq58gpk1NLPOQFdgWVTxiYhI8qK8z+IU4GLgbTPLDctuAKYBc83sMuATYDyAu682s7nAuwRXUl3l7ocijE9ERJIUWbJw99co+TwEwPBSlpkKTI0qJhERqRjdzy8iIgkpWYiISEJKFiIikpAGEpQaJX70U418KlJzKFlIjRI/+qlGPq1+Bw4cYOXKlbHpfv360bBhw2qMSKqLkoWIlGrlypVceumlNG3alD179jBjxgxOPvnk6g5LqoGShYiUqWnTprRs2bK6w5Bqpg5hERFJSMlCREQSUrIQEZGElCxERCQhJQsREUlIyUJERBJSshARkYSULEREJCHdlCfVIn4MKNA4ULVN/DAgGgKkblCykGoRPwYUaByo2qZwGBBAQ4DUEUoWIlIhTZs2re4QpApFdtxvZo+a2VYzeyeu7CgzW2Bm68LXVnHzJpvZejNba2ZnRBWXiIiUX5SdxDOAkcXKrgcWuXtXYFE4jZn1ACYAPcNl7jeztAhjExGRcogsWbj7q8DnxYpHAzPD9zOBMXHlT7n7AXf/CFgPZEUVm4iIlE9VX37S1t03A4SvbcLyY4GNcfU2hWWHMbNJZpZjZjnbtm2LNFgREQnUlGsVrYQyL6miu09390x3z2zdunXEYYmICFR9sthiZukA4evWsHwT0CGuXnsgr4pjExGRUlR1spgHTAzfTwSejyufYGYNzawz0BVYVsWxiYhIKSK7z8LMngSGAseY2SbgJmAaMNfMLgM+AcYDuPtqM5sLvAvkA1e5+6GoYhMRkfKJLFm4+wWlzBpeSv2pwNSo4hERkYrTHdwiUinix4sCjRmVapQsRKRSFI4X1bRpU/bs2aMxo1KMkoWIVJqmTZvSsmXL6g5DIqBkIZHSUOQiqUHJQiKlochFUoO+4omISEJKFiIikpC6oUQkUnoEa2pQspBKU9LJbBE9gjU1KFlIpSnpZLYI6BGsqUDnLEREJCEdWYhIldPQILWPkoWIVDkNDVL7KFmISLXQ0CC1i5KFlJuG8JCoqHuq5lKykHLTEB4SFXVP1VxKFiJSo6h7qmZSspAyxXc5qbtJpO6qccnCzEYC9wBpwMPuPq2aQ6oTSjsPEd/lpO4mqQ6lncfQ+Y2qVaOShZmlAfcBpwObgOVmNs/d363eyGqn0obfSJQUQIlBao7SzmPEl+/atYtrr72W3r17A0ocUahRyQLIAta7+4cAZvYUMBpQsqiA4gmgXbt2AOTl5RUpa9SoUZEEUrhs/GtpZcmUl6duRbdXk2Or6PaqM7alS5fSqFEj3n77bfbs2QPAnj17ePvttwGKlJdUVhl148vjxdctdODAAX7zm9/QokUL9u/fz9NPP60T45XM3L26Y4gxs3HASHf/UTh9MTDQ3X8aV2cSMCmc7AW8U+WBVp1jgM+qO4gIqX21Wyq3L5XbBtDd3ZuXZ4GadmRhJZQVyWbuPh2YDmBmOe6eWRWBVQe1r3ZT+2qvVG4bBO0r7zI17dKWTUCHuOn2QF4pdUVEpIrUtGSxHOhqZp3NrAEwAZhXzTGJiNR5Naobyt3zzeynwD8ILp191N1Xl7HI9KqJrNqofbWb2ld7pXLboALtq1EnuEVEpGaqad1QIiJSAylZiIhIQrUmWZhZBzP7p5m9Z2arzey/wvKjzGyBma0LX1tVd6zlZWaNzGyZmb0Ztu3msLzWty2emaWZ2SozeyGcTpn2mdkGM3vbzHILL0tMsfYdaWbPmNma8H/w5FRpn5l1D39vhT87zeyaFGrfz8PPlXfM7Mnw86bcbas1yQLIB37p7icCg4CrzKwHcD2wyN27AovC6drmAHCau/cFMoCRZjaI1GhbvP8C3oubTrX2DXP3jLjr81OpffcAf3f3E4C+BL/HlGifu68Nf28ZQH9gL/AcKdA+MzsWuBrIdPdeBBcOTaAibXP3WvkDPE8whtRaID0sSwfWVnds37BdTYCVwMBUahvBPTOLgNOAF8KyVGrfBuCYYmUp0T6gBfAR4QUxqda+Ym0aASxOlfYBxwIbgaMIrn59IWxjudtWm44sYsysE3ASsBRo6+6bAcLXNtUYWoWFXTS5wFZggbunTNtCdwO/BgriylKpfQ7MN7MV4ZA0kDrt6wJsAx4LuxEfNrOmpE774k0Angzf1/r2ufu/gTuAT4DNwJfuPp8KtK3WJQszawb8BbjG3XdWdzyVxd0PeXAY3B7IMrNe1RxSpTGzc4Ct7r6iumOJ0Cnu3g84k6CL9NTqDqgSHQH0Ax5w95OAPdTCLplEwhuBRwFPV3cslSU8FzEa6Ay0A5qa2UUVWVetShZmVp8gUcx292fD4i1mlh7OTyf4Zl5rufsOIBsYSeq07RRglJltAJ4CTjOzWaRO+3D3vPB1K0F/dxap075NwKbwaBfgGYLkkSrtK3QmsNLdt4TTqdC+/wQ+cvdt7n4QeBYYTAXaVmuShZkZ8AjwnrvfGTdrHjAxfD+R4FxGrWJmrc3syPB9Y4Jf8BpSoG0A7j7Z3du7eyeCw/yX3f0iUqR9ZtbUzJoXvifoE36HFGmfu38KbDSz7mHRcILHBqRE++JcwNddUJAa7fsEGGRmTcLP0OEEFyeUu2215g5uM/s28C/gbb7u976B4LzFXOA4gh0z3t0/r5YgK8jM+gAzCa5UqAfMdfdbzOxoannbijOzocCv3P2cVGmfmXUhOJqAoMvmf919aqq0D8DMMoCHgQbAh8APCP9WSY32NSE4EdzF3b8My1Li9xdein8+wRWlq4AfAc0oZ9tqTbIQEZHqU2u6oUREpPooWYiISEJKFiIikpCShYiIJKRkISIiCSlZiIhIQkoWIiKS0P8HTNaWQjUW0pgAAAAASUVORK5CYII=\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"from numpy import random\n",
"import matplotlib.pyplot as plt\n",
"import seaborn as sns\n",
"\n",
"# sample from a binomial distribution\n",
"data = random.binomial(n=100, p=.5, size=10000)\n",
"\n",
"# plot distribution and color critical region\n",
"ax = sns.histplot(data, bins=20,binwidth=.5, color=\"black\")\n",
"ax.set_title(\"Critical region for a one-sided test\")\n",
"\n",
"#ax.annotate(\"\", xy=(40, 500), xytext=(30, 500), arrowprops=dict(arrowstyle=\"<-\"))\n",
"#ax.annotate(\"lower critical region \\n (2.5% of the distribution)\", xy=(40, 600), xytext=(22, 580))\n",
"ax.annotate(\"\", xy=(70, 500), xytext=(60, 500), arrowprops=dict(arrowstyle=\"->\"))\n",
"ax.annotate(\"upper critical region \\n (5% of the distribution)\", xy=(70, 500), xytext=(55, 580))\n",
"ax.set(xlim=(20,80))\n",
"for p in ax.patches:\n",
" if p.get_x() <= 58:\n",
" p.set_color(\"lightgrey\")\n",
"\n",
"\n",
" \n",
"glue(\"espcritical-onesided-fig\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "false-wallace",
"metadata": {},
"source": [
"```{glue:figure} espcritical-onesided-fig\n",
":figwidth: 600px\n",
":name: fig-esp-critical-onesided\n",
"\n",
"The critical region for a one sided test. In this case, the alternative hypothesis is that θ ą .05, so we would only reject the null hypothesis for large values of X. As a consequence, the critical region only covers the upper tail of the sampling distribution; specifically the upper 5% of the distribution. Contrast this to the two-sided version in {numref}`fig-esp-critical`\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "selected-amazon",
"metadata": {},
"source": [
"(pvalue)=\n",
"## The $p$ value of a test\n",
"\n",
"In one sense, our hypothesis test is complete; we've constructed a test statistic, figured out its sampling distribution if the null hypothesis is true, and then constructed the critical region for the test. Nevertheless, I've actually omitted the most important number of all: **_the $p$ value_**. It is to this topic that we now turn. There are two somewhat different ways of interpreting a $p$ value, one proposed by Sir Ronald Fisher and the other by Jerzy Neyman. Both versions are legitimate, though they reflect very different ways of thinking about hypothesis tests. Most introductory textbooks tend to give Fisher's version only, but I think that's a bit of a shame. To my mind, Neyman's version is cleaner, and actually better reflects the logic of the null hypothesis test. You might disagree though, so I've included both. I'll start with Neyman's version...\n",
"\n",
"\n",
"### A softer view of decision making\n",
"\n",
"One problem with the hypothesis testing procedure that I've described is that it makes no distinction at all between a result this \"barely significant\" and those that are \"highly significant\". For instance, in my ESP study the data I obtained only just fell inside the critical region - so I did get a significant effect, but was a pretty near thing. In contrast, suppose that I'd run a study in which $X=97$ out of my $N=100$ participants got the answer right. This would obviously be significant too, but by a much larger margin; there's really no ambiguity about this at all. The procedure that I described makes no distinction between the two. If I adopt the standard convention of allowing $\\alpha = .05$ as my acceptable Type I error rate, then both of these are significant results. \n",
"\n",
"This is where the $p$ value comes in handy. To understand how it works, let's suppose that we ran lots of hypothesis tests on the same data set: but with a different value of $\\alpha$ in each case. When we do that for my original ESP data, what we'd get is something like this"
]
},
{
"cell_type": "markdown",
"id": "civil-score",
"metadata": {},
"source": [
"| Value of $\\alpha$ | 0.05 | 0.04 | 0.03 | 0.02 | 0.01 |\n",
"|--------------------|------|------|------|------|------|\n",
"| Reject the null? | Yes | Yes | Yes | No | No |\n",
"\n",
"\n"
]
},
{
"cell_type": "markdown",
"id": "correct-commissioner",
"metadata": {},
"source": [
"When we test ESP data ($X=62$ successes out of $N=100$ observations) using $\\alpha$ levels of .03 and above, we'd always find ourselves rejecting the null hypothesis. For $\\alpha$ levels of .02 and below, we always end up retaining the null hypothesis. Therefore, somewhere between .02 and .03 there must be a smallest value of $\\alpha$ that would allow us to reject the null hypothesis for this data. This is the $p$ value; as it turns out the ESP data has $p = .021$. In short:\n",
"\n",
"> $p$ is defined to be the smallest Type I error rate ($\\alpha$) that you have to be willing to tolerate if you want to reject the null hypothesis. \n",
"\n",
"If it turns out that $p$ describes an error rate that you find intolerable, then you must retain the null. If you're comfortable with an error rate equal to $p$, then it's okay to reject the null hypothesis in favour of your preferred alternative. \n",
"\n",
"In effect, $p$ is a summary of all the possible hypothesis tests that you could have run, taken across all possible $\\alpha$ values. And as a consequence it has the effect of \"softening\" our decision process. For those tests in which $p \\leq \\alpha$ you would have rejected the null hypothesis, whereas for those tests in which $p > \\alpha$ you would have retained the null. In my ESP study I obtained $X=62$, and as a consequence I've ended up with $p = .021$. So the error rate I have to tolerate is 2.1\\%. In contrast, suppose my experiment had yielded $X=97$. What happens to my $p$ value now? This time it's shrunk to $p = 1.36 \\times 10^{-25}$, which is a tiny, tiny [^note8] Type I error rate. For this second case I would be able to reject the null hypothesis with a lot more confidence, because I only have to be \"willing\" to tolerate a type I error rate of about 1 in 10 trillion trillion in order to justify my decision to reject.\n",
"\n",
"\n",
"### The probability of extreme data\n",
"\n",
"The second definition of the $p$-value comes from Sir Ronald Fisher, and it's actually this one that you tend to see in most introductory statistics textbooks. Notice how, when I constructed the critical region, it corresponded to the *tails* (i.e., extreme values) of the sampling distribution? That's not a coincidence: almost all \"good\" tests have this characteristic (good in the sense of minimising our type II error rate, $\\beta$). The reason for that is that a good critical region almost always corresponds to those values of the test statistic that are least likely to be observed if the null hypothesis is true. If this rule is true, then we can define the $p$-value as the probability that we would have observed a test statistic that is at least as extreme as the one we actually did get. In other words, if the data are extremely implausible according to the null hypothesis, then the null hypothesis is probably wrong.\n",
"\n",
"\n",
"### A common mistake\n",
"\n",
"Okay, so you can see that there are two rather different but legitimate ways to interpret the $p$ value, one based on Neyman's approach to hypothesis testing and the other based on Fisher's. Unfortunately, there is a third explanation that people sometimes give, especially when they're first learning statistics, and it is *absolutely and completely wrong*. This mistaken approach is to refer to the $p$ value as \"the probability that the null hypothesis is true\". It's an intuitively appealing way to think, but it's wrong in two key respects: (1) null hypothesis testing is a frequentist tool, and the frequentist approach to probability does *not* allow you to assign probabilities to the null hypothesis... according to this view of probability, the null hypothesis is either true or it is not; it cannot have a \"5\\% chance\" of being true. (2) even within the Bayesian approach, which does let you assign probabilities to hypotheses, the $p$ value would not correspond to the probability that the null is true; this interpretation is entirely inconsistent with the mathematics of how the $p$ value is calculated. Put bluntly, despite the intuitive appeal of thinking this way, there is *no* justification for interpreting a $p$ value this way. Never do it.\n",
"\n",
"[^note8]: That's $p = .000000000000000000000000136$ for folks that don't like scientific notation!"
]
},
{
"cell_type": "markdown",
"id": "parallel-issue",
"metadata": {},
"source": [
"(writeup)=\n",
"## Reporting the results of a hypothesis test\n",
"\n",
"When writing up the results of a hypothesis test, there's usually several pieces of information that you need to report, but it varies a fair bit from test to test. Throughout the rest of the book I'll spend a little time talking about how to report the results of different tests (see Section \\@ref(chisqreport) for a particularly detailed example), so that you can get a feel for how it's usually done. However, regardless of what test you're doing, the one thing that you always have to do is say something about the $p$ value, and whether or not the outcome was significant. \n",
"\n",
"The fact that you have to do this is unsurprising; it's the whole point of doing the test. What might be surprising is the fact that there is some contention over exactly how you're supposed to do it. Leaving aside those people who completely disagree with the entire framework underpinning null hypothesis testing, there's a certain amount of tension that exists regarding whether or not to report the exact $p$ value that you obtained, or if you should state only that $p < \\alpha$ for a significance level that you chose in advance (e.g., $p<.05$). \n",
"\n",
"### The issue\n",
"\n",
"To see why this is an issue, the key thing to recognise is that $p$ values are *terribly* convenient. In practice, the fact that we can compute a $p$ value means that we don't actually have to specify any $\\alpha$ level at all in order to run the test. Instead, what you can do is calculate your $p$ value and interpret it directly: if you get $p = .062$, then it means that you'd have to be willing to tolerate a Type I error rate of 6.2\\% to justify rejecting the null. If you personally find 6.2\\% intolerable, then you retain the null. Therefore, the argument goes, why don't we just report the actual $p$ value and let the reader make up their own minds about what an acceptable Type I error rate is? This approach has the big advantage of \"softening\" the decision making process -- in fact, if you accept the Neyman definition of the $p$ value, that's the whole point of the $p$ value. We no longer have a fixed significance level of $\\alpha = .05$ as a bright line separating \"accept\" from \"reject\" decisions; and this removes the rather pathological problem of being forced to treat $p = .051$ in a fundamentally different way to $p = .049$. \n",
"\n",
"This flexibility is both the advantage and the disadvantage to the $p$ value. The reason why a lot of people don't like the idea of reporting an exact $p$ value is that it gives the researcher a bit *too much* freedom. In particular, it lets you change your mind about what error tolerance you're willing to put up with *after* you look at the data. For instance, consider my ESP experiment. Suppose I ran my test, and ended up with a $p$ value of .09. Should I accept or reject? Now, to be honest, I haven't yet bothered to think about what level of Type I error I'm \"really\" willing to accept. I don't have an opinion on that topic. But I *do* have an opinion about whether or not ESP exists, and I *definitely* have an opinion about whether my research should be published in a reputable scientific journal. And amazingly, now that I've looked at the data I'm starting to think that a 9\\% error rate isn't so bad, especially when compared to how annoying it would be to have to admit to the world that my experiment has failed. So, to avoid looking like I just made it up after the fact, I now say that my $\\alpha$ is .1: a 10\\% type I error rate isn't too bad, and at that level my test is significant! I win.\n",
"\n",
"In other words, the worry here is that I might have the best of intentions, and be the most honest of people, but the temptation to just \"shade\" things a little bit here and there is really, really strong. As anyone who has ever run an experiment can attest, it's a long and difficult process, and you often get *very* attached to your hypotheses. It's hard to let go and admit the experiment didn't find what you wanted it to find. And that's the danger here. If we use the \"raw\" $p$-value, people will start interpreting the data in terms of what they *want* to believe, not what the data are actually saying... and if we allow that, well, why are we bothering to do science at all? Why not let everyone believe whatever they like about anything, regardless of what the facts are? Okay, that's a bit extreme, but that's where the worry comes from. According to this view, you really *must* specify your $\\alpha$ value in advance, and then only report whether the test was significant or not. It's the only way to keep ourselves honest. \n",
"\n",
"\n",
"### Two proposed solutions\n",
"\n",
"In practice, it's pretty rare for a researcher to specify a single $\\alpha$ level ahead of time. Instead, the convention is that scientists rely on three standard significance levels: .05, .01 and .001. When reporting your results, you indicate which (if any) of these significance levels allow you to reject the null hypothesis. This is summarised in the table below. This allows us to soften the decision rule a little bit, since $p<.01$ implies that the data meet a stronger evidentiary standard than $p<.05$ would. Nevertheless, since these levels are fixed in advance by convention, it does prevent people choosing their $\\alpha$ level after looking at the data. "
]
},
{
"cell_type": "markdown",
"id": "certain-myrtle",
"metadata": {},
"source": [
"| Usual notation | Sig. stars | English translation | The null is... |\n",
"|----------------|------------|----------------------------------------------------------------------------|----------------|\n",
"| p > 0.05 | | The test wasn't significant | Retained |\n",
"| p < 0.05 | * | The test was significant at $\\alpha$ = 0.05 but not at $\\alpha$ = 0.01 or $\\alpha$ = 0.001. | Rejected |\n",
"| p < 0.01 | ** | The test was significant at $\\alpha$ = 0.05 and at $\\alpha$ = 0.01 but not at $\\alpha$ = 0.001. | Rejected |\n",
"| p < 0.001 | *** | The test was significant at all levels | Rejected |"
]
},
{
"cell_type": "markdown",
"id": "original-addiction",
"metadata": {},
"source": [
"Nevertheless, quite a lot of people still prefer to report exact $p$ values. To many people, the advantage of allowing the reader to make up their own mind about how to interpret $p = .06$ outweighs any disadvantages. In practice, however, even among those researchers who prefer exact $p$ values it is quite common to just write $p<.001$ instead of reporting an exact value for small $p$. This is in part because a lot of software doesn't actually print out the $p$ value when it's that small (e.g., SPSS just writes $p = .000$ whenever $p<.001$), and in part because a very small $p$ value can be kind of misleading. The human mind sees a number like .0000000001 and it's hard to suppress the gut feeling that the evidence in favour of the alternative hypothesis is a near certainty. In practice however, this is usually wrong. Life is a big, messy, complicated thing: and every statistical test ever invented relies on simplifications, approximations and assumptions. As a consequence, it's probably not reasonable to walk away from *any* statistical analysis with a feeling of confidence stronger than $p<.001$ implies. In other words, $p<.001$ is really code for \"as far as *this test* is concerned, the evidence is overwhelming.\" \n",
"\n",
"In light of all this, you might be wondering exactly what you should do. There's a fair bit of contradictory advice on the topic, with some people arguing that you should report the exact $p$ value, and other people arguing that you should use the tiered approach illustrated in the table above. As a result, the best advice I can give is to suggest that you look at papers/reports written in your field and see what the convention seems to be. If there doesn't seem to be any consistent pattern, then use whichever method you prefer."
]
},
{
"cell_type": "markdown",
"id": "professional-trademark",
"metadata": {},
"source": [
"## Running the hypothesis test in practice\n",
"\n",
"At this point some of you might be wondering if this is a \"real\" hypothesis test, or just a toy example that I made up. It's real. In the previous discussion I built the test from first principles, thinking that it was the simplest possible problem that you might ever encounter in real life. However, this test already exists: it's called the *binomial test*, and it's implemented in a function called `binom_test()` from the `scipy.stats` package. To test the null hypothesis that the response probability is one-half `p = .5`, [^note9] using data in which `x = 62` of `n = 100` people made the correct response, here's how to do it in Python:\n",
"\n",
"[^note9]: Note that the `p` here has nothing to do with a $p$ value. The `p` argument in the `binom_test()` function corresponds to the probability of making a correct response, according to the null hypothesis. In other words, it's the $\\theta$ value."
]
},
{
"cell_type": "code",
"execution_count": 9,
"id": "beginning-guitar",
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"0.020978735677851718"
]
},
"execution_count": 9,
"metadata": {},
"output_type": "execute_result"
}
],
"source": [
"from scipy.stats import binom_test\n",
"binom_test(x = 62, n = 100, p = 0.5, alternative = 'two-sided')"
]
},
{
"cell_type": "markdown",
"id": "neutral-reference",
"metadata": {},
"source": [
"Well. There's a number, but what does it mean? Sometimes the output of these Python functions can be fairly terse. But here `binom_test()` is giving us the $p$-value for the test we specified. In this case, the $p$-value of 0.02 is less than the usual choice of $\\alpha = .05$, so we can reject the null. Usually we will want to know more than just the $p$-value for a test, and Python has ways of giving us this information, but for now, however, I just wanted to make the point that Python packages contain a whole lot of functions corresponding to different kinds of hypothesis test. And while I'll usually spend quite a lot of time explaining the logic behind how the tests are built, every time I discuss a hypothesis test the discussion will end with me showing you a fairly simple Python command that you can use to run the test in practice."
]
},
{
"cell_type": "markdown",
"id": "shared-pension",
"metadata": {},
"source": [
"(effectsize)=\n",
"## Effect size, sample size and power\n",
"\n",
"In previous sections I've emphasised the fact that the major design principle behind statistical hypothesis testing is that we try to control our Type I error rate. When we fix $\\alpha = .05$ we are attempting to ensure that only 5\\% of true null hypotheses are incorrectly rejected. However, this doesn't mean that we don't care about Type II errors. In fact, from the researcher's perspective, the error of failing to reject the null when it is actually false is an extremely annoying one. With that in mind, a secondary goal of hypothesis testing is to try to minimise $\\beta$, the Type II error rate, although we don't usually *talk* in terms of minimising Type II errors. Instead, we talk about maximising the *power* of the test. Since power is defined as $1-\\beta$, this is the same thing. "
]
},
{
"cell_type": "markdown",
"id": "amber-mention",
"metadata": {},
"source": []
},
{
"cell_type": "code",
"execution_count": 14,
"id": "agricultural-zimbabwe",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "espcritical-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEKCAYAAADjDHn2AAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAAy30lEQVR4nO3de3gU5fn/8fdNABEQBA0WBQRaUCBAhIiIyEHU4qECIoJKwUPFA5aeREW91FLpl1ZtkW+r/vAEHgEtfkWrLSepoiAEiSgggoByEqKACOFQyP37YybrJtlkk5Alp8/ruvbK7jPPzNzPZnbvnWdmnjF3R0REpDDVyjoAEREp/5QsREQkLiULERGJS8lCRETiUrIQEZG4lCxERCQuJQsREYlLyUJEROJSspAiMbMNZnZ++HyFmfU6CuucbGYPRr0utfXmXVZ0+xKx/FJc7mlmtszMvjezUaW9/CKsP9Kuso5Fji4li3LOzLqb2Qdm9p2Z7TCz983szLKMyd3bufv88rreonzxl2YbYq0vge/RHcB8dz/O3SceyYLMrG4Y+9VRZceZ2VdmdkWsefK0K24sZnZGuM1mmdliM2t2JDGHy2xoZq+Z2V4z+zI6/gLqzzez/Wa2J3ysLs50CShZlGNmVg94E/hfoCFwCvB74EBZxlWRmVn1so7hCJ0KrCjuTLHa7e57gBHAo2aWHBb/GUh391ePNBYzawK8BfwJOAFYB9xbzNBj+TtwEDgJuAZ43MzaxZnnNnevGz5OK8F0cXc9yukDSAN2FTL9LuAL4HtgJTAgatoGYDSwHNgLPE3w4Xo7rD8HaJCn/phwOTuBZ4FaeaafX8Dz28P1fAdMyzNfJ2BZuM5XwukPFtCeM4CPwrrTgKnRdfOs905gc1h3NdAnLH8eyAb2AXsIfv1uCOsvJ0i01aOXFa/9gAM/iao7OSeuWOuLEWsbYD6wi+DL9bI86y3w/cvz/swDDgP7w3W1LsKyc7W7gOVOBl4GegHfAo0L2eY2AOfHiiVG3WnA2KjX/YFlR/iZqEOQKFpHlT0PjC9knvnAL0o6XY/wfSrrAPQo5J8D9cIP7xTgIqK+3MPpg4CTCfYQBxMkhcbhtA3AIoIEcQqwneCL+AzgmPDDfn/UsjYAnwJNCfZi3qfgL+q8zxeHcTQEVgE3h9NqAl8CvwJqAJeHH/R8ySKq7m/CulcA/40VA3AasBE4OSxvDvw4VqxRrzPCth1bSJ2Y7aeQZBFrWXlirQGsBe4O23geQYI7Ld77V8A2MZ/wi62Iy87V7gKW2QDYCnwDXBdnm4z+30diKWDb3Q80iyq7HFgYo+6bBMku1uPNPHXPAPblKbsdeCPOe5YZtu99oFdxpusRPNQNVY65+26gO8GX1ZNAppnNNLOTwumvuPsWd89292nAGqBL1CL+1923uftm4D3gQ3df5u4HgNcIPnjR/ubuG919BzAOuKqIoU4M49gBvAGkhuVdCX7FT3T3/7r7DIIvxli6Enz5TQjrvgosKaDuYYKE19bMarj7Bnf/oggxbnT3fYXUKWn7C9MVqEvwy/egu88j+HKMXnZB719pLbvQdrv7ToK9ktrAjCKuO54+BP/P5Wa2y8x2AS8S/CDIu/5L3f34Ah6X5qlel2APLNp3wHGFxHIn0JLgR9Mk4A0z+3Expgs6ZlHuufsqd7/W3ZsAKQS/QCcAmNkwM8uI+jCmACdGzb4t6vm+GK/r5lndxqjnX4brKoqvo55nRS33ZGCzhz/fYqwjWqy6+b5YANx9LfBr4AFgu5lNNbN4sRa03oLqFKf9hTkZ2Oju2XmWfUrU64Lev9JYdtx2m9lQgr2zOQTHF0pDc2Bm9Bc/8A7wryNc7h6CvZZo9Qj2qGJy9w/d/Xt3P+DuUwj2Hi4u6nQJKFlUIO7+GUEXSIqZnUqwt3EbcEL4YfwUsCNYRdOo582ALUewLAi6Nk4xs+iYmhajboFnzrj7S+7eneAgq5P7Sy7WTVqKcuOWgtqfRfCrO8ePirHsLUBTM4v+rDUjON5ypIqy7ELbbWaNgL8CNwI3AVeaWY9SiO0YgvctZz0tCI7BzYwRw9tRZyLlfbydp/rnQHUzaxVV1pHiHfR3Cv+cxJteJSlZlGNmdrqZ/S48qwQza0rQxbCI4ECfE/S1YmbXEexZHImRZtbEzBoS9INPO8LlLSToMrrNzKqbWT9yd5PlrXsIGBXWvbyguuH5/eeZ2TEE/eL7wvXk2EbQrVBcBbU/A7jazJLMrC/QM898ha3vQ4JjSXeYWY3wGoWfERy8P1Klsey/Af/n7u+4+1aCEwKeDN/bI7EE6GlmJ4fb7UvAPWFXWy7ufpH/cCZS3sdFeeruJegqG2tmdczsHKAfwUHufMzseDP7qZnVCrera4AewL+LMl1+oGRRvn0PnAV8aGZ7CZLEp8Dv3H0l8AjBl+w2oD3B7vOReAmYRXCK4zrgwcKrF87dDxIc1LyB4GDlUII+9Xyn/kbVvZbgbKTBFNx/fgwwnuCA5NdAI4Iv9xz/A9wbds/dXoyQC2r/rwi+hHcRnKr5f3nmK3B9YbsuIzhB4RvgMWBYuJd4RI502WbWn+CY2OioZT4FbALuO8Lw5hEcf/kcWAA87+5PHuEyc9wKHEtw0sbLwC3uHtmzCPdUcraHGgT/x5wD2L8E+rv76iJOl5Dl7iKWqsrMNhCc2TInwev5EHjC3Z9N5HpEpHRpz0ISysx6mtmPwl384UAHjvwgp4gcZRX9alYp/04DphOc4fMFcEXYNy4iFYi6oUREJC51Q4mISFwVuhvqxBNP9ObNm5d1GCIiFcrSpUu/cffk+DV/UKGTRfPmzUlPTy/rMEREKhQzizk6QmHUDSUiInEpWYiISFxKFiIiEpeShYiIxKVkISIicSlZiIhIXEoWIiISV0KThZn9xsxWmNmnZvZyOGZ8QzObbWZrwr8NouqPMbO1ZrbazH6ayNhERKToEpYszOwUYBSQ5u4pQBIwBLgLmOvurYC54WvMrG04vR3QF3jMzJISFZ9IZZKdnU1WVhZZWVlkZ2fHn0GkmBLdDVUdONbMqhPclnILwV2tpoTTpwD9w+f9gKnhfXDXA2sp+K5qIhJl//79rFu3jnXr1rF///6yDkcqoYQlC3ffDDwMfEVwf+Xv3H0WcFLOENXh30bhLKeQ++bym8h943kAzGyEmaWbWXpmZmaiwhcRkSiJ7IZqQLC30AI4GahjZkMLmyVGWb7x0919krunuXtacnKxxsESEXJ3WanbSooqkQMJng+sd/dMADObAXQDtplZY3ffamaNCe6jC8GeRNOo+ZsQdFuJSCnK6bLK0bJlS2rXrl2GEUlFkMhjFl8BXc2stpkZ0AdYBcwEhod1hgOvh89nAkPM7BgzawG0AhYnMD4RESmihO1ZuPuHZvYq8BFwCFgGTCK4veZ0M7uBIKEMCuuvMLPpwMqw/kh3P5yo+EQqu+zs7FwHu2vVqkW1arq0SkomofezcPf7gfvzFB8g2MuIVX8cMC6RMYlUFepuktKknxkiIhKXkoWIiMSlZCEiInEpWYiISFwJPcAtIiWjM5mkvFGyECmHdCaTlDf6qSIiInEpWYiISFzqhhKpQHQsQ8qKkoVIBaJjGVJW9JNERETiUrIQEZG4lCxERCQuJQsREYlLyUJEROJSshARkbiULEREJK6EJQszO83MMqIeu83s12bW0Mxmm9ma8G+DqHnGmNlaM1ttZj9NVGwiIlI8CUsW7r7a3VPdPRXoDGQBrwF3AXPdvRUwN3yNmbUFhgDtgL7AY2aWlKj4RMqL7OxssrKyIo/s7OyyDkkkn6PVDdUH+MLdvwT6AVPC8ilA//B5P2Cqux9w9/XAWqDLUYpPpMzkXJWd84gezkOkvDhayWII8HL4/CR33woQ/m0Ulp8CbIyaZ1NYlouZjTCzdDNLz8zMTGDIIiKSI+HJwsxqApcBr8SrGqPM8xW4T3L3NHdPS05OLo0QRUQkjqOxZ3ER8JG7bwtfbzOzxgDh3+1h+SagadR8TYAtRyE+ERGJ42gki6v4oQsKYCYwPHw+HHg9qnyImR1jZi2AVsDioxCfiIjEkdAhys2sNnABcFNU8XhgupndAHwFDAJw9xVmNh1YCRwCRrr74UTGJyIiRZPQZOHuWcAJecq+JTg7Klb9ccC4RMYkIiLFpyu4RUQkLiULERGJS8lCRETiUrIQEZG4EnqAW0Qqhuzs7FzDjNSqVYtq1fRbUn6gZCEikfGpcrRs2ZLatWuXYURS3lSpnw5169Yt6xAK1a1bNwA2bNjASy+9FClPT09n1KhRJVpmr169SE9PL5X4os2cOZPx48eX+nKl8tuyZQtXXHEFABkZGbz11luRaUeyXTVv3pxvvvmmVGKM9sQTT/Dcc8+V+nIrGu1ZJMDhw4dJSir66Oo59T/44APgh2Rx9dVXA5CWlkZaWlpCYo1ef3FcdtllXHbZZQmKSCoCd8fdi9VddejQIU4++WReffVVIEgW6enpXHzxxUDit6uSbOs333xzgqKpWKrUnkUOd2f06NGkpKTQvn17pk2bBsCtt97KzJkzARgwYADXX389AE8//TT33nsvAC+88AJdunQhNTWVm266icOHg4vM69aty3333cdZZ53FwoULc61v7dq1nH/++XTs2JFOnTrxxRdfMH/+fHr37s3VV19N+/btI8sAuOuuu3jvvfdITU3lr3/9K/Pnz+fSSy8FYM+ePVx33XW0b9+eDh068I9//AOAW265hbS0NNq1a8f9998f9z1o3rw5Y8eOpXv37rzyyivMmjWLs88+m06dOjFo0CD27NkDwFtvvcXpp59O9+7dGTVqVCSOyZMnc9tttwHw5Zdf0qdPHzp06ECfPn346quvALj22msZNWoU3bp1o2XLlpEvCEmMzZs3M2DAgMjrCRMm8NhjjwFw3XXXMXr0aLp160ZaWhqffPIJAI899hg33HADF110EZdcckmu/9FDDz3EmWeeSYcOHSLb1IYNG2jTpg233nornTp1YuPG6IGiYcmSJXTr1o2OHTvSpUsXvv/+eyZPnsygQYP42c9+xoUXXsiGDRtISUnh4MGD3HfffUybNo3U1FSmTZuWa7vatm0bAwYMoGPHjnTs2DHyY6p///507tyZdu3aMWnSpLjvS97PZkGf4aeffprWrVvTq1cvbrzxxkgcDzzwAA8//DAQJLeuXbvSoUMHBgwYwM6dO4FgD/7OO++kS5cutG7dmvfee6+Y/73yr0omixkzZpCRkcHHH3/MnDlzGD16NFu3bqVHjx6Rf/LmzZtZuXIlAAsWLODcc89l1apVTJs2jffff5+MjAySkpJ48cUXAdi7dy8pKSl8+OGHdO/ePdf6rrnmGkaOHMnHH3/MBx98QOPGjQFYvHgx48aNi6wnx/jx4zn33HPJyMjgN7/5Ta5pf/jDH6hfvz6ffPIJy5cv57zzzgNg3LhxpKens3z5cv7zn/+wfPnyuO9DrVq1WLBgAeeffz4PPvggc+bM4aOPPiItLY2//OUv7N+/n5tuuom3336bBQsWUNCQ8LfddhvDhg1j+fLlXHPNNbm6zLZu3cqCBQt48803ueuuu+LGJImTlZXFBx98wIQJE7jvvvsi5Z9++ikzZszghRde4IknnmD79u3MmTOHNWvWsHjxYjIyMli6dCnvvvsuAKtXr2bYsGEsW7aMU089NbKcgwcPMnjwYB599NHIZ+vYY48FYOHChUyZMoV58+ZF6tesWZOxY8cyePBgMjIyGDx4cK54R40aRc+ePfn444/56KOPaNeuHQDPPPMMS5cuJT09nYkTJ/Ltt98W2u7oz+YJJ5wQ8zO8ZcsW/vCHP7Bo0SJmz57NZ599FnNZw4YN409/+hPLly+nffv2/P73v49MO3ToEIsXL2bChAm5yiuLKtkNtWDBAq666iqSkpI46aST6NmzJ0uWLOHcc89lwoQJrFy5krZt27Jz5062bt3KwoULmThxIlOmTGHp0qWceeaZAOzbt49GjYLbcSQlJTFw4MB86/r+++9z/eKrVatWZFqXLl1o0aJFsWKfM2cOU6dOjbxu0CC4K+306dOZNGkShw4dYuvWraxcuZIOHToUuqycD+eiRYtYuXIl55xzDhB86M8++2w+++wzWrZsGYnxqquuivlLbuHChcyYMQOAn//859xxxx2Raf3796datWq0bduWbdu25ZtXjp5BgwYB0L17d/bs2cPu3bsBuPTSSzn22GNp0KABXbp04ZNPPmHdunXMmjWLM844Awj2aNesWUOzZs049dRT6dq1a77lr169msaNG0c+H/Xq1YtMu+CCC2jYsGGx4p03b17kWEFSUhL169cHYOLEibz22msAbNy4kTVr1nDCCScUuJzoz+bcuXNjfoYXL15Mz549IzEOGjSIzz//PNdyvvvuO3bt2kXPnj0BGD58eOQ9Bbj88ssB6Ny5Mxs2bChWWyuCKpks3PPdJgOAU045hZ07d/Kvf/2LHj16sGPHDqZPn07dunU57rjjcHeGDx/O//zP/+Sbt1atWjH7QgtaF0CdOnVKFLtZ7lt/rF+/nocffpglS5bQoEEDrr322iLdbS1n/e7OBRdcwMsvv5xr+rJly4odH5ArvmOOOSZX7JI4SUlJuW7JeuDAgVzT8243Oa9jlbs7Y8aM4aabbso1bcOGDQVut7G2zRwl2dZjmT9/PnPmzGHhwoXUrl2bXr16xd3Woz+bBX2Gc5LPkcjZ1pOSkjh06NARL6+8qZLdUD169GDatGkcPnyYzMxM3n33Xbp0Ce7gevbZZzNhwgR69OjBueeey8MPP8y5554LQJ8+fXj11VfZvj24BceOHTv48ssvC11XvXr1aNKkCf/3f/8HBB/grKysQuc57rjj+P7772NOu/DCC/nb3/4Web1z5052795NnTp1qF+/Ptu2bePtt98u0vuQo2vXrrz//vusXbsWCLorPv/8c04//XTWrVsX+ZWUc2wnr27dukX2dl588cV83XBydJxwwgns2LGDb7/9lgMHDuTbDnKOb33wwQeRH0AAb775Jvv372fXrl0sWbKElJQUzj//fJ555pnIsavNmzdHtvuCnH766WzZsoUlS5YAwV51vC/Nwrb1Pn368PjjjwPBgendu3fz3Xff0aBBA2rXrs1nn33GokWL4rwr+ZcZ6zPcpUsX/vOf/7Bz504OHToUea+i1a9fnwYNGkS6qp9//vnIXkZVUCX3LAYMGMDChQvp2LEjZsaf//xnfvSjHwFw7rnnMmvWLH7yk59w6qmnsmPHjkiyaNu2LQ8++CAXXngh2dnZ1KhRg7///e+5+m1jef7557npppu47777qFGjBq+8UvhNAzt06ED16tXp2LEj1157baQrAODee+9l5MiRpKSkkJSUxP3338/ll1/OGWecQbt27WjZsmWkO6mokpOTmTx5MldddVXk1+iDDz5I69ateeyxx+jbty8nnnhiJKHmNXHiRK6//noeeughkpOTefbZZ4u1fikdNWrU4Oabb6ZXr160bNmS1q1b55p+/PHH061bN3bt2sXYsWMj5WlpaVx++eWsX7+em266iUaNGtG1a1fWr1/P2WefDQQHiV944YVCzySqWbMm06ZN45e//CX79u3j2GOPZc6cOYXG3Lt3b8aPH09qaipjxozJNe3RRx9lxIgRPP300yQlJfH444/Tt29fnnjiCTp06MBpp50WszusMAV9hrt27crdd9/NWWedxcknn0zbtm0j3V7RpkyZws0330xWVhYtW7asUtu6VeSugbS0NE/ENQTygz179lC3bl3cnZEjR9KqVat8B93lyGRlZeW7IA6IeZFcrLp5y2OVXXfddfz1r3+le/fuucofe+wxmjRpwq9//esqf1FezrZ+6NChyNmQ0WeXVSZmttTdi3U+fpXshpKie/LJJ0lNTaVdu3Z89913+fqwRSqLBx54gNTUVFJSUmjRogX9+/cv65DKlUTfKe944CkgBXDgemA1MA1oDmwArnT3nWH9McANwGFglLv/O5HxSXy/+c1vtCdRCTz77LORPZZot956a8zyqijnWgqJLdF7Fo8C/3L304GOwCrgLmCuu7cC5oavMbO2wBCgHdAXeMzMineppYiIJETCkoWZ1QN6AE8DuPtBd98F9AOmhNWmAP3D5/2Aqe5+wN3XA2uB2EdUS4G7c95557F79242btxI7969adOmDe3atePRRx+NOc/8+fOpX78+qamppKamRg4SZmZm0r17d1JSUiJnPQH069ePLVu2FCuuzMxMzjrrLM4444x8V4FOmDAh15lUpTnWVfQYUhdffDG7du0qsG7eOPL6xS9+EbnQsLgxluZYQZmZmfTt27dE81YG7s4NN9zAnj17+Prrr7noooto06YNaWlpvPDCCzHnWbJkCWeffTZdu3bVNq5tPJdE7lm0BDKBZ81smZk9ZWZ1gJPcfStA+LdRWP8UIHrsgE1hWS5mNsLM0s0svaAriovirbfeomPHjtSrV4/q1avzyCOPsGrVKhYtWsTf//73fFdV58i5sjojIyNyFezLL7/M8OHDWbhwIQ899BAAb7zxBp06deLkk08uVlxz587l9NNPZ9myZZGzsHLE24BLy1tvvcXxxx9f4PTC4jh8+DBPPfUUbdu2LdG6836QLrvsshJf+Z2cnEzjxo15//33SzR/acvOziYrKyvyiL4mIhH+/e9/07p1a+rWrUtSUhJ//OMfWbVqFe+88w5Tp07liy++iDlfp06dWLRokbZxbeO5JDJZVAc6AY+7+xnAXsIupwLEupon36la7j7J3dPcPS05ObnEwb344ov069cPgMaNG9OpUycgOO+7TZs2bN68ucjLqlGjBvv27ePAgQNUq1aNQ4cOMWHCBEaPHl3gPLHGU8rIyOCOO+7grbfeIjU1lX379kXqT5w4kS1bttC7d2969+4dKb/nnnvo2LEjXbt2jVwhnZmZycCBAznzzDM588wzY25I+/btY8iQIXTo0IHBgwfnWlfO6J179+7lkksuoWPHjqSkpDBt2rSYceQdeyfvSLe/+93v6NSpE3369IkMGRJd55tvvqF58+ZxxwoqyRhU/fv3jwzJUtZyhgHPeRTlwskjMXXq1MhwMMnJyZFTsI877jhatGhRrCvqtY1rG4+MHFnaD+BHwIao1+cC/yQ4wN04LGsMrA6fjwHGRNX/N3B2Yevo3Lmzl1SzZs189+7d+crXr1/vTZs29e+++y7ftHfeeccbNmzoHTp08L59+/qnn37q7u67du3yiy++2Dt37uxz5szxRx991CdPnlzo+i+99NJInaefftr79evn7u7PPvusjxw5MuY8p556qmdmZkZeAz5z5kx3dx89erT/4Q9/cHf3q666yt977z13d//yyy/99NNPz7esRx55xK+77jp3d//44489KSnJlyxZkms9r776qv/iF7+IzLNr164C45g2bVrkdc+ePSPLAvyFF15wd/ff//73kbZF18nMzPRTTz01ZvujXxf0ng0fPtyvuOIKP3z4sK9YscJ//OMfR+bftGmTp6SkxHw/j7a9e/f6J598Enns3bu3wPLi1M1bnlPWtGlTX7RoUb7ylStX+o9+9CNfuHBhvvU988wzXr9+fU9JSdE2Xom3cSDdi/mdnrA9C3f/GthoZqeFRX2AlcBMYHhYNhx4PXw+ExhiZseYWQugFbA4UfHt2LEjcgVrjj179jBw4EAmTJiQa1ybHJ06deLLL7/k448/5pe//GXk1Lr69evzz3/+k/T0dDp16sSbb77JwIEDufHGG7niiivyjUILwXhKOUOQ//znP2fBggXFbkPNmjUjo8BGj0czZ84cbrvtNlJTU7nsssvYvXt3vqtk3333XYYOHQoEFwHGGkeqffv2zJkzhzvvvJP33nsv5kVKUPC4WADVqlWLjEE1dOjQErUzR2HvWUFjUDVq1KjYfeqVxc6dO/MNs7Fnzx6uvvpq7rzzzph97W3atGHWrFl8+OGH2sajaBtP/NlQvwReNLPlQCrwR2A8cIGZrQEuCF/j7iuA6QQJ5V/ASHc/nKjAqlevnqvP+L///S8DBw7kmmuuiQwIlle9evUiH7CLL76Y//73v/lutjJ27FjuueceXn75ZTp37swzzzzD3XffHTeegsbUKUyNGjUi80WPR5Odnc3ChQsjx1Y2b96cLzEWZZ2tW7dm6dKltG/fnjFjxuS66jdaQeNixZKzzuj3v6TdMUUZg2r//v2RkU+rmoK28cGDB3P++efHnKdu3bqRi/G0jf9A23iCk4W7Z3hwfKGDu/d3953u/q2793H3VuHfHVH1x7n7j939NHcv3gBHxXTaaadFrlj18KyRNm3a8Nvf/rbAeb7++uvIP2nx4sVkZ2fnGu1yzZo1bNmyhZ49e5KVlUW1atUws5gbSknGUypsHJ1oecePysjIyFenR48ekX7OTz/9NOaQ5lu2bKF27doMHTqU22+/nY8++qhYcUDwoc7pX33ppZci7WzevDlLly4FyNX/WtiyS/Keff7556SkpBQp1sqmVatWbNq0CQi28VtuuYU2bdoUetfFb775Rtt4MeKAqrONV9kruC+55BLmz58PwPvvv8/zzz/PvHnzIqfF5pyt8MQTT/DEE08AwT88JSWFjh07MmrUKKZOnZor899zzz08+OCDQDCc9+TJk+natSu33357vvVPnDiRZ599lg4dOvD8888XeLputBEjRnDRRRflOvgXy8SJE0lPT6dDhw60bds2En+0W265hT179tChQwf+/Oc/xxz36ZNPPoncJGbcuHGRG0AVNQ4IRhtdsWIFnTt3Zt68eZGza26//XYef/xxunXrluuXa+/evVm5cmXk4F/edhX3PXvnnXe45JJL4tarjPr27RsZ1G/ZsmW8/PLLzJs3j65du3LFFVdE7k/x1FNP8dRTTwEwa9YsBgwYwFlnnaVtXNt4LlV2bKitW7cybNgwZs+eXcpRSXnSo0cPXn/99ch9P8pSUcZ1yimHIx8b6osvvmDo0KE8+eSTJV5fdnZ2rr2GWrVqFes2qpJ4JdnGSzI2VJUcdRaC02VvvPFGdu/eHfNgtlR8mZmZ/Pa3vy0XiaIsNG7cmIEDB0YGyCuJnNN9c1TFAQbLs6O5jVfZZAFw5ZVXlnUIkkDJyclVfjC4qnwFe1VwNLdx7U+KiEhcShYiIhKXkoWIiMSlZCEiInEpWYiISFxKFiIiEpeShYiIxKVkISIicSlZiIhIXEoWIiISl5KFiIjEpWQhIiJxKVmIiEhcCU0WZrbBzD4xswwzSw/LGprZbDNbE/5tEFV/jJmtNbPVZvbTRMZWke3YsYPPP/+8rMMQqbD27dsX8+56UrCjsWfR291To260cRcw191bAXPD15hZW2AI0A7oCzxmZkW76W0VsWPHDu69915atWrFG2+8UdbhiFRYmZmZDBw4kD59+kTuGCiFK4v7WfQDeoXPpwDzgTvD8qnufgBYb2ZrgS7AwjKIsVzZs2cP119/PW+//TZdu3blwQcfpFGjRvzjH/8o69BK5LzzzquyNySqbN59910yMzPLOowS+eMf/8i7777LlVdeSXJyMmPHjmXAgAFlHVa5lehk4cAsM3Pg/7n7JOAkd98K4O5bzaxRWPcUYFHUvJvCslzMbAQwAqBZs2aJjL3cWL9+PW+//TZJSUkcOHCA2bNn57ovckXTsmVLJYtKYsaMGWzcuLGswyixAwcOcNxxx7Fy5UpmzJihZFGIRCeLc9x9S5gQZpvZZ4XUjfXtl+8G4WHCmQTBPbhLJ8zyrX379uzcuZOpU6cyduxYAB555BHOPPPMMo5MqroJEyaUdQglsn//fh544AGefPJJBg8ezJgxY2jatGlZh1WuJTRZuPuW8O92M3uNoFtpm5k1DvcqGgPbw+qbgOj/VhNgSyLjq0iqV6/O0KFDGTJkCFOnTiUjI0PJQqSEtm/fjruTkZGhJFFECUsWZlYHqObu34fPLwTGAjOB4cD48O/r4SwzgZfM7C/AyUArYHGi4quocpKGSFnKzs5m//79ANSqVYtq1SrWWfjNmjXjT3/6U1mHUaEkcs/iJOC1sG+9OvCSu//LzJYA083sBuArYBCAu68ws+nASuAQMNLdDycwPhEpof3797Nu3TogOAZVu3btMo5IEi1hycLd1wEdY5R/C/QpYJ5xwLhExSQiIiVTsfYdRUSkTChZiIhIXEVKFmZ2TlHKRESkcirqnsX/FrFMREQqoUIPcJvZ2UA3INnMfhs1qR6gcZtEChB9aikEp5eKVGTxzoaqCdQN6x0XVb4buCJRQYlUdNGnlkJweqlIRVZosnD3/wD/MbPJ7v7lUYpJRETKmaJeZ3GMmU0CmkfP4+7nJSIoEREpX4qaLF4BngCeAnRVtYhIFVPUZHHI3R9PaCQiIlJuFfXU2TfM7FYzaxzeFrWhmTVMaGQiIlJuFHXPYnj4d3RUmQM6xUNEpAooUrJw9xaJDkRERMqvIiULMxsWq9zdnyvdcEREpDwqajdU9C3ZahEMMf4RoGQhIlIFFLUb6pfRr82sPvB8QiISEZFyp6RDlGcR3PZURESqgKIes3iD4OwnCAYQbANML+K8SUA6sNndLw1PuZ1GcDX4BuBKd98Z1h0D3EBw4d8od/93kVsiIiIJU9RjFg9HPT8EfOnum4o476+AVQQj1QLcBcx19/Fmdlf4+k4zawsMAdoBJwNzzKy17sMtIlL2itQNFQ4o+BnByLMNgINFmc/MmgCXEAwTkqMfMCV8PgXoH1U+1d0PuPt6YC3QpSjrEZGyd/DgQRYvXhx5HDxYpK8JqSCK2g11JfAQMB8w4H/NbLS7vxpn1gnAHeQe3vwkd98K4O5bzaxRWH4KsCiq3qawLG8sI4ARAM2aNStK+CJyFGRkZDBs2DDq1KnD3r17ee655+jSRb/3KouidkPdA5zp7tsBzCwZmAMUmCzM7FJgu7svNbNeRViHxSjzfAXuk4BJAGlpafmmi0jZqVOnDvXq1YtfUSqcoiaLajmJIvQt8buwzgEuM7OLCa7NqGdmLwDbzKxxuFfRGMhZ7iagadT8TYAtRYxPREQSqKinzv7LzP5tZtea2bXAP4G3CpvB3ce4exN3b05w4Hqeuw8FZvLDWFPDgdfD5zOBIWZ2jJm1IDg1d3GxWiMiIgkR7x7cPyE4xjDazC4HuhN0Fy0EXizhOscD083sBuArYBCAu68ws+nASoIzrkbqTCgp72Lda7tatZJeviRSfsXrhpoA3A3g7jOAGQBmlhZO+1lRVuLu8wkOjuPu3xIMFxKr3jhgXFGWKVIexLrXdu3atcswIpHEiPcTqLm7L89b6O7pBBfViYhIFRAvWdQqZNqxpRmIiIiUX/GSxRIzuzFvYXi8YWliQhIRkfIm3jGLXwOvmdk1/JAc0oCawIAExiUiIuVIocnC3bcB3cysN5ASFv/T3eclPDIRESk3ino/i3eAdxIci4iIlFM6IVxEROJSshARkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiUrIQEZG4EpYszKyWmS02s4/NbIWZ/T4sb2hms81sTfi3QdQ8Y8xsrZmtNrOfJio2EREpnkTuWRwAznP3jkAq0NfMugJ3AXPdvRUwN3yNmbUluFd3O6Av8JiZJSUwPhERKaKEJQsP7Alf1ggfDvQDpoTlU4D+4fN+wFR3P+Du64G1QJdExSciIkWX0GMWZpZkZhnAdmC2u38InOTuWwHCv43C6qcAG6Nm3xSWiYhIGSvSEOUl5e6HgVQzO57gJkophVS3WIvIV8lsBDACoFmzZqURpogk0MGDB8nIyAAgNTWVmjVrlm1AUiJH5Wwod98FzCc4FrHNzBoDhH+3h9U2AU2jZmsCbImxrEnunubuacnJyYkMW0RKQUZGBsOGDWPYsGGRpCEVTyLPhkoO9ygws2OB84HPgJnA8LDacOD18PlMYIiZHWNmLYBWwOJExSdSXNnZ2WRlZZGVlUV2dnZZh1Oh1KlThzp16pR1GHIEEtkN1RiYEp7RVA2Y7u5vmtlCYLqZ3QB8BQwCcPcVZjYdWAkcAkaG3Vgi5cL+/ftZt24dAC1btqR27dplHJHI0ZOwZOHuy4EzYpR/C/QpYJ5xwLhExSQiIiWjK7hFRCQuJQsREYlLyUJEROJSshARkbiULEREJC4lCxERiUvJQkRE4lKyEBGRuJQsREQkLiULERGJS8lCRETiUrIQEZG4lCxERCQuJQsREYlLyUJEROJK6D24RSqi7Oxs9u/fH3ldq1YtqlXT7yqp2pQsRPKIviMe6K54IpDYe3A3NbN3zGyVma0ws1+F5Q3NbLaZrQn/NoiaZ4yZrTWz1Wb200TFJiJl6+DBgyxevDjyOHjwYFmHJHEkcs/iEPA7d//IzI4DlprZbOBaYK67jzezu4C7gDvNrC0wBGgHnAzMMbPWug+3SOWTkZHBsGHDqFOnDnv37uW5556jS5cuZR2WFCJhexbuvtXdPwqffw+sAk4B+gFTwmpTgP7h837AVHc/4O7rgbWAth6RSqpOnTrUq1ePOnXqlHUoUgRH5aidmTUHzgA+BE5y960QJBSgUVjtFGBj1GybwrK8yxphZulmlp6ZmZnQuEVEJJDwZGFmdYF/AL92992FVY1R5vkK3Ce5e5q7pyUnJ5dWmCIiUoiEJgszq0GQKF509xlh8TYzaxxObwxsD8s3AU2jZm8CbElkfCIiUjSJPBvKgKeBVe7+l6hJM4Hh4fPhwOtR5UPM7BgzawG0AhYnKj4RESm6RJ4NdQ7wc+ATM8sIy+4GxgPTzewG4CtgEIC7rzCz6cBKgjOpRupMKBGR8iFhycLdFxD7OARAnwLmGQeMS1RMIiJSMrqCW0TKjYMHD5KRkRF5nZqaSs2aNcsuIIlQshCRckMX65VfShYiUq7kXKwn5YuG0hQRkbiULEREJC4lCxERiUvJQkRE4tIBbqmydEc8kaJTspAqS3fEEyk6/YwSEZG4lCxERCQuJQsREYlLyUJEROJSshARkbiULEREJC4lCxERiUvJQkRE4krkPbifMbPtZvZpVFlDM5ttZmvCvw2ipo0xs7VmttrMfpqouKRqys7OJisrK/LIzs4u65BEKpRE7llMBvrmKbsLmOvurYC54WvMrC0wBGgXzvOYmSUlMDapYnKu1s55RA/zISLxJfIe3O+aWfM8xf2AXuHzKcB84M6wfKq7HwDWm9laoAuwMFHxiUjFoFutlg9He2yok9x9K4C7bzWzRmH5KcCiqHqbwrJ8zGwEMAKgWbNmCQxVRMoD3Wq1fCgvB7gtRpnHqujuk9w9zd3TkpOTExyWiJQHObdarVOnTlmHUmUd7WSxzcwaA4R/t4flm4CmUfWaAFuOcmwiIlKAo50sZgLDw+fDgdejyoeY2TFm1gJoBSw+yrGJiEgBEnbMwsxeJjiYfaKZbQLuB8YD083sBuArYBCAu68ws+nASuAQMNLdDycqNqm8dEMjkcRI5NlQVxUwqU8B9ccB4xIVj1QNuqGRSGLoJ5eIiMSlZCEiInHpHtwiUiHpYr2jS8lCKqzog9k6kF316GK9o0vJQiqs6IPZOpBdNeVcrCeJp59iIiISl5KFiIjEpWQhIiJxKVmIiEhcShYiIhKXkoWIiMSlU2dFpFKJvlhPF+qVHiULKfc0kqwUR87FeoAu1CtFShZS7mkkWSku3VGv9ClZiEilp3GkjpyShZQrGu9JEkHjSB05JQspVzTekyRKrHGktMdRdOUuWZhZX+BRIAl4yt3Hl3FIkgA6aC3lQaw9jtTUVCWQGMpVsjCzJODvwAXAJmCJmc1095VlG5kURaxfaUDMD54OWkt5kXePo6Auq+Js35VRuUoWQBdgrbuvAzCzqUA/QMminFm8eHG+shUrVnDfffdRq1Yt9u/fz9ixYwHylbVr145q1apRq1atyLw5exnRexuxykqjbqzX5XF95Tm26PL09HRq1arFihUr2Lt3LwB79+5lxYoVALnKY5UVVDe6vDh1S2N90aLrFnX7BirdMRFz97KOIcLMrgD6uvsvwtc/B85y99ui6owARoQvU4BPj3qgR8+JwDdlHUQCqX0VW2VuX2VuG8Bp7n5ccWYob3sWFqMsVzZz90nAJAAzS3f3tKMRWFlQ+yo2ta/iqsxtg6B9xZ2nvB1R3AQ0jXrdBNhSRrGIiEiovCWLJUArM2thZjWBIcDMMo5JRKTKK1fdUO5+yMxuA/5NcOrsM+6e/4jTDyYdncjKjNpXsal9FVdlbhuUoH3l6gC3iIiUT+WtG0pERMohJQsREYmrwiQLM2tqZu+Y2SozW2FmvwrLG5rZbDNbE/5tUNaxFpeZ1TKzxWb2cdi234flFb5t0cwsycyWmdmb4etK0z4z22Bmn5hZRs5piZWsfceb2atm9ln4GTy7srTPzE4L/285j91m9utK1L7fhN8rn5rZy+H3TbHbVmGSBXAI+J27twG6AiPNrC1wFzDX3VsBc8PXFc0B4Dx37wikAn3NrCuVo23RfgWsinpd2drX291To87Pr0ztexT4l7ufDnQk+D9Wiva5++rw/5YKdAaygNeoBO0zs1OAUUCau6cQnDg0hJK0zd0r5AN4nWAMqdVA47CsMbC6rGM7wnbVBj4CzqpMbSO4ZmYucB7wZlhWmdq3ATgxT1mlaB9QD1hPeEJMZWtfnjZdCLxfWdoHnAJsBBoSnP36ZtjGYretIu1ZRJhZc+AM4EPgJHffChD+bVSGoZVY2EWTAWwHZrt7pWlbaAJwB5AdVVaZ2ufALDNbGg5JA5WnfS2BTODZsBvxKTOrQ+VpX7QhwMvh8wrfPnffDDwMfAVsBb5z91mUoG0VLlmYWV3gH8Cv3X13WcdTWtz9sAe7wU2ALmaWUsYhlRozuxTY7u5LyzqWBDrH3TsBFxF0kfYo64BKUXWgE/C4u58B7KUCdsnEE14IfBnwSlnHUlrCYxH9gBbAyUAdMxtakmVVqGRhZjUIEsWL7j4jLN5mZo3D6Y0JfplXWO6+C5gP9KXytO0c4DIz2wBMBc4zsxeoPO3D3beEf7cT9Hd3ofK0bxOwKdzbBXiVIHlUlvbluAj4yN23ha8rQ/vOB9a7e6a7/xeYAXSjBG2rMMnCzAx4Gljl7n+JmjQTGB4+H05wLKNCMbNkMzs+fH4swT/4MypB2wDcfYy7N3H35gS7+fPcfSiVpH1mVsfMjst5TtAn/CmVpH3u/jWw0cxOC4v6ENw2oFK0L8pV/NAFBZWjfV8BXc2sdvgd2ofg5IRit63CXMFtZt2B94BP+KHf+26C4xbTgWYEb8wgd99RJkGWkJl1AKYQnKlQDZju7mPN7AQqeNvyMrNewO3ufmllaZ+ZtSTYm4Cgy+Yldx9XWdoHYGapwFNATWAdcB3htkrlaF9tggPBLd39u7CsUvz/wlPxBxOcUboM+AVQl2K2rcIkCxERKTsVphtKRETKjpKFiIjEpWQhIiJxKVmIiEhcShYiIhKXkoWIiMSlZCEiInH9f1SbHWQa0/VYAAAAAElFTkSuQmCC\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"from numpy import random\n",
"import matplotlib.pyplot as plt\n",
"import seaborn as sns\n",
"\n",
"# sample from a binomial distribution\n",
"data = random.binomial(n=100, p=.55, size=10000)\n",
"\n",
"# plot distribution and color critical region\n",
"ax = sns.histplot(data, bins=20,binwidth=.5, color=\"black\")\n",
"ax.set_title(\"Sampling distribution for X if $\\\\theta = 0.55$\")\n",
"ax.annotate(\"\", xy=(40, 500), xytext=(30, 500), arrowprops=dict(arrowstyle=\"<-\"))\n",
"ax.annotate(\"lower critical region \\n (2.5% of the distribution)\", xy=(40, 600), xytext=(22, 580))\n",
"ax.annotate(\"\", xy=(70, 500), xytext=(60, 500), arrowprops=dict(arrowstyle=\"->\"))\n",
"ax.annotate(\"upper critical region \\n (2.5% of the distribution)\", xy=(70, 500), xytext=(55, 580))\n",
"ax.set(xlim=(20,80))\n",
"for p in ax.patches:\n",
" if p.get_x() >= 40:\n",
" if p.get_x() <= 60:\n",
" p.set_color(\"lightgrey\")\n",
"\n",
"\n",
" \n",
"glue(\"esp-alternative-fig\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "civil-panel",
"metadata": {},
"source": [
"```{glue:figure} esp-alternative-fig\n",
":figwidth: 600px\n",
":name: fig-esp-alternative\n",
"\n",
"Sampling distribution under the *alternative* hypothesis, for a population parameter value of $\\\\theta$ = 0.55. A reasonable proportion of the distribution lies in the rejection region.\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "active-coating",
"metadata": {},
"source": [
"### The power function\n",
"\n",
"Let's take a moment to think about what a Type II error actually is. A Type II error occurs when the alternative hypothesis is true, but we are nevertheless unable to reject the null hypothesis. Ideally, we'd be able to calculate a single number $\\beta$ that tells us the Type II error rate, in the same way that we can set $\\alpha = .05$ for the Type I error rate. Unfortunately, this is a lot trickier to do. To see this, notice that in my ESP study the alternative hypothesis actually corresponds to lots of possible values of $\\theta$. In fact, the alternative hypothesis corresponds to every value of $\\theta$ *except* 0.5. Let's suppose that the true probability of someone choosing the correct response is 55\\% (i.e., $\\theta = .55$). If so, then the *true* sampling distribution for $X$ is not the same one that the null hypothesis predicts: the most likely value for $X$ is now 55 out of 100. Not only that, the whole sampling distribution has now shifted, as shown in {numref}`fig-esp-alternative`. The critical regions, of course, do not change: by definition, the critical regions are based on what the null hypothesis predicts. What we're seeing in this figure is the fact that when the null hypothesis is wrong, a much larger proportion of the sampling distribution distribution falls in the critical region. And of course that's what should happen: the probability of rejecting the null hypothesis is larger when the null hypothesis is actually false! However $\\theta = .55$ is not the only possibility consistent with the alternative hypothesis. Let's instead suppose that the true value of $\\theta$ is actually 0.7. What happens to the sampling distribution when this occurs? The answer, shown in {numref}`fig-esp-alternative2`, is that almost the entirety of the sampling distribution has now moved into the critical region. Therefore, if $\\theta = 0.7$ the probability of us correctly rejecting the null hypothesis (i.e., the power of the test) is much larger than if $\\theta = 0.55$. In short, while $\\theta = .55$ and $\\theta = .70$ are both part of the alternative hypothesis, the Type II error rate is different."
]
},
{
"cell_type": "code",
"execution_count": 79,
"id": "manufactured-annex",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "esp-alternative-fig2"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEKCAYAAADjDHn2AAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAAvAklEQVR4nO3deZgU1dn38e/NgGwjBBQQUMQtgsBsLAKyiLig+ACCxjXgbhTFGJdgTDTR8Dwm7iQxuVQEQlwgRBOixJeAEEFG2URkX5R1WAZZhnUQuN8/uqfTM9MzNVsz2+9zXX1N96lTVffpqe6761TVKXN3REREClOjvAMQEZGKT8lCREQCKVmIiEggJQsREQmkZCEiIoGULEREJJCShYiIBFKyEBGRQEoWUiJmtt7MLg0/X2ZmF5+AdY4zs19HvS6z9eZdVnT74rH8Mlzu+Wb2hZntM7MRZb38Iqw/0q7yjkXiS8mikjGzHmY218z2mtkuM/vUzDqXZ0zu3s7dZ1XU9Rbli78s2xBrfXF8jx4DZrn7ye4+ujQLMrPEcOw3RZWdbGYbzezaWPPkaVdgLGaWGt5mD5rZPDNrVZqYw8tsbGbvm9kBM9sQHX+MuvvzPI6Z2e9KG0N1oGRRiZhZA+AD4HdAY6Al8CsguzzjqszMrGZ5x1BKZwLLijtTrHa7+37gbuAVM2sSLv4tsMDdJ5c2FjM7HZgK/AY4Bfga+HkxQ4/lD8ARoBlwM/BHM2sXq6K7J+Y8wvUPAX8tgxiqPnfXo5I8gE7AnkKmjwTWAfuA5cA1UdPWA48CS4ADwBhCH5Z/hetPBxrlqf94eDm7gbFAnTzTLy3g+SPh9ewFJuaZLw34IrzOv4an/7qA9qQCi8J1JwLvRtfNs96fAlvCdVcBfcPlE4DjhL4U9hP69bs+XH8JoURbM3pZQe0HHDg3qu64nLhirS9GrG2BWcAeQl+uA/Kst8D3L8/78zFwDDgcXtf3i7DsXO0uYLnjgHeAi4FvgeaFbHPrgUtjxRKj7kTg6ajXg4AvSvmZqE8oUXw/qmwC8GwR5h1GKGFZeX+2K8Oj3APQoxj/LGgQ/vCOB64k6ss9PP06oAWhPcbrCSWF5uFp64HPCCWIlsAOQl/EqUDt8If9qahlrQeWAmcQ2ov5lIK/qPM+nxeOozGwAvhReNpJwAbgQaAWMDj8Qc+XLKLqPhSuey3wXawYgPOBTUCLcHlr4JxYsUa9XhxuW91C6sRsP4Uki1jLyhNrLWAt8LNwGy8hlODOD3r/CtgmZgF3hp8XZdm52l3AMhsBW4GdwG0B22T0/z4SSwHb7mGgVVTZYCA9Rt0PCCW7WI8P8tRNBQ7lKXsE+GcRPk8fA78s7891ZXmoG6oScfcsoAehL6vXgUwzm2JmzcLT/+ruGe5+3N0nAmuALlGL+J27b3f3LcBs4HN3/8Lds4H3CX3wov3e3Te5+y5gFHBjEUMdHY5jF/BPICVc3pXQr/jR7v6du79H6Isxlq6EvvxeDtedDMwvoO4xQgnvAjOr5e7r3X1dEWLc5O6HCqlT0vYXpiuQSOiX7xF3/5jQl2P0sgt6/8pq2YW22913E9orqQe8V8R1B+lL6P+5xMz2mNke4C1CPwjyrv9qd/9eAY+r81RPJLQHFm0vcHJhwYSPlfQm9MNLikDJopJx9xXufqu7nw60J/QL9GUAMxtqZoujPoztgVOjZt8e9fxQjNeJeVa3Ker5hvC6imJb1PODUcttAWzx8M+6GOuIFqtuvi8WAHdfC/wY+CWww8zeNbOgWAtab0F1itP+wrQANrn78TzLbhn1uqD3ryyWHdhuM7uF0N7ZdELHF8pCa2BK9Bc/MBP4qJTL3U9oryVaA0J7VIUZCsxx929Kuf5qQ8miEnP3lYS6QNqb2ZmE9jbuB04JfxiXAlaKVZwR9bwVkFGKZUGoa6OlmUXHdEYx6hZ45oy7v+3uPQgdZHVyf8nFumlLUW7kUlD7DxL61Z3jtGIsOwM4w8yiP3utCB1vKa2iLLvQdptZU+Al4C7gHuAHZtarDGKrTeh9y1nPWYSOwU2JEcO/Ypy1lPP4V57qq4GaZnZeVFkywQf9h6K9imJRsqhEzKyNmT0cPqsEMzuDUBfDZ4QO9DmQGZ52G6E9i9IYbmanm1ljQv3gE0u5vHRCXUb3m1lNMxtI7m6yvHWPAiPCdQcXVDd8fv8lZlabUL/4ofB6cmwHzi5BvAW1fzFwk5klmFk/Qt0Z0Qpb3+eEjiU9Zma1wtco/A+hg/elVRbL/j3wd3ef6e5bCZ0Q8Hr4vS2N+UBvM2sR3m7fBp4Id7Xl4u5XetRZS3keV+ape4BQV9nTZlbfzC4CBhI6yB2TmXUntLels6CKQcmictkHXAh8bmYHCCWJpcDD7r4ceIHQl+x2oAOhg7Kl8TYwjdAZI18Dvy68euHc/Qihg5p3EDpYeQuhPvV8p/5G1b2V0NlI11Nw/3lt4FlCB2S3AU0Jfbnn+D/g5+HuuUeKEXJB7X+Q0JfwHkKnav49z3wFri/crgGETlDYCbwKDA3vJZZKaZdtZoMIHRN7NGqZbwCbgSdLGd7HhI6/rAbmABPc/fVSLjPHfUBdQidtvAPc6+6RPYvwnkr09jAMeM/dg7qqJIrl7hIWCTGz9YTObJke5/V8DvzJ3cfGcz0iUjras5ATysx6m9lp4a6lYUASpT/IKSJxVtmvXpXK53xgEqEzfNYB14b7xkWkAlM3lIiIBFI3lIiIBKrU3VCnnnqqt27durzDEBGpVBYuXLjT3ZsE1/yvSp0sWrduzYIFC8o7DBGRSsXMYo6GUBh1Q4mISCAlCxERCaRkISIigZQsREQkkJKFiIgEUrIQEZFAShYiIhJIyUJERAJV6ovyRERKIzs7m0WLFkVep6WlAeQrq127dsy6tWuX9p5QlYeShYhUW4sWLeLWW2+lfv36HDhwgHHjxgHkK+vWrVvMut26dSvfBpxAShYiUq3Vr1+fhg0bBpYVVl4d6JiFiIgEUrIQEZFAShYiIhJIyUJERAIpWYiISCAlCxERCaRkISIigZQsREQkkJKFiIgEUrIQEZFAShYiIhJIyUJERALFNVmY2UNmtszMlprZO2ZWx8wam9m/zWxN+G+jqPqPm9laM1tlZlfEMzYRESm6uCULM2sJjAA6uXt7IAG4ARgJzHD384AZ4deY2QXh6e2AfsCrZpYQr/hERKTo4t0NVROoa2Y1gXpABjAQGB+ePh4YFH4+EHjX3bPd/RtgLdAlzvGJiEgRxC1ZuPsW4HlgI7AV2Ovu04Bm7r41XGcr0DQ8S0tgU9QiNofLcjGzu81sgZktyMzMjFf4IiISJZ7dUI0I7S2cBbQA6pvZLYXNEqPM8xW4v+bundy9U5MmTcomWBERKVQ875R3KfCNu2cCmNl7QHdgu5k1d/etZtYc2BGuvxk4I2r+0wl1W4mIVEjV6b7c8UwWG4GuZlYPOAT0BRYAB4BhwLPhv/8I158CvG1mLxLaEzkPmBfH+ERESqU63Zc7bsnC3T83s8nAIuAo8AXwGpAITDKzOwgllOvC9ZeZ2SRgebj+cHc/Fq/4RETKQnW5L3c89yxw96eAp/IUZxPay4hVfxQwKp4xiYhI8ekKbhERCaRkISIigZQsREQkkJKFiIgEiusBbhGRiqA6XQ8RL0oWIlLlVafrIeJFyUJEqoXqcj1EvOiYhYiIBFKyEBGRQEoWIiISSMlCREQCKVmIiEggnQ0lIlLGquJ1HUoWIiJlrCpe16FkISISB1Xtug4dsxARkUBKFiIiEkjJQkREAilZiIhIICULEREJpGQhIiKBlCxERCSQkoWIiARSshARkUBKFiIiEkjJQkREAilZiIhIoGqVLBITE8s7hEJ1794dgPXr1/P2229HyhcsWMCIESNKtMyLL76YBQsWlEl80aZMmcKzzz5b5suVqi8jI4Nrr70WgMWLFzN16tTItNJsV61bt2bnzp1lEmO0999/nz//+c9lvtzKplolixPl2LFjJao/d+5cIH+y6NSpE6NHjy67AAtYf3EMGDCAkSNHxiEaqSzcnePHjxdrnqNHj9KiRQsmT54M5E8W8d6u3L3Y81xzzTUMHTo0DtFULtUyWbg7jz76KO3bt6dDhw5MnDgRgPvuu48pU6YAoQ3k9ttvB2DMmDH8/Oc/B+Avf/kLXbp0ISUlhXvuuSfyRZuYmMiTTz7JhRdeSHp6eq71rV27lksvvZTk5GTS0tJYt24ds2bNok+fPtx000106NAhsgyAkSNHMnv2bFJSUnjppZeYNWsWV199NQD79+/ntttuo0OHDiQlJfG3v/0NgHvvvZdOnTrRrl07nnrqqcD3oHXr1jz99NP06NGDv/71r0ybNo1u3bqRlpbGddddx/79+wGYOnUqbdq0oUePHowYMSISx7hx47j//vsB2LBhA3379iUpKYm+ffuyceNGAG699VZGjBhB9+7dOfvssyNfEBIf69evp3379pHXzz//PL/85S+B0B7mj3/8Y7p370779u2ZN28eAL/85S/54Q9/yCWXXMJ5553H66+/Hpn/ueeeo3PnziQlJUW2qfXr19O2bVvuu+8+0tLS2LRpU64Y5s+fT/fu3UlOTqZLly7s27ePcePGcd111/E///M/XH755ZE4jxw5wpNPPsnEiRNJSUlh4sSJubar7du3c80115CcnExycnLkx9SgQYPo2LEj7dq147XXXgt8XxITE3n99ddZtWoVe/fuZdeuXdxxxx2kpKTwm9/8JpJAvv32W66//nqGDx/Oxo0bWb16NQBvvPEGzz//PAAHDx5k4cKFrFixgpEjR5KVlQXAF198wZYtW7jjjjv4/ve/z+LFi4v1v6sMquX9LN577z0WL17Ml19+yc6dO+ncuTO9evWiV69ezJ49mwEDBrBlyxa2bt0KwJw5c7jhhhtYsWIFEydO5NNPP6VWrVrcd999vPXWWwwdOpQDBw7Qvn17nn766Xzru/nmmxk5ciTXXHMNhw8f5vjx42zatIl58+axdOlSzjrrrFz1n332WZ5//nk++OADAGbNmhWZ9swzz9CwYUO++uorAHbv3g3AqFGjaNy4MceOHaNv374sWbKEpKSkQt+HOnXqMGfOHHbu3MngwYOZPn069evX5ze/+Q0vvvgijz32GPfccw+ffPIJZ511FjfeeGPM5dx///0MHTqUYcOG8eabbzJixAj+/ve/A7B161bmzJnDypUrGTBgQKT7QU68AwcOMHfuXD755BNuv/12li5dCsCSJUv47LPPOHDgAKmpqfTv35+lS5eyZs0a5s2bh7szYMAAPvnkE1q1asWqVasYO3Ysr776aq7lHzlyhOuvv56JEyfSuXNnsrKyqFu3LgDp6eksWbKExo0bs379egBOOukknn76aRYsWMDvf/97IPQjJMeIESPo3bs377//PseOHYv8gHnzzTdp3Lgxhw4donPnzgwZMoRTTjml0HafffbZnH/++dSsWZPdu3czYcIEevbsyeDBg9m1axd169Zl27ZtTJkyhXr16nHllVfGvLPdhg0baNOmDWbGOeecw5tvvhmZ5u6MGTOG3bt3F+kHW2VTLfcs5syZw4033khCQgLNmjWjd+/ezJ8/n549ezJ79myWL1/OBRdcQLNmzdi6dSvp6el0796dGTNmsHDhQjp37kxKSgozZszg66+/BiAhIYEhQ4bkW9e+ffvYsmUL11xzDRD6gq5Xrx4AXbp0yZcogkyfPp3hw4dHXjdq1AiASZMmkZaWRmpqKsuWLWP58uWBy7r++usB+Oyzz1i+fDkXXXQRKSkpjB8/ng0bNrBy5UrOPvvsSIwFJYv09HRuuukmAH74wx8yZ86cyLRBgwZRo0YNLrjgArZv316stkrZyvn/9erVi6ysLPbs2QPAwIEDqVu3Lqeeeip9+vRh3rx5TJs2jWnTppGamkpaWhorV65kzZo1AJx55pl07do13/JXrVpF8+bN6dy5MwANGjSgZs3Q79HLLruMxo0bFyvejz/+mHvvvRcIfb5ybiQ0evRokpOT6dq1K5s2bYrEVZCEhAQuvvhiIPTj6uDBg5E9i4ULF3LkyBGysrJITEyMxPy9730v33L279/PsWPHItOuvPLKXHsQOeUdO3aM/NCsSqrlnkVB/ZYtW7Zk9+7dfPTRR/Tq1Ytdu3YxadIkEhMTOfnkk3F3hg0bxv/93//lm7dOnTokJCQUeV0QupNWSWI3s1xl33zzDc8//zzz58+nUaNG3HrrrRw+fDhwWTnrd3cuu+wy3nnnnVzTv/jii2LHB+SKL/rXWUn6i6XoatasmesYQt5tIO92k/M6Vrm78/jjj3PPPffkmrZ+/foCt9tY22aOkmzrscyaNYvp06eTnp5OvXr1uPjiiwO39byfzVNOOYXx48fTrVs30tPTGT58OEeOHCl1bDVqhH57JyQklOg4YEVXLfcsevXqxcSJEzl27BiZmZl88skndOnSBYBu3brx8ssv06tXL3r27Mnzzz9Pz549Aejbty+TJ09mx44dAOzatYsNGzYUuq4GDRpw+umnR7plsrOzOXjwYKHznHzyyezbty/mtMsvvzyyyw6hX0pZWVmRWzhu376df/3rX0V6H3J07dqVTz/9lLVr1wKhftnVq1fTpk0bvv7660i3Qc6xnby6d+/Ou+++C8Bbb71Fjx49irV+KRvNmjVjx44dfPvtt2RnZ0e6MXPk/P/mzJlDw4YNI7/U//GPf3D48GG+/fZbZs2aRefOnbniiit48803I10/W7ZsiWz3BWnTpg0ZGRnMnz8fCO1VHz16tNB5CtvW+/btyx//+EcgdBJGVlYWe/fupVGjRtSrV4+VK1fy2WefBbwruTVq1Ig9e/awa9cuALKysjhy5AgNGjRg//79ZGVlcfToUfbu3Ztv3sTERBISEiJ7ZB999BGpqanFWn9lVi2TxTXXXENSUhLJyclccskl/Pa3v+W0004DoGfPnhw9epRzzz2XtLQ0du3aFUkWF1xwAb/+9a+5/PLLSUpK4rLLLivS7uaECRMYPXo0SUlJdO/enW3bthVaPykpiZo1a5KcnMxLL72Ua9rPf/5zdu/eTfv27UlOTmbmzJkkJyeTmppKu3btuP3227nooouK9X40adKEcePGceONN5KUlETXrl1ZuXIldevW5dVXX6Vfv3706NGDZs2axbyn8OjRoxk7dixJSUlMmDCBV155pVjrl7JRq1atyEkWV199NW3atMk1vVGjRnTv3p0f/ehHjBkzJlLepUsX+vfvT9euXfnFL35BixYtuPzyy7npppvo1q0bHTp04Nprry3wSz3HSSedxMSJE3nggQdITk7msssuC/zV36dPH5YvXx45wB3tlVdeYebMmXTo0IGOHTuybNky+vXrx9GjR0lKSuIXv/hFzO6wwtSvX5/mzZvz0EMPkZSUxIMPPsh3331H7dq1adasGXfddRcPPvggderUiXShRTvzzDNZt24dK1asYM2aNdx2223FWn+l5u6V9tGxY0eX+Nq3b5+7ux8/ftzvvfdef/HFF8s5IimJ3r17+/z58/OVP/XUU/7cc8+VQ0Qn1ty5cz01NdUvvvhiT01N9blz5+YrT0pK8rlz5/onn3ziDRo08Hbt2hVYN6e8KMuNLq8ogAVezO/bannMQoru9ddfZ/z48Rw5coTU1NR8fdgiVcW2bdsYNmwY2dnZ1K5dm1NPPTVyaqxU0wPcUnQPPfQQDz30UHmHIaUUffp1tJzrMCR0gssf/vAHAIYPH17gwfrqKq7HLMzse2Y22cxWmtkKM+tmZo3N7N9mtib8t1FU/cfNbK2ZrTKzK+IZm4iIFF28D3C/Anzk7m2AZGAFMBKY4e7nATPCrzGzC4AbgHZAP+BVM8t/LmoZcXcuueQSsrKy2LRpE3369KFt27a0a9euwAO0s2bNomHDhqSkpJCSkhK5AC8zM5MePXrQvn37yFlPEDp/PSMjo1hxZWZmcuGFF5Kamsrs2bNzTXv55ZdznUlVlmNdRY8hddVVV0XO+Iglbxx53XnnnZHrPIobY1mOFZSZmUm/fv1KNG9VoG08tzVr1kS6lR5++OFCt/EdO3YUevrrxo0b+eabbwD48ssvixVHZd3G45YszKwB0AsYA+DuR9x9DzAQGB+uNh4YFH4+EHjX3bPd/RtgLdAlXvFNnTqV5OTkyEU4L7zwAitWrOCzzz7jD3/4Q4EXtfXs2ZPFixezePFinnzySQDeeecdhg0bRnp6Os899xwA//znP0lLS6NFixbFimvGjBm0adOGL774InIWVo6gL+myMnXq1JgXJRUljmPHjvHGG29wwQUXlGjdZTlWUJMmTWjevDmffvppieav7KrrNp6dnU16ejrp6elkZ2fHrPPCCy8Uuo1nZmYWmCzcnVatWhX7gtoclXUbj+eexdlAJjDWzL4wszfMrD7QzN23AoT/Ng3XbwlEDzSzOVyWi5ndbWYLzGxBZmZmiYN76623GDhwIADNmzcnLS0NCJ333bZtW7Zs2VLkZdWqVYtDhw6RnZ1NjRo1OHr0KC+//DKPPvpogfPEGk9p8eLFPPbYY0ydOpWUlBQOHToUqT969GgyMjLo06cPffr0iZQ/8cQTkatZc66QzszMZMiQIXTu3JnOnTvH3JAOHTrEDTfcQFJSEtdff32udeWM3nngwAH69+9PcnIy7du3Z+LEiTHjyDsuVt6Rbh9++GHS0tLo27cvOf+z6Do7d+6kdevWgWMFlWQMqkGDBvHWW28V8T9ZtVTXbXzRokXceuutDB06lP79+0dOs42+YHHw4MHs3LmTQ4cOsW7dOubPn8+KFSuYPn06kyZN4rvvvuPLL7+MXB2ed3ypNWvWsGLFisjy1q5dy8qVK3nggQci23j0nsyePXsq/zZe3NOnivoAOgFHgQvDr18BngH25Km3O/z3D8AtUeVjgCGFraM0p862atXKs7Ky8pV/8803fsYZZ/jevXvzTZs5c6Y3btzYk5KSvF+/fr506VJ3d9+zZ49fddVV3rFjR58+fbq/8sorPm7cuELXf/XVV0fqjBkzxgcOHOju7mPHjvXhw4fHnOfMM8/0zMzMyGvAp0yZ4u7ujz76qD/zzDPu7n7jjTf67Nmz3d19w4YN3qZNm3zLeuGFF/y2225zd/cvv/zSExISIqdW5qxn8uTJfuedd0bm2bNnT4FxTJw4MfI6+jRNwP/yl7+4u/uvfvWrSNui62RmZvqZZ54Zs/3Rrwt6z4YNG+bXXnutHzt2zJctW+bnnHNOZP7Nmzd7+/btY76fVV113cZzTltt2bKl9+/f393d//znPzvgaWlpnpqa6qeddppnZmb6qFGj/JRTTomc4jpt2jSfO3eun3TSSd69e/fIaa+AP/PMM5HTYRMTE33MmDGRaW3btvXU1FS/8847ffjw4T537lxPTEyMrG/q1Kl+5pln+uHDh/2JJ57wIUOG+OHDh/O9HydqG6cEp87Gc89iM7DZ3T8Pv54MpAHbzaw5QPjvjqj6Z0TNfzpQvM7QYti1axcnn3xyrrL9+/czZMgQXn75ZRo0aJBvnrS0NDZs2MCXX37JAw88wKBBgwBo2LAhH374IQsWLCAtLY0PPviAIUOGcNddd3HttdfmG4UWCh9PqahOOumkyCiwHTt2jFxpPX36dO6//35SUlIYMGAAWVlZ+S6o+uSTT7jllluA0EWAsQYd7NChA9OnT+enP/0ps2fPjnlBHhQ8LhaEhkDIGYPqlltuKVE7c5RkDKqmTZsWu0+9qqju2/j+/fu54orQeTLnnntuZFDDaOeccw779u1j3bp17N+/v8BjJNHjS8XSpEkTAK644opC27lo0SLeeOMNpk+fzqJFi/JNr8jbeNyShbtvAzaZ2fnhor7AcmAKMCxcNgz4R/j5FOAGM6ttZmcB5wHz4hVf3nF0vvvuO4YMGcLNN9/M4MGDY87ToEGDyMZ01VVX8d133+W72crTTz/NE088wTvvvEPHjh158803+dnPfhYYT0lO06tVq1ZkvoSEhMjQCsePHyc9PT3S77xly5Z8XxpFWef3v/99Fi5cSIcOHXj88cdjjqgLBY+LFUvOOqPf/6KMY1XYsqDgMagOHz4c80uiOtA2HrzOVq1acf7551O/fn0yMjJyjSIbrSTbeLTosadq165NrVq1ir2s8t7G43021APAW2a2BEgB/hd4FrjMzNYAl4Vf4+7LgEmEEspHwHB3j9toXOeff35kxFh354477qBt27b85Cc/KXCebdu2Rf5J8+bN4/jx47mGRl6zZg0ZGRn07t2bgwcPUqNGDcws5pdhScZTKmwcnWh5x4+KNbZ+r169Iv2cS5cuZcmSJfnqZGRkUK9ePW655RYeeeSRyC+hosYBoQ91Tv/q22+/HWln69atWbhwIUCu/tfCll2S92z16tW57vFQnVT3bTwxMZFp06YBsG7dulzHR3JkZmZSo0YNTjvtNJo2bcqqVauA0B5xcQYDzDlOMW3atEg7a9euHWnLzJkzI3UTEhIKvGlURd7G43pRnrsvJnTsIq++BdQfBYyKZ0w5+vfvz6xZszj33HP59NNPmTBhAh06dCAlJQWA//3f/+Wqq67iT3/6EwA/+tGPmDx5Mn/84x+pWbMmdevW5d13382V+Z944glGjQqFf+ONNzJo0CBeeeWVmL/IR48eze23385zzz1HkyZNGDt2bGDMd999N1deeSXNmzfPtfHFWvbw4cNJSkri6NGj9OrVK9KOHPfeey+33XYbSUlJpKSkRAZSjPbVV1/x6KOPUqNGDWrVqhUZ1K2ocUBoLJ5ly5bRsWNHGjZsGBn/55FHHuEHP/gBEyZM4JJLLonU79OnD88++ywpKSk8/vjj+dpV3Pds5syZ9O/fP7BeVVTdt/FTTz2VgwcPkpSURMuWLWOOfLtu3TpWrVpFQkIC7h65ydmpp57KkiVLirQ3UaNGDQ4ePMj69esxMz766CPWrl1L06ZNIweoo7t5ExMT2b59O8OGDeOZZ57J164Ku40X9yBHRXqU5gB3RkaGX3rppSWeXyqHnj17+q5du8o7jHJRXbfxnAPcRRmrqbTjPRV3bKhYsZVWSbZxKtgB7gqtefPm3HXXXRr7pQrLzMzkJz/5SeQGUdWNtvGq70Ru49V6bKgf/OAH5R2CxFGTJk0iZ/NUV9rGq7YTuY1X62QhIpVXdnZ2rtNP09LSYt43W8qGkoWIVEo5V2rXr1+fAwcOMG7cOLp161beYVVZShYiUmnl3E5Y4q/aHuAWEZGiU7IQEZFAShYiIhJIyUJERAIpWYiISCAlCxERCaRkISIigZQsREQkkJKFiIgEUrKohFavXp3rBvUiUjz79+9nypQpxbrBUXVXpGRhZhcVpUzia/Xq1QwdOpSLLrqItWvXlnc4IpXWkSNH+O1vf8vNN9/Mrl27ct2mVGIr6thQvwPSilAmcbBt2zYGDBjA8uXL6dWrFw899BC7du3ipZdeKu/QSuS6667j9NNPL+8wpAy88847bNu2rVzWvX79enbs2EFWVhaHDx/m3Xff5bPPPouUA/nKcupOmzaNwYMHM2fOHD788EMyMjJo2rRpubSjsoyeW2iyMLNuQHegiZlF37i3AVC0u5dLqR04cIBt27ZRs2ZNjh07xvbt26lRo/L2IB48eLC8Q5AysnnzZjIyMspl3du3b+fIkSOYGUeOHIl8LnLKc+pEl+Wte/jwYcyMo0eP8t1335VLOyrL6LlBexYnAYnheidHlWcB18YrKMntnHPOYePGjfznP//hV7/6FR9++CGjR4/mqquuKu/QpJp79NFHy23d6enprF69moYNG7J3714efPBBunXrFikH8pXl1L3jjjsYO3Ys6enpNG7cmHPOOYcDBw6UW1sqw+i5hSYLd/8P8B8zG+fuG05QTFKA3r178/HHH/Of//yH3bt3l3c4IidEPLppjhw5wkUXXcTtt9/OY489Rs2aultDkKK+Q7XN7DWgdfQ87n5JPIKSwvXu3bu8QxA5YeLRTdO4cWP69+9Penp6GUVZ9RU1WfwV+BPwBqBzzUTkhKoM3TRVXVGTxVF3/2NcIxERkQqrqKfU/NPM7jOz5mbWOOcR18hERKTCKOqexbDw3+hTHxw4u2zDERGRiqhIycLdz4p3ICIiUnEVKVmY2dBY5e7+57INR0REKqKidkN1jnpeB+gLLAKULEREqoGidkM9EP3azBoCE+ISkYiIVDglHWDoIHBeWQYiIiIVV1GPWfyT0NlPEBpAsC0wKV5BiYhIxVLUYxbPRz0/Cmxw981xiEdERCqgInVDhQcUXElo5NlGwJF4BiUiIhVLUe+U9wNgHnAd8APgczPTEOUiItVEUbuhngA6u/sOADNrAkwHJscrMBERqTiKejZUjZxEEfZtMeYVEZFKrqh7Fh+Z2f8D3gm/vh6YGp+QRESkogm6B/e5QDN3f9TMBgM9AAPSgbdOQHwiIlIBBHUlvQzsA3D399z9J+7+EKG9ipeLsgIzSzCzL8zsg/Drxmb2bzNbE/7bKKru42a21sxWmdkVJWmQiEhVkJ2dTXp6euSRnZ1drvEEdUO1dvcleQvdfYGZtS7iOh4EVgANwq9HAjPc/VkzGxl+/VMzuwC4AWgHtACmm9n33V135hORaicet5MtjaA9izqFTKsbtHAzOx3oT+h2rDkGAuPDz8cDg6LK33X3bHf/BlgLdAlah4hIVZVzO9n69euXdyiByWK+md2Vt9DM7gAWFmH5LwOPAcejypq5+1aA8N+m4fKWwKaoepvDZXnXfbeZLTCzBZmZmUUIQURESiuoG+rHwPtmdjP/TQ6dgJOAawqb0cyuBna4+0Izu7gIsViMMs9X4P4a8BpAp06d8k0XEZGyV2iycPftQHcz6wO0Dxd/6O4fF2HZFwEDzOwqQt1ZDczsL8B2M2vu7lvNrDmQc/3GZuCMqPlPBzKK0RYREYmToo4NNdPdfxd+FCVR4O6Pu/vp7t6a0IHrj939FmAK/72n9zDgH+HnU4AbzKy2mZ1FaAj0ecVoi4iIxElRL8orS88Ck8LHPTYSGm8Kd19mZpOA5YRGth2uM6FERCqGE5Is3H0WMCv8/FtCt2WNVW8UMOpExCQiIkVXHnsWIiIxZWdns2jRosjrtLS0coxGoilZiEiFEetCNKkYlCxEpELJuRBNKhYNMy4iIoGULEREJJCShYiIBFKyEBGRQEoWIiISSMlCREQCKVmIiEggJQsREQmkZCEiIoGULEREJJCShYiIBFKyEBGRQEoWIiISSKPOiohUErHu91G7du0Tsm4lCxGRSiLW/T66det2QtatZCEiUomU1/0+dMxCREQCKVmIiEggJQsREQmkYxYicsKV51k9UjJKFiJywpXnWT1SMkoWIlIuyuusHikZHbMQEZFAShYiIhJIyUJERAIpWYiISCAlCxERCaRkISIigZQsREQkkJKFiIgEUrIQEZFAShYiIhJIyUJERAIpWYiISCAlCxERCRS3ZGFmZ5jZTDNbYWbLzOzBcHljM/u3ma0J/20UNc/jZrbWzFaZ2RXxik1ERIonnnsWR4GH3b0t0BUYbmYXACOBGe5+HjAj/JrwtBuAdkA/4FUzS4hjfCIiUkRxSxbuvtXdF4Wf7wNWAC2BgcD4cLXxwKDw84HAu+6e7e7fAGuBLvGKT0REiu6E3PzIzFoDqcDnQDN33wqhhGJmTcPVWgKfRc22OVyWd1l3A3cDtGrVKo5Ri4hUDifiNrVxTxZmlgj8Dfixu2eZWYFVY5R5vgL314DXADp16pRvuohIdXMiblMb12RhZrUIJYq33P29cPF2M2se3qtoDuwIl28Gzoia/XQgI57xiYhUFfG+TW08z4YyYAywwt1fjJo0BRgWfj4M+EdU+Q1mVtvMzgLOA+bFKz4ROTGys7NJT08nPT2d7Ozs8g5HSiieexYXAT8EvjKzxeGynwHPApPM7A5gI3AdgLsvM7NJwHJCZ1INd/djcYxPRE6AnC4SIC7dI3JixC1ZuPscYh+HAOhbwDyjgFHxiklEykf9+vXLOwQpJV3BLSIigZQsREQkkJKFiIgEUrIQEZFAShYiIhJIyUJERAIpWYiISCAlCxERCXRCRp0VkarvRIx8KuVHyUJEysSJGPlUyo+ShYiUmXiPfCrlR8lCRKSKiu4aLG23oA5wi4hUUTldg7feemuu40kloT0LEZEqrKxG/NWehYiIBFKyEBGRQEoWIiISSMlCREQCKVmIiEggJQsREQmkZCEiIoF0nYWIFNvx48c5fPgwAHXq1KFGDf3urOr0HxaRYjt8+DBff/01X3/9dSRpSOWQnZ1dovmULEREqpGSDvuhZCEiIoGULEREJJAOcItIgaIPZIMOZldnShYiUqCcA9k5zj77bOrVq1eOEUl50U8EEREJpGQhIiKBlCxERCSQkoWIiARSshARkUBKFiIiEkinzoqIrqeQQEoWIqLrKSSQfjqIiEgg7VmIVDOxupxEgihZiFQzsbqcRIJUuG4oM+tnZqvMbK2ZjSzveEREpILtWZhZAvAH4DJgMzDfzKa4+/LyjUwkfopzJlJBdWPd5lRnOElZqlDJAugCrHX3rwHM7F1gIKBkIVVW3m6hFi1aFHgc4fDhw2RkZOSrG10eqyxved5lxlpPrGmxyj///HPq1KnDV199xYEDBwA4cOAAX331FUCu8lhlBdWNLi9O3RO9voocW0HrKwlz9xLNGA9mdi3Qz93vDL/+IXChu98fVedu4O7wy/bA0hMe6IlzKrCzvIOII7WvcqvK7avKbQM4391PLs4MFW3PwmKU5cpm7v4a8BqAmS1w904nIrDyoPZVbmpf5VWV2wah9hV3norWgbkZOCPq9elARgF1RUTkBKloyWI+cJ6ZnWVmJwE3AFPKOSYRkWqvQnVDuftRM7sf+H9AAvCmuy8rZJbXTkxk5Ubtq9zUvsqrKrcNStC+CnWAW0REKqaK1g0lIiIVkJKFiIgEqjTJwszOMLOZZrbCzJaZ2YPh8sZm9m8zWxP+26i8Yy0uM6tjZvPM7Mtw234VLq/0bYtmZglm9oWZfRB+XWXaZ2brzewrM1ucc1piFWvf98xsspmtDH8Gu1WV9pnZ+eH/W84jy8x+XIXa91D4e2Wpmb0T/r4pdtsqTbIAjgIPu3tboCsw3MwuAEYCM9z9PGBG+HVlkw1c4u7JQArQz8y6UjXaFu1BYEXU66rWvj7unhJ1fn5Vat8rwEfu3gZIJvR/rBLtc/dV4f9bCtAROAi8TxVon5m1BEYAndy9PaETh26gJG1z90r5AP5BaAypVUDzcFlzYFV5x1bKdtUDFgEXVqW2EbpmZgZwCfBBuKwqtW89cGqesirRPqAB8A3hE2KqWvvytOly4NOq0j6gJbAJaEzo7NcPwm0sdtsq055FhJm1BlKBz4Fm7r4VIPy3aTmGVmLhLprFwA7g3+5eZdoW9jLwGHA8qqwqtc+BaWa2MDwkDVSd9p0NZAJjw92Ib5hZfapO+6LdALwTfl7p2+fuW4DngY3AVmCvu0+jBG2rdMnCzBKBvwE/dves8o6nrLj7MQ/tBp8OdDGz9uUcUpkxs6uBHe6+sLxjiaOL3D0NuJJQF2mv8g6oDNUE0oA/unsqcIBK2CUTJHwh8ADgr+UdS1kJH4sYCJwFtADqm9ktJVlWpUoWZlaLUKJ4y93fCxdvN7Pm4enNCf0yr7TcfQ8wC+hH1WnbRcAAM1sPvAtcYmZ/oeq0D3fPCP/dQai/uwtVp32bgc3hvV2AyYSSR1VpX44rgUXuvj38uiq071LgG3fPdPfvgPeA7pSgbZUmWZiZAWOAFe7+YtSkKcCw8PNhhI5lVCpm1sTMvhd+XpfQP3glVaBtAO7+uLuf7u6tCe3mf+zut1BF2mdm9c3s5JznhPqEl1JF2ufu24BNZnZ+uKgvodsGVIn2RbmR/3ZBQdVo30agq5nVC3+H9iV0ckKx21ZpruA2sx7AbOAr/tvv/TNCxy0mAa0IvTHXufuucgmyhMwsCRhP6EyFGsAkd3/azE6hkrctLzO7GHjE3a+uKu0zs7MJ7U1AqMvmbXcfVVXaB2BmKcAbwEnA18BthLdVqkb76hE6EHy2u+8Nl1WJ/1/4VPzrCZ1R+gVwJ5BIMdtWaZKFiIiUn0rTDSUiIuVHyUJERAIpWYiISCAlCxERCaRkISIigZQsREQkkJKFiIgE+v/EE6zptI3wmAAAAABJRU5ErkJggg==\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"from numpy import random\n",
"import matplotlib.pyplot as plt\n",
"import seaborn as sns\n",
"\n",
"# sample from a binomial distribution\n",
"data = random.binomial(n=100, p=.7, size=10000)\n",
"\n",
"\n",
"# plot distribution and color critical region\n",
"ax = sns.histplot(data, bins=20,binwidth=.5, color=\"black\")\n",
"ax.set_title(\"Sampling distribution for X if $\\\\theta = 0.7$\")\n",
"ax.annotate(\"\", xy=(40, 500), xytext=(30, 500), arrowprops=dict(arrowstyle=\"<-\"))\n",
"ax.annotate(\"lower critical region \\n (2.5% of the distribution)\", xy=(40, 600), xytext=(22, 580))\n",
"ax.annotate(\"\", xy=(70, 500), xytext=(60, 500), arrowprops=dict(arrowstyle=\"->\"))\n",
"ax.annotate(\"upper critical region \\n (2.5% of the distribution)\", xy=(70, 500), xytext=(55, 580))\n",
"ax.set(xlim=(20,80))\n",
"for p in ax.patches:\n",
" if p.get_x() >= 40:\n",
" if p.get_x() <= 60:\n",
" p.set_color(\"lightgrey\")\n",
"\n",
"\n",
" \n",
"glue(\"esp-alternative-fig2\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "improved-malaysia",
"metadata": {},
"source": [
"```{glue:figure} esp-alternative-fig2\n",
":figwidth: 600px\n",
":name: fig-esp-alternative2\n",
"\n",
"Sampling distribution under the *alternative* hypothesis, for a population parameter value of $\\\\theta$ = 0.7. Almost all of the distribution lies in the rejection region.\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "alien-drunk",
"metadata": {},
"source": [
"What all this means is that the power of a test (i.e., $1-\\beta$) depends on the true value of $\\theta$. To illustrate this, I've calculated the expected probability of rejecting the null hypothesis for all values of $\\theta$, and plotted it in {numref}`fig-powerfunction`. This plot describes what is usually called the **_power function_** of the test. It's a nice summary of how good the test is, because it actually tells you the power ($1-\\beta$) for all possible values of $\\theta$. As you can see, when the true value of $\\theta$ is very close to 0.5, the power of the test drops very sharply, but when it is further away, the power is large. "
]
},
{
"cell_type": "code",
"execution_count": 100,
"id": "stainless-campus",
"metadata": {
"tags": [
"hide-input"
]
},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "powerfunction-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYIAAAEYCAYAAABRB/GsAAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAA1I0lEQVR4nO3deXyddZn//9c7e5csbbol6b5Amy6UUnYFFBAQBXUYdxwdlS8uI+rMb3Dm67iMM1/HUccdEVFBHUV0EFEBB1RAdrpA99LS0jbpviVp2qRZrt8f933KISQnd9Kcc+eccz0fj/PIOfd9n/tc90lyX/dnuT8fmRnOOefyV0HcATjnnIuXJwLnnMtzngiccy7PeSJwzrk854nAOefynCcC55zLc54IXFaTNFXSEUmFadj3+ZI2hft/01DvP/yMFyVdko59p5ukUknrJE2KO5aBkPS0pPlxxzGceCIY5sITxbHwZLRH0o8kjY47rgRJD0lqC+NLPM5N4+e97MRpZtvNbLSZdaXh4/4V+Ha4/7tPdmeSbpP0bycf1iv2O7XH92+SWpNev3oQ+4ySoK4DHjGz3eF7bgs/+6yk/cyWNOCblSS9VdLjko5KeqiX9YslLQ/XL5e0uMf6T0jaLalJ0g8llSat/grB79aFPBFkhzea2WhgCXAm8Ok4gkhx1f3R8GSZeDyR0cDSZxqwdjBvlFQ0xLH0KSkZjg7/TgBOS1r2lzR99P8BftJj2UFgKJLdQeDrwH/0XCGpBPgN8FNgDHA78JtwOZIuAz4FXAxMB2YCn0/axT3AayTVDEGcOcETQRYxs0bgPmABgKSrJK2VdDi8Mp8XLn+fpN8m3idps6Q7k17vSFxBSZor6QFJByVtlPTWpO1uk/RdSfdKagVeEzXWMJ4PJL1+r6RHk16bpOvDqpdDkr4jSUnrPyhpvaSWsPphiaSfAFOB34ZXuv8oaXq4r6LwfbWS7gmPZ7OkDybt83OS7pT043C/ayUt7SP+FwhOIInPKo2w719J+qmkZuC9PfZ3HfAu4B/D/f02afViSavCq9dfSCpLet8bJD0b/o4fl7Qo6u8gfH+ppK9I2q6gRHmzpBHhunGSfhfu+6Ckv0gq6O177mW/U4FZwFM9Vt0OLJJ04UDi7MnMHjSzO4Gdvay+CCgCvm5m7Wb2TUDAa8P1fwP8wMzWmtkh4Ask/T7MrA1YDrzuZGLMJZ4IsoikKcDrgZWSTgF+DnwcGA/cS/CPWwI8DLw6/KeuAYqB88N9zARGA6skjQIeAH4GTADeAdykl9efvhP4d6AceJSh9QaCEs5pwFuBy8IY/xr4HPAeoAK4CjhgZtcC2wlLSGb2n73s8+dAA1ALXAP8P0kXJ62/CrgDqCK4Mvx2b4GZ2awen9UeYd9XA78K9/3fPfZ3S7jsP8P9vTFp9VuBy4EZwCLCk5akJcAPCa68q4HvAff0qOboz5eAU4DFwGygDvhMuO7vw+MZD0wE/jkINdL3vBDYYmadPZYfBf4fwd/MK0i6KUw8vT1WRTym+cAqe/n4OKvC5Yn1zyWtew6YKKk6adl6gr87hyeCbHG3pMMEJ+KHCf7R3gb83sweMLMOgnrPEcB5ZrYFaCH4578Q+APQKGlu+PovZtZNcCJ+0cx+ZGadZrYC+B+Ck1zCb8zsMTPrDq+kevPNpH/mFQM4rv8ws8Nmth34cxgvwAcITpjPWGCzmW3rb2dhonwVcKOZtZnZs8CtwLVJmz1qZveGbQo/IeLJIOK+nzCzu8Pv6liU/Ya+aWY7zewg8Fte+h4+CHzPzJ4ysy4zux1oB86JGLPCfXzCzA6aWQvB387bw006gBpgmpl1mNlfepxcU6ki+BvrzfeAqZKu6LnCzD5sZlV9PKKWdkYDTT2WNRFcrPS2PvG8PGlZS3gMjqB45Ya/N5nZg8kLJNUCJ06OZtYtaQfBFR8ECeMigqvAh4HDBEng3PA1BHXgZ4dJJqGIl9f77ogQ38fM7NaIx5Jsd9LzowT/wABTgBcGsb9aIHHCS9gGJFf/9PzMMklFvVzZDmbfUb6r3vSMqTZ8Pg34G0l/l7S+JGl9f8YDI4HlybVuQKKt58sEJa//DdffYmavqJPvwyFefmI9wczaJX2BoErmHRH3NxBHCEqKySp4KTH1XJ94nvy7Kyf4n3B4iSCb7SQ4UQAnrv6mAI3hokQieHX4/GGCRHAhLyWCHcDDPa7KRpvZh5I+Z7DD07YSnIQSBtLFcAdB/XNvUsWzExgrKfkENZWXvpOTEWXf/X1XA/0udwD/3uP3M9LMfh7x/fuBY8D8pPdXJhqUzazFzP7ezGYCbwQ+mVTV1V+sq4CZ6rtR/EdAJfDm5IVhG8WRPh5RG+bXErRDKGnZIl5q2F/Ly0t6pwF7zOxA0rJ5vLz6KK95IshedwJXSrpYUjFBfW878Hi4/mGCxt0RZtYA/IWgHroaWBlu8zvgFEnXSioOH2cqbHQ+Sc8Cb5E0UtJs4P0DeO+twD9IOkOB2ZISSW8PQSPuK5jZDoLj/6KksrBh9f30qK8fjCHad5+x9+H7wPWSzg6/h1GSruyRjFLF3B3u42uSJgBIqlPQqybRED07PKE2A13ho99Yw7+pTcBZfazvJCht3Nhj+fU9epglP060TUkqDBvNi4CC8DsvDlc/FMb5sbAx/KPh8j+FP38MvF9SvaQxBL3sbkvadylwBkH7mMMTQdYys43Au4FvEVz5vZGgce94uP55giLyX8LXzcAW4LGwfpywmuN1BHXGOwmqKL4EDKQxsi9fA44TnFBuZwAnTDP7JUFj488IivN3A2PD1V8EPh22R/xDL29/B0GXwZ3Ar4HPmtlQ/cOf7L5/ANSHsd/d38Zmtoygjv/bBFUxm+nRGymCG8P3PamgN9ODwKnhujnh6yPAE8BNZvZQuK6/7xmCtoBr+1gHQeP6rgHGm3AtQWnmuwSl2mMESY3wb/xNBJ0JDgN/S1B9mvjbvx/4T4J2p23h47NJ+74KeMjMeuuRlJcUvW3IOedeEl5ZrwQuNrPBnvAzTtJTwPvNbE3csQwXngiccy7PedWQc87lOU8EzjmX5zwROOdcnsu6G8rGjRtn06dPjzsM55zLKsuXL99vZuN7W5d1iWD69OksW7Ys7jCccy6rSOpzmBavGnLOuTznicA55/KcJwLnnMtzngiccy7PeSJwzrk8l7ZEoGDC6L2Seh3PIxxN8ZsKpvxbFc7G5JxzLsPSWSK4jWDY475cQTD64RzgOoJRBp1zzmVY2u4jMLNHJE1PscnVwI/DqfGelFQlqSZdoxhu3N3C71fl+aizL5vHI5iqKrG4QEJAQYEoKhCFBaKkqIDSogJKigoYVVJExYhiysuKGD+6lHGjSyko0Cs+wrlUmts62NPURnNbB83HOmlu66C9s5vjnd20d3bT1d1NVzd0dXfTbWAGhoU/e5Fng2YunT6WC07p9Z6wkxLnDWV1vHxqv4Zw2SsSgaTrCEoNTJ06dVAftnnvEb71582Dem8uGOr/l5LCAmqqypgxbhSLp1Rx+tQxnD61ioqy4v7f7HJeZ1c363Y1s3L7YVZuP8SG3S00HjpGS3t/M4IOnPLoeuT6C2flXCLo7dfXR9K3W4BbAJYuXTqoU9qVi2q4ctGVg3lrTjN76Wqr24yubqPbjI4uo6PrpSu11vbO8Cqug31HjtN46BiNh4/x/O4WHn5+E2ZQXCgurZ/IXy+dwgVzxlPoJYa8s2lPC79c3sBdKxrZf6QdgAnlpSysq+TsGWOpGzOCSZUjqApLl+VlRZQWFVJaXEBpYSGFhUGJtECiQKCkkqpLnzgTQQPBHLsJkwlmfnIZJOnEFVUhorgw9fa9aWnrYFVDE39cv5e7n23k3tW7qaks41NXzOWq02pRPl2y5alNe1r47D1refyFAxQViNfOncAbTqvljGljqK0s87+BYS6tE9OEbQS/M7MFvay7Evgo8HrgbOCbZtbr/KfJli5daj7W0PB1vLObP23Yy00PbWZVQxOvnjOOf3vTAqZVj4o7NJcGbR1dfOtPm7jlkS2MKi3iQxfO4q/OmMy40UMx26kbSpKWm9nSXtelKxFI+jlwETCOYN7azwLFAGZ2czhh9rcJehYdBd4XztGakieC7NDVbfz0yW18+Q8b6ejq5r/eupgrF9XEHZYbQg2HjvKeHz7Nln2tvGVJHf/39fOo9gQwbMWSCNLFE0F22dPcxkd/toLl2w7x5WtO46/OmBx3SG4IvLi/lXd+/0la2jv57rvO4FVzxsUdkutHqkTgdxa7tJpYUcbtf3sW580ax9//8jn++6k+R8J1WWLTnhbe+r0naOvs5ucfPMeTQA7wRODSbmRJEbf+zVIumTeB//vrNfxqeUPcIblBajx8jLfd8iQAv7juHBbUVcYckRsKnghcRpQVF/Ldd5/BuTOr+cxv1rB1f2vcIbkB6uo2PvGLZ2nv6OLn153DnInlcYfkhognApcxxYUFfO1tiykuLOCGO1bS0dUdd0huAG5++AWe3nqQf716AbPGj447HDeEPBG4jJpUWcaX/mohqxqa+NoDz8cdjovo2R2H+doDz/PG02p5y5K6uMNxQ8wTgcu4yxfU8PYzp/Ddh1/gyS0H4g7H9aO1vZMb7ljJxIoy/u1NC/zmsBzkicDF4l/eUM/kMSP4/G/X0d2dXV2Y882PHtvKtgNH+epbT6NyhI8llYs8EbhYjCot4hOXnML6Xc3cv3Z33OG4PjQd6+CWR7ZwybwJnDOzOu5wXJp4InCxuXpxHbPGj+JrDzxPl5cKhqUfPLqV5rZOPnHpKXGH4tLIE4GLTWGB+MSlp7Bp7xF+l+9zRQxDh1qP88NHt/L6hZOYX+v3C+QyTwQuVq9fUMPcSeV8/cFNdHp30mHle49sofV4Jx+/xEsDuc4TgYtVQVgq2Lq/lbtWNsYdjgvtP9LO7Y+/yFWn1XKK3ziW8zwRuNi9rn4i82sr+P4jW8i2QRBz1U+e2EZbZxc3XDwn7lBcBngicLGTxLvPmcamvUdYueNw3OHkva5u41fLG3jV7HHM9DuI84InAjcsvGFRDSOKC7nzmR39b+zS6rHN+2k8fIy3Lp3S/8YuJ3gicMNCeVkxVy6q4bfP7aQ1DROcu+h+sWwHVSOLed38iXGH4jLEE4EbNt525hRaj3fx+9W74g4lbx1qPc4Da/fwpsV1lBYNYgJrl5X6nLxe0mqgt5Y7AWZmi9IWlctLS6eNYeb4Udz5zA6vlojJr1c2cryrm7ed6d9/PukzEQBvyFgUzhE0Gr9t6RS+eN8GNu89wuwJ3lCZSWbGnct2sGhyJfNqKuIOx2VQn1VDZrYt1SOTQbr88ZYlkykqEL9c5o3Gmba6sYkNu1u8NJaH+kwEklokNffyaJHUnMkgXf4YX17Ka+ZO4NcrG31U0gy7a0UjpUUFXLW4Nu5QXIalKhGUm1lFL49yM/Nyo0ub1y+cxN6WdlY3NsUdSt4wMx5cv4dXzxlHRZkPNZ1v+u01JGlqb49MBOfy02tOnUBhgXhw/Z64Q8kbG3a30HDoGJfM8y6j+ShK99HfJz3+CGwB7ktnUC6/VY0sYem0MTywzhNBpjy4bg8SvHbehLhDcTHoNxGY2cKkxxzgLODR9Ifm8tml9RPZsLuFHQePxh1KXnhw/R4WT6liQnlZ3KG4GAz4hjIzWwGcmYZYnDvh0vqgisKrh9JvT3MbzzU0ebVQHkt1HwEAkj6Z9LIAWALsS1tEzgHTqkcxZ8JoHli3h/edPyPucHJaItkmkq/LP1FKBOVJj1KCtoKr0xmUcxCcmJ7aepCmox1xh5LTHli3h2nVI5njN/DlrX5LBGb2+UwE4lxPl9RP5KaHXuCh5/dy9eK6uMPJSa3tnTy++QDXnjsNSXGH42KSaqyhH9H7WEMQjDX0/vSE5Fxg8eQqxo0u5cH1ngjS5S+b9nG8q9vbB/JcqhLB73pZNhX4OODDErq0KygQl8ybwO9X7aKzq5uiQh8sd6g9uH4vlSOKOXP6mLhDcTFKdWfx/yQewErgCuBDwH8AMzMUn8tzr54znpb2Tr/LOA3MjMc37+f82dWeZPNcyt++pHmSfgr8luDegXoz+66ZHc9IdC7vnTNzLABPbDkQcyS5Z/vBo+xsauPcmdVxh+JilmrQuV8C9wJPABcB9wAVksZKGhtl55Iul7RR0mZJn+plfaWk30p6TtJaSe8b3GG4XFU9upRTJ5bzxAueCIZa4js9d5YngnyXqkSQuGnsH4CngGXA8vCxrL8dSyoEvkNQpVQPvENSfY/NPgKsM7PTCJLNVyWVDOQAXO47Z+ZYlr14iOOd3XGHklOe3HKAcaNLmeUT1Oe9VG0E081sRviYGT5OvI6w77OAzWa2JaxKuoNX3n9gQLmCfmujgYOAT1jrXubcWdUc6+hiVcPhuEPJGWbGE1sOcM7Msd5t1KV1zuI6IHl2kYZwWbJvA/OAncBq4AYze8Vln6TrJC2TtGzfPr+pOd+cPaMaCa8eGkJb97eyp7ndq4UckN5E0NtlRs/7Ei4DngVqgcXAtyW9Yq4DM7vFzJaa2dLx48cPdZxumBszqoS5kyq8wXgIJb5Lbyh2kN5E0AAkz3k3meDKP9n7gLsssBnYCsxNY0wuS507s5rl2w7R3tkVdyg54YkXDjCxopQZ40bFHYobBiIlAkmvSvTokTReUpRRwJ4B5kiaETYAv52g51Gy7cDF4X4nAqcSzHfg3MucO6ua9s5unt1+OO5Qsp6Z8eSWg5w7s9rbBxwQbYayzwI3Av8ULioGftrf+8ysE/go8AdgPXCnma2VdL2k68PNvgCcJ2k1waQ3N5rZ/oEfhst1Z00fG7QTePXQSdu89wj7j7RzjlcLuVC/g84BbwZOB1YAmNlOSeVRdm5m9xLci5C87Oak5zuB10WO1uWtypHFzK+t4IkXDvDxS+KOJrs9ucXvH3AvF6Vq6LiZGWFDrySvVHSxOHdmNSu3H6atw9sJTsYTWw5QW1nG1LEj4w7FDRNREsGdkr4HVEn6IPAg8P30huXcK509o5rjXd2savBxhwbLzHjmxUOcNcPvH3AviTIfwVckXQo0EzTmfsbMHkh7ZM71sHhqFQArtwcnMjdwjYePsa+lnSXTfLRR95IobQSEJ34/+btYjRtdyrTqkaz0nkODlvjulkz1ROBeEqXX0FskbZLUJKlZUouk5kwE51xPp0+pYsX2QwTNVm6gVm4/TFlxAadOitTfw+WJKG0E/wlcZWaVZlZhZuVm9oq7f53LhNOnjmFvSzu7mtriDiUrrdxxiEV1VRT7/AMuSZS/hj1mtj7tkTgXwekn2gkOxxpHNmrv7GJtY/OJ79C5hFRzFr8lfLpM0i+Au4H2xHozuyu9oTn3SnMnVVBaVMCK7Ye4clFN3OFklbU7mzne1c3p3j7gekjVWPzGpOdHefmNXwZ4InAZV1JUwMK6SlZuPxR3KFknUYryEoHrqc9EYGaJsYXON7PHktdJOj/dgTnXlyXTxnDb4y/S3tlFaVFh3OFkjZXbD1FXNYKJFWVxh+KGmShtBN+KuMy5jDh9ShXHO7tZv6sl7lCyysrth0/ci+FcslRtBOcC5wHjJX0yaVUF4JdhLjaJOu6V2w+xeEpVvMFkib3NbTQePsb7zp8edyhuGEpVIighmD6yCChPejQD16Q/NOd6N6myjJrKMu85NAArdxwG8DuKXa9StRE8DDws6TYz25bBmJzr1+lTq1i5wxuMo1q5/TAlhQXMr/VbgNwr9dtG4EnADUenTxnDjoPBuDmufyu2H6K+tsIb112v/PZCl5USXSCfDas8XN+6uo3VDU3enuL65InAZaX62goKBGsafUjq/mzZd4RjHV0smlwZdyhumOp39FFJ3+xlcROwzMx+M/QhOde/kSVFzBo/2hNBBKvD72hhnScC17soJYIyYDGwKXwsAsYC75f09bRF5lw/FtZVnjjJub6tbmxiRHEhM8ePjjsUN0xFmY9gNvDacDJ6JH0X+F/gUmB1GmNzLqUFdZXctbKRvc1tTPC7Zfu0prGJ+toKCgt8RjLXuyglgjogeZ7iUUCtmXWRNAidc5m2IKzq8FJB37q6jbU7m71ayKUUdT6CZyX9SNJtwErgK+Ek9g+mMzjnUplfW4EEaxp9nqS+bN3fytHjXSeSpnO9iTJn8Q8k3QucBQj4ZzPbGa7+/9IZnHOpjCotYua4UV4iSGGNNxS7CKJ2Hy0A9gEHgdmSLkhfSM5Ft7Cu0nsOpbC6sYmy4gJmjR/V/8Yub0XpPvol4G3AWqA7XGzAI2mMy7lIFtRVcvezO9nX0s748tK4wxl2Vjc2Ma+mgiKfmtKlEKXX0JuAU83MG4bdsJOo+17T2MRr5k6IOZrhpbvbWLezmbcsqYs7FDfMRblM2AIUpzsQ5wYjMYiaVw+90osHWjnS3ukNxa5fUUoERwl6Df2Rl89Z/LG0ReVcROVlxd5g3IfEd7Kg1hOBSy1KIrgnfDg3LC2oq2TZiwfjDmPYWdPYRElRAXMm+h3FLrUo3Udvz0Qgzg3WwrpK7nluJweOtFM92huMExINxcXeUOz60edfiKQ7w5+rJa3q+chciM6lNr8uaCfw6qGXdHcbaxubWVjnE9G4/qUqEdwQ/nxDJgJxbrASjaFrdzZz0anecwhgx6GjtLR3Mt/bB1wEfZYIzGxX+PTDZrYt+QF8ODPhOde/irJipowdwbpdPtREwrqdwXfhU1O6KKJUHl7ay7Irouxc0uWSNkraLOlTfWxzkaRnJa2V9HCU/TrXU31NBet3eiJIWLermcICccrE8rhDcVmgz6ohSR8iuPKf1aNNoBx4vL8dSyoEvkOQSBqAZyTdY2brkrapAm4CLjez7ZK8XO8Gpb6mkv9dt4ejxzsZWRKlM1xuW7ezmVnjR1FW7HMUu/6l+o/5GXAf8EUg+Wq+xcyi9NU7C9hsZlsAJN0BXA2sS9rmncBdZrYdwMz2DiB2506or63ADDbsbmHJ1DFxhxO7dbuaOXvG2LjDcFkiVRtBk5m9CHwDOJjUPtAh6ewI+64DdiS9bgiXJTsFGCPpIUnLJb2ntx1Juk7SMknL9u3bF+GjXb6pD+vC13n1EAdbj7Orqe3Ed+Jcf6K0EXwXOJL0ujVc1p/epkOyHq+LgDOAK4HLgH+RdMor3mR2i5ktNbOl48ePj/DRLt/UVpZROaLYG4yB9eF3UF/jPYZcNFEqU2VmJ07gZtYtKcr7GoApSa8nAzt72Wa/mbUCrZIeAU4Dno+wf+dOkER9TYWXCHipVDSvxhuKXTSRBp2T9DFJxeHjBoKB6PrzDDBH0gxJJcDbeeVQFb8BXi2pSNJI4Gxg/UAOwLmE+toKNuxupqu7Z8Ezv6zb1cykijK/y9pFFiURXA+cBzQSXMGfDVzX35vCye4/CvyB4OR+p5mtlXS9pOvDbdYD9wOrgKeBW81szWAOxLn6mgraOrrZur817lBitX5Xs7cPuAGJMtbQXoKr+QEzs3uBe3ssu7nH6y8DXx7M/p1LNq8mbDDe1czsCfk50FpbRxeb9x7h4nneE9tF12+JQNIpkv4oaU34epGkT6c/NOcGZvaE0RQXKq/bCTbvPUJnt3lDsRuQKFVD3wf+CegAMLNVDLKE4Fw6lRQVMGdCeV73HEokQa8acgMRJRGMNLOneyzrTEcwzp2s+tr87jm0blczI0sKmTZ2ZNyhuCwSJRHslzSL8B4ASdcAu1K/xbl41NdUsP9IO3tb2uIOJRbrdjYzr6aCgoLebuNxrndREsFHgO8BcyU1Ah8HPpTOoJwbrESVyPpdLTFHknnd3ca6Xc3U13i1kBuYKL2GtgCXSBoFFJhZ/v2HuayR6Dm0dmcTF56SX3ehNxw6xpH2Tm8fcAOWavTRd5vZTyV9ssdyCKqJDgL3mNmh9IboXHSVI4qpqxqRlyWCdbuCGdrmeYnADVCqqqFR4c/yXh4VBGME3ZfW6JwbhHk1FSfG28kn63a1UCA41ecgcAPUZ4nAzL4X/vx8X9tI+td0BOXcyaivKedPG/bQ1tGVV+Pxr9/VzIxxoxhRkj/H7IbGSd1QZmafSXeAzg1UfW0F3QYbd+dX9dD6Xc1eLeQGxW8oczkncTLMp+qhpmMdNBw65onADYrfUOZyzpQxIxlVUphXiWDDiTkIPBG4gfMbylzOKSgQc2sq8qrnUCLpeYnADUaUCWY+AtzCSzeUbQXeldaonDtJ82rK+c2zOzGzRJfnnLZ+VwtjR5UwscLnIHADl7JEIKkQ+JCZXQKMB+aa2avCuYudG7bm1VTQ0tZJw6FjcYeSEet3NzOvpjwvkp4beikTgZl1EdwvgJm1+l3FLlskz02Q6zq7utm4u4V5k7xayA1OlKqhlZLuAX5JMHE9AGZ2V9qicu4kzZ1UjhTUnV82f1Lc4aTViwdaae/s9vYBN2hREsFY4ADw2qRlBngicMPWyJIiZlSPyoueQ+vCRnFPBG6wogw6975MBOLcUJtXU8Hqxqa4w0i79buaKS5U3k7P6U5elO6jzmWleTXlbD94lJa2jrhDSat1O5uZPaGckiL/d3aD4385Lmclqko25PhQE8HQEj7QnBu8PhOBpBvCn+dnLhznhk4+DDVx4Eg7e1va/Y5id1JSlQgSbQPfykQgzg21msoyKkcU53QiWO8NxW4IpGosXi/pRWC8pFVJywWYmS1Ka2TOnSRJ1Nfk9mT2PhmNGwqp5iN4h6RJwB+AqzIXknNDp762gp8+uY3Orm6KCnOvSWzdzmZqKssYO6ok7lBcFuvvzuLdZnYawSBzidnJdvoQEy5bzK+toL2zm637W/vfOAut29XMfJ+j2J2kKBPTXAhsAr4D3AQ8L+mCdAfm3FBITOS+Ngerh9o6unhhX6s3FLuTFqWs/F/A68zsQjO7ALgM+Fp6w3JuaMwaP5qSooKcHHNo4+4WurrtRLJzbrCiJIJiM9uYeGFmzwPF6QvJuaFTXFjAqRPLc7LBOJHc5tdWxhyJy3ZREsEyST+QdFH4+D6wPN2BOTdU6msqWLuzCTOLO5QhtXZnE+WlRUweMyLuUFyWi5IIPgSsBT4G3ACsA65PZ1DODaX5dRUcOtrB7ua2uEMZUut2NjOvtsLnIHAnLcqgc+0E7QT/lf5wnBt6icbUtY3N1FTmxtVzV7exflcLbz9rStyhuByQex2rnethbk0FUm5NUvPigVaOdXR5jyE3JNKaCCRdLmmjpM2SPpViuzMldUm6Jp3xuPw0urSI6dWjcqrBOHEs3mPIDYUo9xEsGMyOw/mOvwNcAdQD75BU38d2XyK4g9m5tKivqWDtrtyZm2DtzmAOgjkTfNRRd/KilAhulvS0pA9LqhrAvs8CNpvZFjM7DtwBXN3Ldn8H/A+wdwD7dm5A6msr2HHwGE3HcmNugnW7mpnjcxC4IdLvX5GZvQp4FzCFoCvpzyRdGmHfdcCOpNcN4bITJNUBbwZuTrUjSddJWiZp2b59+yJ8tHMvl6hC2ZAj7QTrdjZ7tZAbMpEuJ8xsE/Bp4EbgQuCbkjZIekuKt/XWp61nR+6vAzeaWVc/n3+LmS01s6Xjx4+PErJzLzO/JneGmtjb3Mb+Iz4HgRs6/XYflbSIYG6CK4EHgDea2QpJtcAT9D2JfQNBKSJhMrCzxzZLgTvCftDjgNdL6jSzuwdyEM71Z0JFGeNGl+ZEz6G1J+4o9kTghka/iQD4NvB94J/N7FhioZntlPTpFO97BpgjaQbQCLwdeGfyBmY2I/Fc0m3A7zwJuHSpr63IiRJBosfQXC8RuCESpWroLjP7SXISSExjaWY/6etNZtYJfJSgN9B64E4zWyvpekl+Z7LLuIV1FWza00JbR8qayGFvdUMT06tHUjnCh/xyQyNKInhPL8veG2XnZnavmZ1iZrPM7N/DZTeb2Ssah83svWb2qyj7dW4wFtZV0dltWT915erGJhZOroo7DJdD+qwakvQOgqqcGZLuSVpVDhxId2DODbWFk4NROtc0NnH61DExRzM4B46003j4GH9z3rS4Q3E5JFUbweMEM5ONA76atLwFWNXrO5wbxmory6geVcKqhuy9sWx1YxD7wrqqeANxOSXVnMXbgG3AuZkLx7n0kcTCyZUnTqbZaHWYxBbUeUOxGzp9thFIejT82SKpOenRIim7K1ld3lpYV8mmvUc4djw7G4xXNTYxc9woysu8odgNnT4TQXhHMWZWbmYVSY9yM/PLEZeVFtZV0tVtWXs/wZrGphNtHc4NlVSNxWNTvdHMDg59OM6l16Kwt83qhsOcMS27Goz3trSxq6mNhXWeCNzQStVYvJxgSIi+hoqYmZaInEujiRWljBtdyurG7CsRrDnRUOyJwA2tVI3FM/pa51y2ksSiyZWsbjwcdygDtrqhGQnmeyJwQyxV1dBcM9sgaUlv681sRfrCci59FtZV8tDGvRw93snIkiijrAwPqxsPM2v8aEaXZk/MLjuk+ov6e+CDvPweggQDXpuWiJxLs4V1lXRbMGbP0ukpm8KGlVUNTZw/e1zcYbgclKpq6IPhz9dkLhzn0i/R62ZVQ1PWJII9zW3sbWn39gGXFqmqhlLNNYCZ9TX8tHPD2sSKMiZWlJ5ofM0GiRvJFnnXUZcGqaqG3phindH3PATODXsL6ypZlUWJYFVjEwXyyepdeqSqGnpfJgNxLpMWTa7ijxv20tzWQUUW3KX73I7DzJlQnlWN2y579DsMtaRqSd+UtELScknfkFSdieCcS5czpo3BDJ7dfjjuUPrV3W2s2H6IJVl2A5zLHlHmI7gD2Af8FXBN+PwX6QzKuXQ7bUoVBYLl2w7FHUq/Nu87QktbJ0umVsUdistRUcqZY83sC0mv/03Sm9IUj3MZMbq0iFMnVbBi+/BPBCvCZJVtQ2K47BGlRPBnSW+XVBA+3gr8Pt2BOZduS6ZW8ez2w3R3W9yhpLR82yHGjCxmxrhRcYficlSqYagTw03/H+BnwPHwcQfwicyE51z6nDFtDC3tnWzaeyTuUFJasf0QS6aOQept2C/nTl6qYajLk4adLjCzovBR4MNQu1ywJJyucji3ExxqPc4L+1q9odilVZSqISSNkXSWpAsSj3QH5ly6TaseSfWokmGdCFbuCGJbkqVzLLvs0G9jsaQPADcAk4FngXOAJ/CxhlyWk8TpU8ewchg3GK/YdpjCAnHaFL+j2KVPlBLBDcCZwLZw3KHTCbqQOpf1zpg2hi37WznYejzuUHq1fNsh6msq/EYyl1ZREkGbmbUBSCo1sw3AqekNy7nMSPTNH46lgs6ubp5rOOz3D7i0i5IIGiRVAXcDD0j6DbAznUE5lymLJldRVKBh2U6wYXcLR493eUOxS7t+y5tm9ubw6eck/RmoBO5Pa1TOZciIkkLm1w7PG8sSpRRvKHbpFrXX0BJJHwMWAQ1mNjwrVJ0bhNOnjuG5HU10dHXHHcrLLN92iAnlpUweMyLuUFyOizLo3GeA24FqYBzwI0mfTndgzmXKmdPHcqyji9XDaFhqM+OprQdZOt1vJHPpF6VE8A7gTDP7rJl9lqD76LvSG5ZzmXPOzGCWssc37485kpds3d/KrqY2zpvlU1O69IuSCF4EypJelwIvpCUa52JQPbqUeTUVPLb5QNyhnPDYC0EsPkexy4RUU1V+i2AmsnZgraQHwteXAo9mJjznMuP8WdX8+MlttHV0UVZcGHc4PL55P7WVZUyvHhl3KC4PpOo1tCz8uRz4ddLyh9IWjXMxOX/2OG59dCvLXjzEq+bEexXe3W08seUAl8yb6O0DLiNSTVV5e+K5pBLglPDlRjPrSHdgzmXSWTPGUlQgHnthf+yJYN2uZg4f7eD82T4RoMuMKL2GLgI2Ad8BbgKejzronKTLJW2UtFnSp3pZ/y5Jq8LH45JOG1j4zg2NUaVFLJ5SNSwajB8LY/CGYpcpURqLvwq8zswuNLMLgMuAr/X3JkmFBMnjCqAeeIek+h6bbQUuNLNFwBeAWwYSvHND6bzZ41jd2ETTsXgLvI+9cIDZE0YzsaKs/42dGwJREkGxmW1MvDCz54HiCO87C9hsZlvCG9DuAK5O3sDMHjezxC2dTxKMcOpcLM6fVU23wZNb4us91N7ZxTNbD3L+LK8WcpkTJREsl/QDSReFj+8TNCD3pw7YkfS6IVzWl/cD9/W2QtJ1kpZJWrZvnw986tLj9KljGFFceKJqJg4rtx/mWEcX53m3UZdBURLB9cBa4GMEQ1KvC5f1p7fuDr1ODivpNQSJ4Mbe1pvZLWa21MyWjh8/PsJHOzdwJUUFnDljbKyJ4PHN+ykQnDPTSwQuc1IOOiepAFhuZguA/xrgvhuAKUmvJ9PLqKWSFgG3AleY2fC5o8flpfNnVfPF+/axu6mNSZWZr6N/7IUDLKyrpHJElNpX54ZGyhKBmXUDz0maOoh9PwPMkTQj7H76duCe5A3C/d4FXBu2PTgXqwtOCUqcf964N+OffbD1OCu3HzoRg3OZEmXaoxqCO4ufBloTC83sqlRvMrNOSR8F/gAUAj80s7WSrg/X3wx8hmAwu5vCG2c6zWzpoI7EuSEwd1I506pHct+a3bzjrMFc/wzeg+v20G1w2fxJGf1c56Ikgs8Pdudmdi9wb49lNyc9/wDwgcHu37mhJonL50/iB49upelYR0araO5fu5vJY0Ywv7YiY5/pHKSoGpJUJunjwF8Dc4HHzOzhxCNTATqXaZctmERnt/GnDXsy9pktbR08umk/l8+f5MNKuIxL1UZwO7AUWE1wU9hXMxKRczFbPLmKiRWl3L9md8Y+888b93G8q5vLF3i1kMu8VFVD9Wa2EEDSD4CnMxOSc/EqKBCXzZ/Enct2cPR4JyNLotSgnpw/rNnN+PJSn5bSxSJVieDEffZm1pmBWJwbNi6fP4m2jm4eeT79NzC2dXTx5417ubR+IgUFXi3kMi9VIjhNUnP4aAEWJZ5Las5UgM7F4awZY6kaWZyR6qG/bNrP0eNdXO69hVxMUg1DHf/sHM7FpKiwgEvnTeT+Nbs53tlNSVGUm/AH5/41u6koK/K7iV1s0vfX7VyWu3zBJFraO9M65ER7ZxcPrt/DJfMmpjXZOJeK/+U514dXzRnH2FEl/Ozp7Wn7jPvX7KbpWAdXLa5N22c41x9PBM71obSokLedOYU/rt9D4+FjafmMnzyxjenVI7lgjg8r4eLjicC5FN519lQM+NlT24Z83+t2NrNs2yHefc407y3kYuWJwLkUJo8ZycVzJ/CLZ3bQ3tk1pPv+yZPbKC0q4JozfD4mFy9PBM7149pzp7P/yPEh7UradKyDu1c2cvXiWqpGlgzZfp0bDE8EzvXj1bPHMb16JD95Yuiqh+5a0cCxji7ec+70Idunc4PlicC5fhQUiHefM41l2w6xbufJ30tpZvzkyW0snlLFgrrKIYjQuZPjicC5CK45YzIjigv51p82nfS+fr96F1v2tfI3500bgsicO3meCJyLoGpkCR+6aBb3rdl9UjeYHT3eyb//fj31NRVcdVrdEEbo3OB5InAuousumMnUsSP57D1r6ejqHtQ+bvrzC+xqauNfr55PoXcZdcOEJwLnIiorLuRf3lDP5r1HuP3xFwf8/hf3t3LLI1t48+l1LJ0+dugDdG6QPBE4NwCXzJvAhaeM5+sPbmJvS9uA3vuF362juFD80xVz0xSdc4PjicC5AZDEZ99YT3tnF//4q1WRbzL72VPb+eOGvdxwyRwmVJSlOUrnBsYTgXMDNHP8aD5/1QIe2riPj/z3Co53pm4v+MUz2/nnX6/mwlPG897zZmQoSuei80Tg3CC88+ypfOHq+Ty4fi8f/u/lfSaDXzyznRv/J0gC37v2DB9q2g1L6Z+M1bkcdW14V/C//GYtb/nuY/zVkslcsaCGqpHFPLRxH/eu3sU9z+08kQTKin2uJzc8yczijmFAli5dasuWLYs7DOdO+PXKBm5+aAsb97QAUFZcQFtHN2NGFnP14jo+dcVcTwIudpKWm9nS3tZ5icC5k/Tm0yfz5tMns3nvEe5bvYsDrce5ZN5Ezpk5lqJCrwpyw58nAueGyOwJo/m7i+fEHYZzA+aXK845l+c8ETjnXJ7zROCcc3nOE4FzzuU5TwTOOZfnPBE451ye80TgnHN5zhOBc87luawbYkLSPmDbAN4yDhj83ILZzY89P+XrsefrcUO0Y59mZuN7W5F1iWCgJC3ra3yNXOfH7seeT/L1uOHkj92rhpxzLs95InDOuTyXD4nglrgDiJEfe37K12PP1+OGkzz2nG8jcM45l1o+lAicc86l4InAOefyXM4kAkmXS9ooabOkT/WyXpK+Ga5fJWlJHHGmQ4Rjf1d4zKskPS7ptDjiHGr9HXfSdmdK6pJ0TSbjS6coxy7pIknPSlor6eFMx5guEf7eKyX9VtJz4bG/L444h5qkH0raK2lNH+sHf44zs6x/AIXAC8BMoAR4Dqjvsc3rgfsAAecAT8UddwaP/TxgTPj8ilw49ijHnbTdn4B7gWvijjuDv/MqYB0wNXw9Ie64M3js/wx8KXw+HjgIlMQd+xAc+wXAEmBNH+sHfY7LlRLBWcBmM9tiZseBO4Cre2xzNfBjCzwJVEmqyXSgadDvsZvZ42Z2KHz5JDA5wzGmQ5TfOcDfAf8D7M1kcGkW5djfCdxlZtsBzCxXjj/KsRtQLknAaIJE0JnZMIeemT1CcCx9GfQ5LlcSQR2wI+l1Q7hsoNtko4Ee1/sJrhqyXb/HLakOeDNwcwbjyoQov/NTgDGSHpK0XNJ7MhZdekU59m8D84CdwGrgBjPrzkx4sRr0OS5XJq9XL8t69ouNsk02inxckl5DkAheldaIMiPKcX8duNHMuoKLw5wR5diLgDOAi4ERwBOSnjSz59MdXJpFOfbLgGeB1wKzgAck/cXMmtMcW9wGfY7LlUTQAExJej2Z4GpgoNtko0jHJWkRcCtwhZkdyFBs6RTluJcCd4RJYBzwekmdZnZ3RiJMn6h/7/vNrBVolfQIcBqQ7YkgyrG/D/gPCyrON0vaCswFns5MiLEZ9DkuV6qGngHmSJohqQR4O3BPj23uAd4TtqyfAzSZ2a5MB5oG/R67pKnAXcC1OXBFmNDvcZvZDDObbmbTgV8BH86BJADR/t5/A7xaUpGkkcDZwPoMx5kOUY59O0FJCEkTgVOBLRmNMh6DPsflRInAzDolfRT4A0Gvgh+a2VpJ14frbyboNfJ6YDNwlOCqIetFPPbPANXATeHVcadl+SiNEY87J0U5djNbL+l+YBXQDdxqZr12O8wmEX/vXwBuk7SaoLrkRjPL+uGpJf0cuAgYJ6kB+CxQDCd/jvMhJpxzLs/lStWQc865QfJE4Jxzec4TgXPO5TlPBM45l+c8ETjnXJ7zROCcc3nOE4FzzuU5TwQu60iqDsfZf1bSbkmNSa9LhkF8R9K8/49JWi/pv3tZVyjpG+E4/KslzUxnLC43+A1lLqtJ+hxwxMy+0ss6EfyNZ3TkSUlHzGx0Gve/gWDMqK29rPs00GJm35D0QeBUM/uHdMXicoOXCFxOkTQ9vFq+CVhBMN7OmqT1/xAmDyS9W9LTYUnie5IKe+zrS5I+nPT6c5L+Pnx+dzi881pJ1/URR6+fG+Wzw20+KWlN+Ph4uOxmgklZ7pH0iR7bjwLebGbfCBdtBWZH++ZcPvNE4HLRqQQTdJwObOttA0nzgLcB55vZYqALeFePze4It0l4K/DL8PnfmtkZBCOcfkxSddTgony2pDMIxoo5m2C2qQ9KOt3MricYUfI1Zva1Hru+BJiSqCYDfkjqiUycA3Jk0DnnetgWztCUysUE4/U/Ew7EN4Ies5iZ2UpJEyTVEkx5eCgx4xfByf/N4fMpwBwg6vDe/X42wZwRvw6HkUbSXcCrgZUp9rsY+ExiwD1JtxIMOudcSp4IXC5qTXreyctLvmXhTwG3m9k/9bOvXwHXAJMISghIuojg6vtcMzsq6aGk/fb3uVE/ezAz6YwhqA5CUhHwOuDfB7Efl2e8asjluj3AhLCnUSnwhnD5H4FrJE0AkDRW0rRe3n8HwZj31xAkBYBKgtLBUUlzCapuon5u1M9+BHiTpJGJun/gL/0c6/NJsXwC+H1vDcrO9eQlApfTzKxD0r8CTxFcLW8Il68Le9j8r6QCoAP4CD3aFMKx7suBxqRJPu4Hrpe0CtgIvKIaqq/PjfrZZrZC0m28NKvWrWaWqloI4OfAfZI2A08Ar2jEdq433n3UOefynFcNOedcnvNE4Jxzec4TgXPO5TlPBM45l+c8ETjnXJ7zROCcc3nOE4FzzuW5/x+FNttDIaWClQAAAABJRU5ErkJggg==\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"from myst_nb import glue\n",
"import numpy as np\n",
"from scipy.stats import binom\n",
"import seaborn as sns\n",
"theta = np.arange(0.01,.99,0.01)\n",
"\n",
"n = 100 \n",
"\n",
"prob = []\n",
"for k in theta:\n",
" prob.append(binom.cdf(40,n, k) + 1 - binom.cdf(59,n, k))\n",
"\n",
"\n",
"#sns.lineplot(theta, prob_lower)\n",
"ax = sns.lineplot(x = theta, y = prob)\n",
"ax.set_title(\"Power Function for the Test (N=100)\")\n",
"ax.set(xlabel='True value of $\\\\theta$', ylabel='Probablility of rejecting the Null')\n",
"\n",
"\n",
"glue(\"powerfunction-fig\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "constitutional-script",
"metadata": {},
"source": [
"```{glue:figure} powerfunction-fig\n",
":figwidth: 600px\n",
":name: fig-powerfunction\n",
"\n",
"The probability that we will reject the null hypothesis, plotted as a function of the true value of $\\theta$. Obviously, the test is more powerful (greater chance of correct rejection) if the true value of $\\theta$ is very different from the value that the null hypothesis specifies (i.e., $\\theta=.5$). Notice that when $\\theta$ actually is equal to .5 (plotted as a black dot), the null hypothesis is in fact true: rejecting the null hypothesis in this instance would be a Type I error.\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "funded-intensity",
"metadata": {},
"source": [
"### Effect size\n",
"\n",
">*Since all models are wrong the scientist must be alert to what is importantly wrong. It is inappropriate to be concerned with mice when there are tigers abroad*\n",
">\n",
">-- George Box 1976\n",
"\n",
"The plot shown in {numref}`fig-powerfunction` captures a fairly basic point about hypothesis testing. If the true state of the world is very different from what the null hypothesis predicts, then your power will be very high; but if the true state of the world is similar to the null (but not identical) then the power of the test is going to be very low. Therefore, it's useful to be able to have some way of quantifying how \"similar\" the true state of the world is to the null hypothesis. A statistic that does this is called a measure of **_effect size_** (e.g. {cite}`Cohen1988` or {cite}`Ellis2010`). Effect size is defined slightly differently in different contexts (and so this section just talks in general terms) but the qualitative idea that it tries to capture is always the same: how big is the difference between the *true* population parameters, and the parameter values that are assumed by the null hypothesis? In our ESP example, if we let $\\theta_0 = 0.5$ denote the value assumed by the null hypothesis, and let $\\theta$ denote the true value, then a simple measure of effect size could be something like the difference between the true value and null (i.e., $\\theta - \\theta_0$), or possibly just the magnitude of this difference, $\\mbox{abs}(\\theta - \\theta_0)$."
]
},
{
"cell_type": "markdown",
"id": "handled-sarah",
"metadata": {},
"source": [
"| | big effect size | small effect size |\n",
"| :--------------------- | :---------------------- | :----------------------- |\n",
"| significant result | difference is real, and of practical importance | difference is real, but might not be interesting |\n",
"| non-significant result | no effect observed | no effect observed |\n"
]
},
{
"cell_type": "markdown",
"id": "noble-carnival",
"metadata": {},
"source": [
"Why calculate effect size? Let's assume that you've run your experiment, collected the data, and gotten a significant effect when you ran your hypothesis test. Isn't it enough just to say that you've gotten a significant effect? Surely that's the *point* of hypothesis testing? Well, sort of. Yes, the point of doing a hypothesis test is to try to demonstrate that the null hypothesis is wrong, but that's hardly the only thing we're interested in. If the null hypothesis claimed that $\\theta = .5$, and we show that it's wrong, we've only really told half of the story. Rejecting the null hypothesis implies that we believe that $\\theta \\neq .5$, but there's a big difference between $\\theta = .51$ and $\\theta = .8$. If we find that $\\theta = .8$, then not only have we found that the null hypothesis is wrong, it appears to be *very* wrong. On the other hand, suppose we've successfully rejected the null hypothesis, but it looks like the true value of $\\theta$ is only .51 (this would only be possible with a large study). Sure, the null hypothesis is wrong, but it's not at all clear that we actually *care*, because the effect size is so small. In the context of my ESP study we might still care, since any demonstration of real psychic powers would actually be pretty cool [^note10], but in other contexts a 1\\% difference isn't very interesting, even if it is a real difference. For instance, suppose we're looking at differences in high school exam scores between males and females, and it turns out that the female scores are 1\\% higher on average than the males. If I've got data from thousands of students, then this difference will almost certainly be *statistically significant*, but regardless of how small the $p$ value is it's just not very interesting. You'd hardly want to go around proclaiming a crisis in boys education on the basis of such a tiny difference would you? It's for this reason that it is becoming more standard (slowly, but surely) to report some kind of standard measure of effect size along with the the results of the hypothesis test. The hypothesis test itself tells you whether you should believe that the effect you have observed is real (i.e., not just due to chance); the effect size tells you whether or not you should care.\n",
"\n",
"[^note10]: Although in practice a very small effect size is worrying, because even very minor methodological flaws might be responsible for the effect; and in practice no experiment is perfect, so there are always methodological issues to worry about."
]
},
{
"cell_type": "markdown",
"id": "environmental-legend",
"metadata": {},
"source": [
"(power)=\n",
"### Increasing the power of your study\n",
"\n",
"Not surprisingly, scientists are fairly obsessed with maximising the power of their experiments. We want our experiments to work, and so we want to maximise the chance of rejecting the null hypothesis if it is false (and of course we usually want to believe that it is false!) As we've seen, one factor that influences power is the effect size. So the first thing you can do to increase your power is to increase the effect size. In practice, what this means is that you want to design your study in such a way that the effect size gets magnified. For instance, in my ESP study I might believe that psychic powers work best in a quiet, darkened room; with fewer distractions to cloud the mind. Therefore I would try to conduct my experiments in just such an environment: if I can strengthen people's ESP abilities somehow, then the true value of $\\theta$ will go up [^note11] and therefore my effect size will be larger. In short, clever experimental design is one way to boost power; because it can alter the effect size.\n",
"\n",
"Unfortunately, it's often the case that even with the best of experimental designs you may have only a small effect. Perhaps, for example, ESP really does exist, but even under the best of conditions it's very very weak. Under those circumstances, your best bet for increasing power is to increase the sample size. In general, the more observations that you have available, the more likely it is that you can discriminate between two hypotheses. If I ran my ESP experiment with 10 participants, and 7 of them correctly guessed the colour of the hidden card, you wouldn't be terribly impressed. But if I ran it with 10,000 participants and 7,000 of them got the answer right, you would be much more likely to think I had discovered something. In other words, power increases with the sample size. This is illustrated in {numref}`fig-powerfunctionsample`, which shows the power of the test for a true parameter of $\\theta = 0.7$, for all sample sizes $N$ from 1 to 100, where I'm assuming that the null hypothesis predicts that $\\theta_0 = 0.5$. \n",
"\n",
"[^note11]: Notice that the true population parameter $\\theta$ doesn't necessarily correspond to an immutable fact of nature. In this context $\\theta$ is just the true probability that people would correctly guess the colour of the card in the other room. As such the population parameter can be influenced by all sorts of things. Of course, this is all on the assumption that ESP actually exists!"
]
},
{
"cell_type": "code",
"execution_count": 109,
"id": "presidential-translation",
"metadata": {},
"outputs": [
{
"data": {
"application/papermill.record/text/plain": ""
},
"metadata": {
"scrapbook": {
"mime_prefix": "application/papermill.record/",
"name": "powerfunctionsample-fig"
}
},
"output_type": "display_data"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYIAAAEGCAYAAABo25JHAAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjMuNCwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8QVMy6AAAACXBIWXMAAAsTAAALEwEAmpwYAAA8h0lEQVR4nO3dd3hc5ZX48e9Rt7otS7ItufdecQNsgymG0CEJBEgCSRwIhJAsu5BdwiYhu8v+slk2EEpIIUDohGLAkICxMRiwLWPjXuQmq1nF6r2c3x/3Sh5Jo/HYeNTmfJ5nHmnufWfmXJd75u2iqhhjjAleId0dgDHGmO5licAYY4KcJQJjjAlylgiMMSbIWSIwxpggF9bdAZysgQMH6ogRI7o7DGOM6VU2bdpUpKrJ3s71ukQwYsQIMjIyujsMY4zpVUTkcGfnrGnIGGOCnCUCY4wJcgFLBCLyZxEpEJHtnZwXEXlIRDJFZKuIzApULMYYYzoXyBrBX4BlPs5fBIx1H8uBxwIYizHGmE4ELBGo6lrgmI8ilwNPq+MzIFFEBgcqHmOMMd51Zx9BGnDE43m2e6wDEVkuIhkiklFYWNglwRljTLDozkQgXo55XQpVVZ9Q1TmqOic52eswWGOMMaeoOxNBNjDU43k6kNtNsRhjTI9VVtPAE2v3s/5AcUDevzsnlK0AbheRF4B5QJmq5nVjPMYY86Vll1RTXFnPlLQEQkOcho8tR0p58L29bM4qYeaw/iwYncTC0UlMGZJAiFumur6Rpz89zMsZRxieFMOCUUlMSUvg7zvyeSnjCNX1Tdy6ZDTzRiWd9pgDlghE5HlgCTBQRLKBfwfCAVT1cWAlcDGQCVQDNwUqFmOMOZ2ampU3tuQQFhrC0gkpxESGUVnXyMMf7OPPHx+koUnpHx3O4nHJVNY18v6uAvpHh3PepFS2ZZfxwDu7AUiKiWDx+GSGD4jhmc8OU1RZxxkj+nOoqIoPdhcAEB4qXDptCDefNZIpaQkBuZ6AJQJVve4E5xW4LVCfb4wxX1ZpdT3PfHqYsamxnDshlYiwEA4WVfFPL23h86xSACLDQlg0LpkvjpRSUFHHNbPTOWvMQNbuLWTN3kIam5r5p/PHcdNZI4mNdG65hRV1rMssYs2eAlbvLqCkuoGFo5N4/IZZzBkxAID8slq+yC5lxtBEUuOjAnqd0tu2qpwzZ47aWkPGGH+9vjmHPUcr+MbcYQwdEO21zNHyWl7bnMNFUwYxPCkGgO05Zdz67CaOHKsBYEBMBEvGJbNyex4RoSH84vLJpCVG8/bWXP6x8yiDE6L42SWTmDmsf+v7NjcrCq1NRN40NSsFFbUMTuh3+i7aCxHZpKpzvJ6zRGCM6Qs+O1BMTEQYU9Od5hNV5aFVmTz4/l4AQgQunDyI7549ktnDB7S+LrOggm/9eSM5pTWIwNIJqcwclshDq/YxICaCh6+bSUVdIy9nHOH9nQWcOSaJB66eFvBv6aebr0TQ61YfNcaY9t7YksOdL25BFc6dkMLt547hlU3ZPLc+i6tnpXPneWN5bkMWz63P4p3t+SwcncSPlo4lNET4zlMZhIeG8NTNc8k4dIxn12fx/q6jLBydxMPXzSQpNhKAc8an0NysrZ27fYnVCIwxvca+oxV8688bmDcqiX9ZNp7BCf14Z1setz+/mTNG9Ofsscn84aMDlFY3AHDbOaO564LxiBwfmfPc+ix+v/YAhRV1hAiMSIrhqZvntjYb1TY0sTu/gilD4gkL7TvrclrTkDGmx9h3tIJ9BZVcNGVQ6w26vcamZjYcPMbckQNab8ZFlXVc8cg6KmobqWloIkTgyplpvJyRzfShiTx981xiIsOoqG3gufVZJMVGcs3sdK/vX9vQxHPrs9ieU8a9l0xiQExEwK63p7CmIWNMj3Csqp4b/rSeo+V1LBydxANXTWNYUscO3P9cuZs/rzvIlLR4/vvqaYxOjmX50xkUVdbx4vIFDIiJ4IF3d/P8hiNMT0/gyZvOIMYdkRMXFc73F4/2GUdUeCg3nzUyINfYG1mNwBgTECu3OaNrzpuUCjidt995KoOP9xVxy5LR/PnjgzQ1K/dcNIFvLhjeWjt4b+dRvvd0BudOSGFrdhkl1fVMGBTHjtxyHr1+FhdPPb425b6jFaT170d0hH2nPRGrERhjutT2nDJ++PxmmpqV6+cN42eXTOLZ9Vl8sLuAX1w2mW8tHMG1ZwzlX1/bxr+v2MGHewv59TXTqG1s5q6Xv2BKWjyP3TCLmvomfvX2Ll7ZlM2/LBvfJgkAjE2N66Yr7FusRmCM8aqspoGV2/K4cmYaUeGhnZbbdLiE0ckxJEY77eyNTc1c/sg6CirquGz6EP708UHGpcZysKiKJeNTeOLG2a3f/lWVZz47zK/e2kX/mHCSYiLJOlbNWz88ixEDY1o/41hVfVC04weSrxpB3+kSN8acVv/59i5++uo2rv/jeoor67yW2XS4hKsf+4TLfreOzIIKAP7w0UF25JZz/+WT+dklk3jy22dQWFFHcmwkv75mWpsOYhHhmwtG8NptC4mJCGNnXjn/edXUNkkAsCQQYFYjMMZ0sCuvnIsf+ogFo5LYdLiE1PgonrzpDEYnx7aWaW5WrnrsE7JLnJm3dY1N3HPRBH755k7OGZ/C4zfObi1bVt1Asyr9fdzQq+sb2Xu0khlDEwN2XcHMagTGmE49/ekhrnp0HXllNa3H/uud3cRHhfPo9bN4fvl8quoauerRT9h0+Pimg29uzWXLkVLuXjae129bSFpiP/7tte1EhIXwy8snt/mMhOhwn0kAIDoizJJAN7FEYEwQK69t4Nd/38PnWaV8/fefkV1SzYd7C1m7t5AfnjuGxOgIZg3rz+u3nUn/6HBu/NMGPsksoqa+if9+ZzdT0uK5elY66f2jeeXWhdwwfxgPfm0GKb1s+YVgZ01DxgSxh1ft4zfv7eU/r5zKA+/sIi4qnKjwEBqalPd+sojIsOOdxAUVtdz4xw0cLK5iybhk/rHzKC8sn8/8AKyPb04/axoyxnDH85v53tMZ1DU2AVBZ18if1h1k6YQUvjFvGM99bz5V9Y3sL6zi7mUT2iQBgJS4KF5YPp8Jg+L4x86jXDg51ZJAH2HzCIwJArvzy1nxhbMT7I9f3MLD183ir58dprS6gR8uHQvAlLQEXrllAZ/uL+biqYO8vk//mAie/e48/vjRQb4xb1iXxW8CyxKBMUHgqU8OERUewvJFo3lo1T7io7bx/q6jnD12YJsO2jEpcYxJ8T1JKy4qnB+fPy7AEZuuZE1DxvQSxZV1/Pe7uympqvdZ7plPD7E9p6z1eUlVPa9tzuHKmWn85Pxx3LJ4NC9sPEJRZT13uLUBE9ysRmBML/HkukM8tmY/23PK+MtNc73uerUjt4yfvbGDpJgI3rj9TNL7R/NixhFqG5r51sIRANy9bDzNqpTXNHDGiAEd3sMEH6sRGNMLNDcrr36eTXJcJB/tK+J//rHHa7mXM7KJCA2hvrGZ5U9voqK2gac/OcTC0UlMGBQPOLN5//XiiTxw9bSuvATTg3VaIxCRbYC3saWCs/e8/Ssypot8eqCY3LJaHrpuJp/uL+axNfuZlpbARR6LsNU1NvHGlhzOn5zKNbPSufmpjVz56CfkltXy88sm+3h3E+x8NQ1d0mVRGGNabTh4jHe25/FvF09s3ZTlb5uyiYsK44JJqVw4OZXd+eXc9fIXjE2NY0yKs+zDql0FlFQ38LU5Q1k8Lpm7l03ggXd2M3RAP5ZOTO3OSzI9XKeJQFUPd2UgxhjHI6sz+XBvIf2jI7hj6Vgq6xp5Z3s+V3isAvrY9bO5+KGPuP25z3n9tjOJCg/lpYwjDE6I4qwxAwH4/qJRNKsyLS3Ra3+CMS067SMQkQoRKffyqBCR8q4M0phgUVbdwLrMImIiQvntqn1sziph5bY8ahqauGZ2Wmu5QQlR/Oar09mdX8ED7+wmr6yGtXsLuWZ2eutNX0T4wZIxnDV2YHddjuklfNUIbMcHY7rYP3bm09is/OXGOdz9t63c+eIW+kdHMHJgDLOG9W9T9pwJKdx85kj+vO4gmQWVNCud7tFrjC8nHDUkIsO8PboiOGN6q9qGJk60jld5bQNl1Q1tjq3clkdaYj/OHJPE/35tOlnHqtlypJSrZ6V53ej97ovGM3lIPB9nFjFv5ACGJ8V0KGPMifgzfPRtj8cq4ADwTiCDMqY3K69t4Iz/eJ9HVmf6LHfbs59zxaPrqG1w1v4pq2ng48wiLp46CBFh3qgkbj9nDBFhIVw5y/s3/ciwUB6+bibDk6L5/uJRp/1aTHA4YSJQ1akej7HAXODjwIdmTO+0bl8RFbWNPLQqkwOFlV7LlFU38Mn+Yg4WVfHbVfsAeH/nURqatM2+vD85fxzrf7qUtMR+nX7eqORY1ty1hHMn2Mggc2pOekKZqn4OnBGAWIzpE9bsKSQuMozI8BB+9sZ2r01Ea/cV0tSsTEtP4Im1B9iVV87KbXkMSYhqs/aPiJxwQ5eWcsacqhMuMSEiP/F4GgLMAgoDFpExvZiqsmZvAWePG8iC0QP52evbWfFFLpfPSGtTbvXuAvpHh/Pkt8/gggfXctfLX7DvaCU3LhhuN3XT5fypEcR5PCJx+gouD2RQxvRWu/IqOFpex5JxKXxj7jCmD03k/rd2tukUbmpWVu8pYMn4FJJiI7nv0knsyC2nvqm5TbOQMV3Fnz6CX3g8/kNVn1XVWn/eXESWicgeEckUkXu8nE8QkTdF5AsR2SEiN53KRRjTHfLKarjhj+vJKq5uPbZmbwEAi8cnExoi/McVUzhWVc9v3ju+NtCWI6WUVDdwzoQUAC6bPoSlE1IYnhTNTNuz13QDX2sNPYn3tYbAWWvoO77eWERCgUeA84FsYKOIrFDVnR7FbgN2quqlIpIM7BGRZ1XV9zq7xvQA72zL5+PMIv7rnV08dsNswOkfmDQ4nlR3z94paQlcP284z67P4ob5wxmXGsfq3QWEhgiLxyYDTvv+ozfMoq6xmRCbAWy6ga8awVu0HTr6NrANWApc6Md7zwUyVfWAe2N/gY5NSgrEidMoGgscAxpP6gqM6SafHigG4J3t+Ww8dIzy2gY2HS5hyfjkNuV+fP44YiJCuf+tnagqq3YXMHt4fxKiw1vLRIaFEh8VjjHdodNEoKp/a3kAm4GLgFuBBwB/BiynAUc8nme7xzz9DpgI5OIkmR+panP7NxKR5SKSISIZhYXWT226X1Ozsv5AMZdNH0JqfCS/ensXH+8roqlZWTI+pU3ZATER3HneOD7aV8Sz67PYlVfOuRNSOnlnY7qezz4CEZkoIn8F3sSZOzBJVR/zs+nGWx23fVPThcAWYAgwA/idiMR3eJHqE6o6R1XnJCcntz9tTJfbmVtOeW0jSyemcNcF4/niSCn/uXIXcVFhzBqW2KH8jQuGMyo5hvve2A7AUksEpgfxtejcy8BK4FNgCbACiBeRASLiz7ZG2cBQj+fpON/8Pd0EvKqOTOAgMMH/8I3pHp8eKAJgwagkrpqVzsTB8WSX1HD22IGtS0d7Cg8N4WdfmUSzQnr/fq1LRxvTE/iqEbRMGrsLWA9kAJvcR4Yf770RGCsiI0UkArgWJ5l4ysLpc0BEUoHxOEtYGNMlduSWsfdohc8ynx0o5rZnP6eusan12Kf7ixmdHENKfBShIcK9X5kIwPmTOp/de86EFL69cATfXzza5gqYHsXX6qMjvswbq2qjiNwO/B0IBf6sqjtE5Bb3/OPA/cBf3N3QBLhbVYu+zOcaczLueH4zdY3NrL5rCeFevskDvLIpm7e35bFgdBI3zB9OQ1MzGw4e48pZx7u8zhwzkA/+aTEjTrDom+0UZnqigG5er6orcZqXPI897vF7LnBBIGMwpjOl1fXsL6wCYMWWXK7uZAnnTYdLAGfDmK/OSWdHbjlV9U0sGNV2nf9RydbcY3on27zeBK3NR0oBiI0M45E1mTQ1d5w2U1xZx8GiKs4eO5C8slpe3HiET/c7w0bnj/Knq8yYns8SgQlam7NKCRG479JJHCis4t3t+R3KtNQG7lg6ljNG9He2kdxTyIRBcSTFRnZ1yMYEhF+JQETOaln+QUSSRWRkYMMyJvA2Z5UwYVA8V89KZ1RyDA9/sK/DSqGbDpcQERrC1LQEfnz+OI6W17Hh0DHmj0rqpqiNOf382aHs34G7gZ+6h8KBvwYyKGMCrblZ2ZJVysxhzsbuty0Zw+78ClbtKmhTLuNwCVPS4okKD2Xh6IHMG+k0By0cbYnA9B3+1AiuBC4DqqC1g9f2Mza9yudZJZTXHl8BdH9hJRV1jcx09wG+bMYQhg7ox+9WZ7bWCuoam9iWXcbs4cf3Cr73K5M4e+xAFo6xDeFN3+FPIqhX53+GAoiIbYpqepWquka+/vtP+fmKHa3HPs9y2v5bZgGHh4awfNFothwpZcPBYwBszymjvqmZ2cOPdwpPTU/gme/MIzYyoAPujOlS/iSCl0Tk90CiiHwPeB/4Q2DDMub02ZFbTkOT8uYXuRSUOyuob84qJaFfOCMHHv9e89XZ6STFRPD4h/sByDjkJAvPGoExfZE/+xH8D/AK8Decmb/3qerDgQ7MmNNle04ZAA1NyjOfHQacGsHMYYltZvhGhYfy7YUjWL2nkN355Ww6XMKIpGiS42x0kOnb/Bo1pKrvqeo/q+pdqvpeoIMy5nTanlNGSlwk501M5dn1WRRW1LGvoJJZwzp+079xwXD6hYfyxIcH2HS4pE2zkDF9lT+jhq4SkX0iUiYi5SJSISLlXRGcMafDtpwypqYl8J2zRnKsqp5fvLkDVZjpZZXQxOgIrp07lNe25FBcVW/NQiYo+FMj+H/AZaqaoKrxqhqnqh2WijamJ6qub2R/YSVT0hKYP2oAkwbH89bWPERgeifbQn737FGEuE1Gc0ZYIjB9nz+J4Kiq7gp4JMYEwM7ccpoVpqYlICLcfJYzF3JMcmynO4KlJfbjyplppMRFMsbWDzJBwNeexVe5v2aIyIvA60Bdy3lVfTWwoRlzclSVNXsLWTTW2TgenGYhcIZ9Alw6fTAPvreXM08wD+BXV0yhorbR9hA2QcHXYOhLPX6vpu0qoQpYIjBdprS6nsPF1Z0254AzC/imJzdy/xVTuHH+cMBJBMlxka2byUeGhfLunWcTGRbq8/OiwkOJCvddxpi+wtd+BC1rC52pqus8z4nImYEOzBhPj6zO5Ml1h/jknnNJcW/q7bUME332s8PcMG8YIsJ2t6PYU5xtEm9MG/70EXibM2DzCEyX2plXTmOz8srn2Z2W2Z3n7DS2O7+Cz7NKqa5vJLPA6Sg2xnTOVx/BAmAhkCwiP/E4FY+z45gxXWZPvnOTf3HjEW7tZKvHXfnlzBiaSGZBJc+uP8z184a1dhQbYzrnq0YQAcTiJIs4j0c5cE3gQzPGUVRZR1FlPVPTEjhcXM1nB451KNPUrOzJr2D28P5cMXMIb23N4+N9zgYylgiM8c1XH8GHwIci8hdVPdyFMRnTxl63NnDH0rH85KUtvLgxiwXtloE+VFxFXWMzEwfHM2lwPH/9LIvfr93PwNhIUuNtiQhjfPFnrSFLAqZb7TnqJILpQxO4cmYaK7fnU1bd0KbMrjxnsvuEQXFMGhLPrGGJVNc3MSUt3mszkjHmONuq0vR4e49W0D86nOTYSL5+xlDqG5t5bXPbTuPdeRWEhghjUpwJYDe4w0etWciYE7NEYHq83fkVjEuNQ0SYPCSBaekJvLDxSJttJXfllTM6OaZ17P/FUwfztTnpXD5jSHeFbUyvccLdNUTkIS+Hy4AMVX3j9Idkgpmq0qy0zgxWVfbmV3DN7PTWMl+bM5R7X9/OtpwypqUnAk6y8FwgLio8lP93zfQujd2Y3sqfGkEUMAPY5z6mAQOA74jI/wUsMhOU7nxxC8ufzmh9nlNaQ1V9E+MGHd8d9bIZQ4gMC+HlDKd5qKymgZzSGiYOtrUQjTkV/iSCMcC5qvqwuyHNecBEnL2ML/D5SmNO0saDx1i1u4Cc0hrg+PyB8anHE0F8VDjLpgzijS051DY0sbulo3iwbaVtzKnwJxGkAZ77FMcAQ1S1CY9F6Iz5sqrqGsktc7aSfH1zDnB8xJBnjQDgq7OHUl7byHs7j7LbTRYTB1mNwJhT4e9+BFtE5EkR+QuwGfgfdxP79wMZnAkuBwqrAIgIDeG1zTmoOpPEhiREdVgyeuHoJNIS+/Hypmx25ZXTPzrc5gsYc4r8mUfwJ5ylJl53H2ep6h9VtUpV/zmw4Zlgsr+wEoBvzBtGZkElO3LL2ZNf0aE2ABASIlw9K42P9hXycWYREwbZfAFjTpW/w0dDgELgGDBGRBYFLiQTrDILKgkNEX5wzmjCQ4VXNmVzoLCK8V4SAcA1s4eiCtklNdY/YMyX4M/w0f8Gvg7sAJrdwwqsDWBcJghlFlQyfEA0KXFRnDM+hec3ZFHf1Nymo9jTsKRo5o0cwPqDx2zEkDFfwgkTAXAFMF5VrWPYBNT+wkpGuzODr5yZxj92HgVgXCeJAJxmpPUHjzHdnU9gjDl5/jQNHQBOaScPEVkmIntEJFNE7umkzBIR2SIiO0Tkw1P5HNP7NTY1c6i4itHuHsHnTEghPiqMEKF12QhvLps+hNV3Lem0+cgYc2L+1AiqcUYNraLtnsV3+HqRiIQCjwDnA9nARhFZoao7PcokAo8Cy1Q1S0RSTv4STF+QdayahiZtvelHhYfyjXnD2ZZT6nPLSBFh5MCYTs8bY07Mn0Swwn2crLlApqoeABCRF4DLgZ0eZb4BvKqqWQCqWnAKn2N6oefWZzF9aAKThziLwmUWOCOGPL/933PRhG6JzZhgc8JEoKpPneJ7pwFHPJ5nA/PalRkHhIvIGpxNb36rqk+3fyMRWQ4sBxg2bNgphmN6irrGJu59fRtnj03mqZvnArDfnUMwKtm+3RvT1TrtIxCRl9yf20Rka/uHH+/tbVC3tnseBswGvgJcCPxMRMZ1eJHqE6o6R1XnJCcn+/HRprs0NSvvbMujubn9X/VxR45V06ywLrOIY1X1gFMjSI2P7DBxzBgTeL46i3/k/rwEuNTL40SygaEez9OBXC9l3nUnpxXhDEm1JSN7sbV7C7n12c9ZuT2v0zItM4gbm5V3t+cDkFlY2dpRbIzpWp0mAlVt+Z/8A1U97PkAfuDHe28ExorISBGJAK6lY1/DG8DZIhImItE4TUe7Tv4yTE/RMjv4nW35nZY5WOQkgkHxUby1NRdV5UBBpc/RQcaYwPFn+Oj5Xo5ddKIXqWojcDvwd5yb+0uqukNEbhGRW9wyu4B3ga3ABuCPqrrd3+BNz3O4uBqAD3YXUFPf5LXMoeIqkmIi+OqcdD47UMyO3HIq6hqtRmBMN+m0s1hEbsX55j+6XZ9AHPCJP2+uqiuBle2OPd7u+a+BX/sbsOnZDhVXERkWQk1DE2v2FHDR1MEdyhworGLkwBgunT6Ehz/I5HcfZAK+5wsYYwLHV43gOZy+gDdo2zcwW1Wv74LYTC90uLiapRNTSIqJ4O1t3vsJDhY5iWBcahzjUmN5d4fTjGQ1AmO6h68+gjJVPQT8Fjjm0T/QICLth4EaQ31jM9kl1YxOjuXCKYP4YHcBtQ1tm4cq6xopqKhjhDsJ7JJpzp7CsZFhtoy0Md3Enz6Cx4BKj+dV7jFj2sgucYaFDk+K4eIpg6mub2LNnsI2ZQ65HcWjWhOB03Q0OiXWlpE2ppv4kwhEVVsHhatqM/7NSDZBpqWjeERSNPNHDaB/dDgr2zUPtYwYGulOHBuVHMuS8cksGjuwa4M1xrTy54Z+QETu4Hgt4Ac4C9EZ08ahYucmP2JgDGGhIVw4eRBvfpFLbUNT63pBLYlgRNLxGcR/uWlu1wdrjGnlT43gFpwdynI4vkzE8kAGZXqnw8XVxEaGkRQTAcDFUwdTVd/Eh3uPNw8dLKpiSEKUz4XkjDFdy5+1hgpwJoMZ49Oh4iqGJ0W3tvUvGJ1EQr9w3t2ez4WTBwHuiCFbT8iYHuWENQIRGSciq0Rku/t8mojcG/jQTE+mqh1GBB0urm7T5BMeGsIFk1J5f+dR6hqbnBnEhZW2bLQxPYw/TUN/AH4KNACo6lashhD0Xth4hAX/tYqK2gbA2VjmyLFqhidFtyl38dTBVNQ18klmMSXVDZTXNjJyoM0XMKYn8ScRRKvqhnbHGgMRjOk9tmaXUlLd0Do8NLe0lsZmbVMjAFg4Jom4qDBWbsvjYJEzCnnkwOgO72eM6T7+JIIiERmNu4S0iFwDdL60pOn1qusbO10nqEXWMWeoaMus4IPuiKH2NYLIsFDOn5jKP3YeZd/RlkRgNQJjehJ/EsFtwO+BCSKSA9wJ3BrIoEz3+t7TGdz54mafZVoSwRp39vBhNxF4a/+/aOpgymoaeG5DFmEhQnr/fqc/aGPMKfNn1NAB4DwRiQFCVLUi8GGZ7rQrr4LK2kaq6hqJiez4T6ShqZnc0lqmpyfwRXYZ6zKLOFRUTb/wUJLjOi4TcfbYgcREhLI1u4xRA2MID/Xn+4cxpqv4Wn30BlX9q4j8pN1xcJqJjgErVLUksCGarlRV19i6a9i6zCIucId9esotraGpWfn6GcM4ULSLd7fnc6yqvs3QUU9R4aEsnZjKii9yW9cYMsb0HL6+mrX8j43z8ojH2WLynYBGZ7pcTmlN6++r9xR4LdPSLDQ6OYbzJqby3q6j7C+s7NBR7OniqU5CsaGjxvQ8ndYIVPX37s9fdFZGRH4ZiKBM98kucW7yaYn9+GB3Aara4Vt+SyIYlhTNhZNTeW1zDqXVDVw4pWPtocXicSlMH5rIonG257QxPc2XmlCmqvcFOkDTtbJLnBrB9fOHcbS8jh255R3KZBVXExEWQmpcFIvGJRMV7vwz8lUj6BcRyhu3ncliSwTG9Dg2ocy0kVNSQ0RYCF+dPRQRZ8vJ9rKOVTO0fz9CQoToiLDWm3v7oaPGmN7BJpSZNrJLakhP7EdyXCTT0xM7TQTDBhy/6V8zeygxEaFMGBTflaEaY04Tm1Bm2sguqSbNHed/7oQUvsgupaiyrvW8qpJV3DYRnD8pla0/v5AB7qqjxpje5VQnlN0SyKBM98kuqWmd8HXuhBRUabPLWGl1AxV1jQwd0LYZKDTEdhczprfymQhEJBS4VVXPA5KBCap6lrt3seljqusbKa6qJ72/c5OfPCSe1PhIVu062lqmZcTQcB8dw8aY3sVnIlDVJpz5Aqhqlc0q7tty3BFDLTUCEeHcCams3VvYuuR069DRAdYxbExf4U/T0GYRWSEiN4rIVS2PgEdmulx2u0QAcOHkVKrqm1iXWQQcTwRDB9h6Qcb0Ff7sWTwAKAbO9TimwKsBich0m+zSlkRw/Nv+wtEDiYsM4+878lk6MZWs4moGxkYSHeHPPx1jTG/gz6JzN3VFIKZrqSr3vr6dy2ekMXfkAMAZMRQRGkJy7PGF4yLCQjh3Ygrv7TxKY1OzO3TUagPG9CW2DGSQKqlu4Nn1Wfzp4wOtx7JLakhzJ4p5WjZ5ECXVDWw8VELWsWrrKDamj7FEEKRaOoY/2ldEXaPTEew5dNTT4vHJRIaF8NbWXPLKajoMHTXG9G6dJgIR+ZH788yuC8d0lZxSp9O3ur6JDQePOcdKqklL7JgIoiPCOHtsMn/7PJtmtRFDxvQ1vmoELX0DD3dFIKZrtYwQCgsRPthdQE19E0WV9Z3uHrZsyiBqG5oBSwTG9DW+EsEuETkEjBeRrR6PbSKytYviM6fgQGElX//9p60bzHiTU1pDTEQoZ40dyAe7C1prCJ4jhjydNzGldfawLS5nTN/SaSJQ1euA+UAmcKnH4xL35wmJyDIR2SMimSJyj49yZ4hIk7uOkfmSPj1QzPqDx/iHu7G8Nzlux/DSCSkcLq5m7V5nnkBnNYLE6AjmjxpAZFjbUUXGmN7vRDOL81V1Os4icy27k+X6s8SEuzzFI8BFwCTgOhGZ1Em5/wb+fvLhG2/ySmsBWOVl5dAWOaU1pCX245wJKQD89TPnr7SzGgHAPcsm8h9XTu0wqsgY07v5szHNYmAfzk39UWCviCzy473nApmqekBV64EXgMu9lPsh8Deg87uWOSm57sSwdZnHRwS1l1Pq1AjS+0czPjWOA0VVhIcKKV42n28xNT2Ba2anByRmY0z38Wf46P8CF6jqYlVdBFwIPOjH69KAIx7Ps91jrUQkDbgSeNzXG4nIchHJEJGMwsJCX0UNzk0+IjSE6vom1h841uF8VV0jpdUNDHFHCLXUCtISO84hMMb0ff4kgnBV3dPyRFX3AuF+vM7bHUXbPf8/4G53cbtOqeoTqjpHVeckJwf3Vocf7i3kqU8O+SyTW1bDOROcsf/eNpZp2aC+Zajo0olOIvDVLGSM6bv8SQQZIvInEVniPv4AbPLjddnAUI/n6UBuuzJzgBfc0UnXAI+KyBV+vHfQevqTQ/zq7Z1U1XnfJK6pWckvq2VUciwLRyexeo+zAb2n9quMzhyayMDYSMakxAY2eGNMj+TPymG34mxOcwfOt/y1OH0FJ7IRGCsiI4EcnH2Ov+FZQFVHtvwuIn8B3lLV1/0JPFjlldXS0KSsyyzigsmDOpwvqqyjoUkZktiPIYn9WP36dg4UVTE6+fhNPru1RuDUAMJCQ1hx+5nERdlCcsYEoxPWCFS1TlX/V1WvUtUrVfVBVa3z43WNwO04o4F2AS+p6g4RuUVEbIezU5RX5tzEV+/x3ree23qTj+Jct+3/g11ty+aU1HToGB6S2I+4KH9a/IwxfU1AvwKq6kpgZbtjXjuGVfXbgYylL6htaKKkugGA1bsLUVVE2nbF5LpDR4ck9iMtsR/jU+P4YHcB31s0qrVMTmkNgxOsY9gY47BF53qR/DLnJj935ADyy2vZnd9xw7iWGsHgBHff4YkpbDx0jPLahtYyna0pZIwJTv7MI5jSFYGYE8t1m4Wum+v0wXtrHsoprSE2Mox4t73/3AkpNDYra/cWtimT1skMYmNM8PGnRvC4iGwQkR+ISGKgAzKda6kRTE9PZEpaPKu9DA3NLa1hSGJUa5PRrGH96R8dziq3n6C+sZmCijqrERhjWvnTWXwWcD3OUNAMEXlORM4PeGSmgzw3EQxO6Mc541PYdLiEsuqGNmVyy2paJ4oBhIY4G9B/sLuAxqZm8spqUMVqBMaYVn71EajqPuBe4G5gMfCQiOy2Tey7Vl5ZDYnR4fSLCGXJ+BSaFdbuazvTOq+0tk0iADh/UgplNQ1kHC45PofAagTGGJc/fQTTRORBnCGg5wKXqupE93d/lpowp0l+WS2D4qMAmDE0kf7R4W2ah2obmiiuqmdIQlSb1509NpmI0BDe33n0+BwCqxEYY1z+DB/9HfAH4F9VtabloKrmisi9AYvMdJDr8W0/NERYPC6ZNXsLaW5WQkKkdcRQ+xpBTGQYC8ck8d6uo8REhiFyfFSRMcb40zT0qqo+45kEWraxVNVnAhaZ6SC/vJZBHt/2l4xP4VhVPVtzyoC2cwjaO29iKoeLq/lwbyEpcZFEhNnIYWOMw5+7wTe9HPv2aY7DnEBtQxPH2jX7LBqXjAiscYeR5rZbTM5Ty8JyW46U2oghY0wbvjavv05E3gRGisgKj8dqoLjrQjRwfOjoII8mnQExEcwYmsjqPU6HcW5ZDSKQGh/V4fWDE/oxNS0BgDRbZdQY48FXH8EnODuTDQR+43G8ArA9i7vY8aGjbW/yS8al8H+r9lJcWUduaQ3JsZ03+5w3MZVtOWVWIzDGtOFrz+LDqrpGVReo6ocej8/dBeVMF2pZbK59IjhnQjLqDiPN9TJ01NP5k1IBGGGbzxtjPHRaIxCRj1X1LBGpoO2GMgKoqsYHPDrTynMymacpQxIYGBvBmj2F5JbWMHFw538tk4bE8+Ly+UwfmhjIUI0xvUynicCdUYyqxnVdOKZFdkk1sZFhJEZHAG0nk3kKCREWjUvmg90F1NQ3tXYKd2beqKSAxWyM6Z18dRYP8PXoyiCD0U1PbuSul493xXhOJmvvnPEplFY3UNfY7LNpyBhjvPHVWbwJp0mos72HR3k5bk6DpmblUHEVh4qrKK9tID4qnLyyztv/zx47kBCBZrWJYsaYk+ers3ikqo5yf7Z/WBIIoJbtJhuatHV3sbyytpPJPCVGRzBrWH/A+xwCY4zxxVfT0AT35yxvj64LMfjklLZO4uad7XleJ5O1d96kVMJCpHVDemOM8ZevpqF/Ar5H2zkELRRn0TkTAC0zhOeOHMCHews5UFgFtJ1M1t7NZ45k8bhk+sdEdEmMxpi+w9eooe+5P8/punAMHE8E3zlrJN9/ZhMvbMwC8FkjiAgL8Tl01BhjOuNrHoHPvQZU9dXTH44BZ/G4uMgwlk5IYUBMBK9sygbotI/AGGO+DF9NQ5f6OKeAJYJT0NjUzCOr9/PNBcM7bcZp2VM4LDSECyen8vyGI4CNCDLGBIavpqGbujKQYLE9t5wH399LZHgItywe7bWMs++wc9NfNmUwz2844nUymTHGnA7+7FCWJCIPicjnIrJJRH4rIjY99RTlu2sGrd1b2GmZlg3oARaMSiI+KqzTyWTGGPNl+bND2QvAWuBq9/n1wIvAeYEKqi9rWU4641AJ1fWNREe0/Suorm+kpLqhtUYQERbCvyybQIh4m9dnjDFfnj+JYICq3u/x/FcickWA4unz8sqdRFDf1Mz6A8c4Z0LbtYFadhnznBh2w/zhXRegMSbo+LND2WoRuVZEQtzH14C3Ax1YX3W0rJaUuEiiwkP40EvzUGf7DhtjTKD4Gj7asvy0AD8B/uqeCgEqgX8PeHR9UH55LcMGRBMTGcbafZYIjDHdz9daQ3GqGu/+DFHVMPcRYnsRnLqj5XWkJkRx9tiBHCisIrukus353NIaQgRS4yK7KUJjTLDxp2kIEekvInNFZFHLI9CB9UWqSl5ZDYPjo1g8LhmAj/YVtSmTU+osNx0W6tdfjTHGfGn+DB/9Ls6oob8Dv3B//jywYfVN5TWN1DY0MyghijEpsQxOiOowjNRzDoExxnQFf752/gg4Azjsrjs0E+h8ELzpVL47Yig1PgoRYdHYZD7OLKKxqbm1TG6ZJQJjTNfyJxHUqmotgIhEqupuYLw/by4iy0Rkj4hkisg9Xs5fLyJb3ccnIjL95MLvXVoSQcuaQYvGJVNR28gX2aUANDcreSfYgN4YY043fxJBtogkAq8D74nIG0DuiV4kIqHAI8BFwCTgOhGZ1K7YQWCxqk4D7gee8D/0nqe5Wamub+z0fMus4pZZwmeNGUhYiLByWz4ARVV11Dc1k5Zos4iNMV3nhIlAVa9U1VJV/TnwM+BPwBV+vPdcIFNVD6hqPc4M5cvbvfcnqlriPv0MSD+J2HucZzdksfCBDyirafB6Pr+sDnCahgASosO5cMogXtmUTU19U+tkMqsRGGO6kr+jhmaJyB3ANCDbvbGfSBpwxON5tnusM98B3unk85eLSIaIZBQW9tzuiZ255ZRWN/DWVu8VpvzyWpJiIogIO/7HfuP84ZTVNPDm1lybQ2CM6Rb+jBq6D3gKSAIGAk+KyL1+vHdnm957+4xzcBLB3d7Oq+oTqjpHVeckJyf78dHdo+VG/lJGttfzR8trW2sDLeaNHMDYlFj++tlhSwTGmG7hz1pD1wEzPTqMHwA+B351gtdlA0M9nqfjpW9BRKYBfwQuUtVif4LuqXJLawgNEb44Usqe/ArGD4prcz6vrLbDLmMiwo0LhnPfGzsIDw0hNjKM+Ch//lqMMeb08Kdp6BDgefeKBPb78bqNwFgRGSkiEcC1wArPAiIyDGeDmxtVda9fEfdQqkpuaQ2XThtMWIjwcsaRDmWOlteS6mWXsStnphEdEcqmwyUMSXSGlhpjTFfpNBGIyMMi8hBQB+wQkb+IyJPAdpy1hnxS1UbgdpwJaLuAl1R1h4jcIiK3uMXuw2lyelREtohIxpe8nm5TXtNIVX0TU9ISOG9iKq9tzqG+8fj8gLrGJo5V1XvdVyAuKpwrZzrdJ9YsZIzpar7aIFpuypuA1zyOr/H3zVV1JbCy3bHHPX7/LvBdf9+vJ8tx2/fTEvsx6owY3t2Rzwe7C1g2ZRAABeXOiKHONpi5Yf5wnl2fZdtRGmO6nK+tKp9q+d1t2hnnPt2jqt7HRwYxz47eyUPiSYmL5OWMI62JIK+s7WSy9iYOjue+SyYxd+SArgnYGGNc/owaWgLsw5kc9iiw1xad6yi37HgiCAsN4erZ6azZW0iBO5u4/axib24+ayRT0hICH6wxxnjwp7P4N8AFqrpYVRcBFwIPBjas3ientIaIsBCSYiIAuHpWOk3NyoovnIFSR8uOrzNkjDE9iT+JIFxV97Q8cUf3hAcupN4pp6SGIQlRhIQ4I37GpMQyLT2B1zbnAE6NoF94qA0NNcb0OP4kgk0i8icRWeI+/oDTgWw8eFs++ooZaezILWfv0Qryy2oZlGBDQ40xPY8/ieAWYAdwB86S1DvdY8ZDrpdVQy+bMYTQEOG1zTnkl9d2OmLIGGO6k892ChEJATap6hTgf7smpN6noamZoxUdE8HA2EgWjR3IG27z0LxRSd0RnjHG+OSzRqCqzcAX7gzgoPbMZ4d5cWOW13P5ZbWo4nX56CtmppFbVktuWcd1howxpifwp+dyMM7M4g1AVctBVb0sYFH1QI+uziSvrJbIsFCumNl2EVVfi8VdMGkQsZFhVNY1MijeNqQ3xvQ8/iSCXwQ8ih6usq7RTQIh/PMrX5AcF8mZYwa2nm+ZQ5DmJRH0iwhlmbvnwCCbNWyM6YF8rTUUJSJ3Al8FJgDrVPXDlkdXBdgTHCh0lla6/4opjE6O5ZZnNrErr7z1/Ik2lPnGvGFER4QycXCc1/PGGNOdfPURPAXMAbbhbDf5my6JqAfa7yaCWcMSefKmM4iNCuPOF7ag6myvkFNaQ1JMBFHhoV5fP2tYf3b84kKGJ8V0WczGGOMvX4lgkqreoKq/B64Bzu6imHqczIJKQkOEYQNiGJzQjx+eO5Y9RyvYnuPUCrzNIWjP5g8YY3oqX4mgdWE5d0npoLW/oIrhSdGtW0x+ZepgIkJDeHWzsxOZkwhsRJAxpnfylQimi0i5+6gAprX8LiLlPl7X52QWVjI6Obb1eUJ0OOdNSmHFllwampqd5SVsHwFjTC/VaSJQ1VBVjXcfcaoa5vF7fFcG2Z0ampo5XFzVJhEAXDkzneKqet7amktVfZPXEUPGGNMb+LPERFA7cqyahiZlTErbRLB4XDIDYiJ4ZLWza6fVCIwxvZUlghPILHBGDI1ObjviJyIshEunDW49b4nAGNNbWSI4gf2FzmTq0e1qBABXzUpv/d06i40xvZUlghPILKgkJS6S+KiOWzBMS09gVHIMEaEhDIyx5SOMMb2T7ZJyAvsLKzv0D7QQEf75gvFsOVLauiGNMcb0NpYIfFBV9hdUdlhkztNFUwdz0dTBXRiVMcacXtY05ENhRR0VdY0dOoqNMaYvsUTgQ6a7xtCYFFsszhjTd1ki8GF/y9DRFKsRGGP6LksEPuwvrCImItT2GjbG9GmWCHzILKhkdEqsrRxqjOnTLBEAWcXVNDVrm2OVdY3syC1jTLL3oaPGGNNXBH0i+OxAMYt+vZqfvrq1daMZgP94exelNQ1cP39YN0ZnjDGBF9SJoKlZ+eWbOwkPFV7KyOapTw4BsGZPAc9vyGL5olHMHj6ge4M0xpgAC+oJZa9sOsLOvHJ+e+0M3tqax/1v7yI1Poqfv7mDcamx/Pi8cd0dojHGBFxAawQiskxE9ohIpojc4+W8iMhD7vmtIjIrkPF4qqht4Nd/38Oc4f25bPoQHvz6DEYnx3Drs59TXFnPb746o9M9iI0xpi8JWCIQkVDgEZyN7ycB14nIpHbFLgLGuo/lwGOBiqe9R1bvp6iynvsunYSIEBsZxh++OYe0xH7884XjmZqe0FWhGGNMtwpk09BcIFNVDwCIyAvA5cBOjzKXA0+r00v7mYgkishgVc073cF8uLeQX711/KMPFlVx9ax0pqUnth4bnhTDx3efY8NFjTFBJZCJIA044vE8G5jnR5k0oE0iEJHlODUGhg07tVE8sZFhjE09PhR09vD+3HXh+A7lLAkYY4JNIBOBtzuqnkIZVPUJ4AmAOXPmdDjvj9nD+zN7+OxTeakxxvRpgewszgaGejxPB3JPoYwxxpgACmQi2AiMFZGRIhIBXAusaFdmBfBNd/TQfKAsEP0DxhhjOhewpiFVbRSR24G/A6HAn1V1h4jc4p5/HFgJXAxkAtXATYGKxxhjjHcBnVCmqitxbvaexx73+F2B2wIZgzHGGN+CeokJY4wxlgiMMSboWSIwxpggZ4nAGGOCnHiuwd8biEghcPgkXjIQKApQOD1ZsF43BO+123UHl5O97uGqmuztRK9LBCdLRDJUdU53x9HVgvW6IXiv3a47uJzO67amIWOMCXKWCIwxJsgFQyJ4orsD6CbBet0QvNdu1x1cTtt19/k+AmOMMb4FQ43AGGOMD5YIjDEmyPXpRCAiy0Rkj4hkisg93R1PoIjIUBFZLSK7RGSHiPzIPT5ARN4TkX3uz/7dHWsgiEioiGwWkbfc533+ut1tXV8Rkd3u3/uCILnuH7v/xreLyPMiEtUXr1tE/iwiBSKy3eNYp9cpIj9173N7ROTCk/28PpsIRCQUeAS4CJgEXCcik7o3qoBpBP5JVScC84Hb3Gu9B1ilqmOBVe7zvuhHwC6P58Fw3b8F3lXVCcB0nOvv09ctImnAHcAcVZ2Cs7z9tfTN6/4LsKzdMa/X6f5fvxaY7L7mUff+57c+mwiAuUCmqh5Q1XrgBeDybo4pIFQ1T1U/d3+vwLkppOFc71NusaeAK7olwAASkXTgK8AfPQ736esWkXhgEfAnAFWtV9VS+vh1u8KAfiISBkTj7GjY565bVdcCx9od7uw6LwdeUNU6VT2Is7/L3JP5vL6cCNKAIx7Ps91jfZqIjABmAuuB1JYd39yfKd0YWqD8H/AvQLPHsb5+3aOAQuBJt0nsjyISQx+/blXNAf4HyALycHY0/Ad9/Lo9dHadX/pe15cTgXg51qfHyopILPA34E5VLe/ueAJNRC4BClR1U3fH0sXCgFnAY6o6E6iibzSH+OS2iV8OjASGADEickP3RtUjfOl7XV9OBNnAUI/n6TjVyD5JRMJxksCzqvqqe/ioiAx2zw8GCrorvgA5E7hMRA7hNP2dKyJ/pe9fdzaQrarr3eev4CSGvn7d5wEHVbVQVRuAV4GF9P3rbtHZdX7pe11fTgQbgbEiMlJEInA6U1Z0c0wBISKC0168S1X/1+PUCuBb7u/fAt7o6tgCSVV/qqrpqjoC5+/3A1W9gb5/3fnAEREZ7x5aCuykj183TpPQfBGJdv/NL8XpD+vr192is+tcAVwrIpEiMhIYC2w4qXdW1T77AC4G9gL7gX/r7ngCeJ1n4VQFtwJb3MfFQBLO6IJ97s8B3R1rAP8MlgBvub/3+esGZgAZ7t/560D/ILnuXwC7ge3AM0BkX7xu4HmcfpAGnG/83/F1ncC/ufe5PcBFJ/t5tsSEMcYEub7cNGSMMcYPlgiMMSbIWSIwxpggZ4nAGGOCnCUCY4wJcpYITK8lIv/mrkS5VUS2iMi8AH/eGhHxe7NwEZkvIuvd2HaJyM/d45ed7tVwRURF5Dcez+9q+TxjTiSsuwMw5lSIyALgEmCWqtaJyEAgopvDau8p4Guq+oW7GuR4AFVdwemf3FgHXCUi/6WqRaf5vU0fZzUC01sNBopUtQ5AVYtUNRdARO4TkY3umvVPuLNQW77RPygia91v6GeIyKvu+u6/csuMcNf4f8qtabwiItHtP1xELhCRT0XkcxF52V3nqb0UnElBqGqTqu50X/ttEfmd+/sWj0eNiCwWkRh3PfqN7qJy/qya24izh+2PT/YP0hhLBKa3+gcwVET2isijIrLY49zvVPUMddas74dTc2hRr6qLgMdxpujfBkwBvi0iSW6Z8cATqjoNKAd+4PnBbu3jXuA8VZ2FM8P3J15ifBDYIyKvicj3RSSqfQFVnaGqM4Cfue/zCc4s0Q9U9QzgHODX7uqiJ/IIcL2IJPhR1phWlghMr6SqlcBsYDnOkswvisi33dPnuG3z24BzcTbsaNHSJLMN2KHOXg51wAGOL9x1RFXXub//FWcJD0/zcTY7WiciW3DWfRnuJcZfAnNwktY3gHe9XYuIjAV+DXxdncXULgDucd97DRAFDPPxx9HyeeXA0zibtxjjN+sjML2Wqjbh3CjXuDf9b4nIC8CjOLtYHXE7TD2/ide5P5s9fm953vL/of26K+2fC/Ceql7nR4z7gcdE5A9AoUetw3kj55v+S8D3Wpq23Pe/WlX3nOj9vfg/4HPgyVN4rQlSViMwvZKIjHe/SbeYARzm+E2/yG23v+YU3n6Y2xkNcB3wcbvznwFnisgYN5ZoERnnJcavtPRP4KwI2QSUtiv2JPCkqn7kcezvwA89+jZmuj/TRGSVr8BV9RhOYvmO70s05jhLBKa3igWeEpGdIrIVp6nm5+ps2fgHnKaf13GWIz9Zu3BqF1uBAcBjnidVtRD4NvC8W+YzYIKX97kRp49gC85Kmde7tRgARGQ4TqK62aPDeA5wPxAObBVn8/L73ZcMxukUPpHfAAP9vFZjbPVRYzyJs9XnW25Hc48iIrcDWe7wU2NOG+sjMKaXUNXfdXcMpm+yGoExxgQ56yMwxpggZ4nAGGOCnCUCY4wJcpYIjDEmyFkiMMaYIPf/AW3O816IjD/QAAAAAElFTkSuQmCC\n",
"text/plain": [
""
]
},
"metadata": {
"needs_background": "light"
},
"output_type": "display_data"
}
],
"source": [
"import seaborn as sns\n",
"from scipy.stats import binom\n",
"size = list(range(1,100))\n",
"theta = 0.7\n",
"\n",
"# qbinom(p, size, prob, lower.tail = TRUE, log.p = FALSE)\n",
"power = []\n",
"for n in size:\n",
" critlo = binom.ppf(0.25,n,.5)-1\n",
" crithi = binom.ppf(0.975,n,.5)\n",
" power.append(binom.cdf(critlo,n,theta) + 1-binom.cdf(crithi,n,theta))\n",
"\n",
"ax = sns.lineplot(x = size, y = power)\n",
"ax.set(xlabel = 'Sample Size, N', ylabel = 'Probablility of rejecting the Null')\n",
"\n",
"glue(\"powerfunctionsample-fig\", ax, display=False)"
]
},
{
"cell_type": "markdown",
"id": "metallic-characterization",
"metadata": {},
"source": [
"```\n",
"{glue:figure} powerfunctionsample-fig\n",
":figwidth: 600px\n",
":name: fig-powerfunctionsample\n",
"\n",
"The power of our test, plotted as a function of the sample size $N$. In this case, the true value of $\\\\theta$ is 0.7, but the null hypothesis is that $\\\\theta = 0.5$. Overall, larger $N$ means greater power. (The small zig-zags in this function occur because of some odd interactions between $\\\\theta$, $\\\\alpha$ and the fact that the binomial distribution is discrete; it doesn't matter for any serious purpose)\n",
"\n",
"```"
]
},
{
"cell_type": "markdown",
"id": "filled-november",
"metadata": {},
"source": [
"Because power is important, whenever you're contemplating running an experiment it would be pretty useful to know how much power you're likely to have. It's never possible to know for sure, since you can't possibly know what your effect size is. However, it's often (well, sometimes) possible to guess how big it should be. If so, you can guess what sample size you need! This idea is called **_power analysis_**, and if it's feasible to do it, then it's very helpful, since it can tell you something about whether you have enough time or money to be able to run the experiment successfully. It's increasingly common to see people arguing that power analysis should be a required part of experimental design, so it's worth knowing about. I don't discuss power analysis in this book, however. This is partly for a boring reason and partly for a substantive one. The boring reason is that I haven't had time to write about power analysis yet. The substantive one is that I'm still a little suspicious of power analysis. Speaking as a researcher, I have very rarely found myself in a position to be able to do one -- it's either the case that (a) my experiment is a bit non-standard and I don't know how to define effect size properly, or (b) I literally have so little idea about what the effect size will be that I wouldn't know how to interpret the answers. Not only that, after extensive conversations with someone who does stats consulting for a living (my wife, as it happens), I can't help but notice that in practice the *only* time anyone ever asks her for a power analysis is when she's helping someone write a grant application. In other words, the only time any scientist ever seems to want a power analysis in real life is when they're being forced to do it by bureaucratic process. It's not part of anyone's day to day work. In short, I've always been of the view that while power is an important concept, power *analysis* is not as useful as people make it sound, except in the rare cases where (a) someone has figured out how to calculate power for your actual experimental design and (b) you have a pretty good idea what the effect size is likely to be. Maybe other people have had better experiences than me, but I've personally never been in a situation where both (a) and (b) were true. Maybe I'll be convinced otherwise in the future, and probably a future version of this book would include a more detailed discussion of power analysis, but for now this is about as much as I'm comfortable saying about the topic."
]
},
{
"cell_type": "markdown",
"id": "motivated-mason",
"metadata": {},
"source": [
"(nhstmess)=\n",
"## Some issues to consider\n",
"\n",
"What I've described to you in this chapter is the orthodox framework for null hypothesis significance testing (NHST). Understanding how NHST works is an absolute necessity, since it has been the dominant approach to inferential statistics ever since it came to prominence in the early 20th century. It's what the vast majority of working scientists rely on for their data analysis, so even if you hate it you need to know it. However, the approach is not without problems. There are a number of quirks in the framework, historical oddities in how it came to be, theoretical disputes over whether or not the framework is right, and a lot of practical traps for the unwary. I'm not going to go into a lot of detail on this topic, but I think it's worth briefly discussing a few of these issues.\n",
"\n",
"### Neyman versus Fisher\n",
"\n",
"The first thing you should be aware of is that orthodox NHST is actually a mash-up of two rather different approaches to hypothesis testing, one proposed by Sir Ronald Fisher and the other proposed by Jerzy Neyman (for a historical summary see {cite}`Lehmann2011`. The history is messy because Fisher and Neyman were real people whose opinions changed over time, and at no point did either of them offer \"the definitive statement\" of how we should interpret their work many decades later. That said, here's a quick summary of what I take these two approaches to be. \n",
"\n",
"First, let's talk about Fisher's approach. As far as I can tell, Fisher assumed that you only had the one hypothesis (the null), and what you want to do is find out if the null hypothesis is inconsistent with the data. From his perspective, what you should do is check to see if the data are \"sufficiently unlikely\" according to the null. In fact, if you remember back to our earlier discussion, that's how Fisher defines the $p$-value. According to Fisher, if the null hypothesis provided a very poor account of the data, you could safely reject it. But, since you don't have any other hypotheses to compare it to, there's no way of \"accepting the alternative\" because you don't necessarily have an explicitly stated alternative. That's more or less all that there was to it. \n",
"\n",
"In contrast, Neyman thought that the point of hypothesis testing was as a guide to action, and his approach was somewhat more formal than Fisher's. His view was that there are multiple things that you could *do* (accept the null or accept the alternative) and the point of the test was to tell you which one the data support. From this perspective, it is critical to specify your alternative hypothesis properly. If you don't know what the alternative hypothesis is, then you don't know how powerful the test is, or even which action makes sense. His framework genuinely requires a competition between different hypotheses. For Neyman, the $p$ value didn't directly measure the probability of the data (or data more extreme) under the null, it was more of an abstract description about which \"possible tests\" were telling you to accept the null, and which \"possible tests\" were telling you to accept the alternative.\n",
"\n",
"As you can see, what we have today is an odd mishmash of the two. We talk about having both a null hypothesis and an alternative (Neyman), but usually [^note12] define the $p$ value in terms of exreme data (Fisher), but we still have $\\alpha$ values (Neyman). Some of the statistical tests have explicitly specified alternatives (Neyman) but others are quite vague about it (Fisher). And, according to some people at least, we're not allowed to talk about accepting the alternative (Fisher). It's a mess: but I hope this at least explains why it's a mess.\n",
"\n",
"[^note12]: Although this book describes both Neyman's and Fisher's definition of the $p$ value, most don't. Most introductory textbooks will only give you the Fisher version."
]
},
{
"cell_type": "markdown",
"id": "marine-virgin",
"metadata": {},
"source": [
"### Bayesians versus frequentists\n",
"\n",
"Earlier on in this chapter I was quite emphatic about the fact that you *cannot* interpret the $p$ value as the probability that the null hypothesis is true. NHST is fundamentally a frequentist tool (see the chapter on [probability](probability)) and as such it does not allow you to assign probabilities to hypotheses: the null hypothesis is either true or it is not. The Bayesian approach to statistics interprets probability as a degree of belief, so it's totally okay to say that there is a 10\\% chance that the null hypothesis is true: that's just a reflection of the degree of confidence that you have in this hypothesis. You aren't allowed to do this within the frequentist approach. Remember, if you're a frequentist, a probability can only be defined in terms of what happens after a large number of independent replications (i.e., a long run frequency). If this is your interpretation of probability, talking about the \"probability\" that the null hypothesis is true is complete gibberish: a null hypothesis is either true or it is false. There's no way you can talk about a long run frequency for this statement. To talk about \"the probability of the null hypothesis\" is as meaningless as \"the colour of freedom\". It doesn't have one!\n",
"\n",
"Most importantly, this *isn't* a purely ideological matter. If you decide that you are a Bayesian and that you're okay with making probability statements about hypotheses, you have to follow the Bayesian rules for calculating those probabilities. I'll talk more about this in the chapter on [Bayesian statistics](bayes), but for now what I want to point out to you is the $p$ value is a *terrible* approximation to the probability that $H_0$ is true. If what you want to know is the probability of the null, then the $p$ value is not what you're looking for!"
]
},
{
"cell_type": "markdown",
"id": "japanese-preparation",
"metadata": {},
"source": [
"### Traps\n",
"\n",
"\n",
"As you can see, the theory behind hypothesis testing is a mess, and even now there are arguments in statistics about how it \"should\" work. However, disagreements among statisticians are not our real concern here. Our real concern is practical data analysis. And while the \"orthodox\" approach to null hypothesis significance testing has many drawbacks, even an unrepentant Bayesian like myself would agree that they can be useful if used responsibly. Most of the time they give sensible answers, and you can use them to learn interesting things. Setting aside the various ideologies and historical confusions that we've discussed, the fact remains that the biggest danger in all of statistics is *thoughtlessness*. I don't mean stupidity, here: I literally mean thoughtlessness. The rush to interpret a result without spending time thinking through what each test actually says about the data, and checking whether that's consistent with how you've interpreted it. That's where the biggest trap lies. \n",
"\n",
"To give an example of this, consider the following example see {cite}`Gelman2006`. Suppose I'm running my ESP study, and I've decided to analyse the data separately for the male participants and the female participants. Of the male participants, 33 out of 50 guessed the colour of the card correctly. This is a significant effect ($p = .03$). Of the female participants, 29 out of 50 guessed correctly. This is not a significant effect ($p = .32$). Upon observing this, it is extremely tempting for people to start wondering why there is a difference between males and females in terms of their psychic abilities. However, this is wrong. If you think about it, we haven't *actually* run a test that explicitly compares males to females. All we have done is compare males to chance (binomial test was significant) and compared females to chance (binomial test was non significant). If we want to argue that there is a real difference between the males and the females, we should probably run a test of the null hypothesis that there is no difference! We can do that using a different hypothesis test,[^note13] but when we do that it turns out that we have no evidence that males and females are significantly different ($p = .54$). *Now* do you think that there's anything fundamentally different between the two groups? Of course not. What's happened here is that the data from both groups (male and female) are pretty borderline: by pure chance, one of them happened to end up on the magic side of the $p = .05$ line, and the other one didn't. That doesn't actually imply that males and females are different. This mistake is so common that you should always be wary of it: **the difference between significant and not-significant is *not* evidence of a real difference** -- if you want to say that there's a difference between two groups, then you have to test for that difference! \n",
"\n",
"The example above is just that: an example. I've singled it out because it's such a common one, but the bigger picture is that data analysis can be tricky to get right. Think about *what* it is you want to test, *why* you want to test it, and whether or not the answers that your test gives could possibly make any sense in the real world. \n",
"\n",
"[^note13]: In this case, the Pearson [chi-square test of independence](chisquare) is what we use."
]
},
{
"cell_type": "markdown",
"id": "structured-percentage",
"metadata": {},
"source": [
"## Summary\n",
"\n",
"Null hypothesis testing is one of the most ubiquitous elements to statistical theory. The vast majority of scientific papers report the results of some hypothesis test or another. As a consequence it is almost impossible to get by in science without having at least a cursory understanding of what a $p$-value means, making this one of the most important chapters in the book. As usual, I'll end the chapter with a quick recap of the key ideas that we've talked about:\n",
"\n",
"\n",
"- Research hypotheses and statistical [hypotheses](hypotheses). Null and alternative [hypotheses](hypotheses).\n",
"- Type 1 and Type 2 [errors](errortypes)\n",
"- [Test statistics](teststatistics) and sampling distributions\n",
"- Hypothesis testing as a [decision making](decisionmaking) process\n",
"- [$p$-values](pvalue) as \"soft\" decisions\n",
"- [Writing up](writeup) the results of a hypothesis test\n",
"- [Effect size and power](effectsize)\n",
"- A few issues to consider regarding [hypothesis testing](nhstmess)\n",
"\n",
"\n",
"\n",
"Later in the book, in the section on [Bayesian statistics](bayes), I'll revisit the theory of null hypothesis tests from a Bayesian perspective, and introduce a number of new tools that you can use if you aren't particularly fond of the orthodox approach. But for now, though, we're done with the abstract statistical theory, and we can start discussing specific data analysis tools."
]
},
{
"cell_type": "code",
"execution_count": null,
"id": "nutritional-approval",
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"celltoolbar": "Tags",
"kernelspec": {
"display_name": "Python 3",
"language": "python",
"name": "python3"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 3
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython3",
"version": "3.9.2"
}
},
"nbformat": 4,
"nbformat_minor": 5
}