// Numbas version: finer_feedback_settings
{"name": "Perform chi-squared test to see if data follows Poisson distribution", "extensions": ["stats"], "custom_part_types": [], "resources": [], "navigation": {"allowregen": true, "showfrontpage": false, "preventleave": false, "typeendtoleave": false}, "question_groups": [{"pickingStrategy": "all-ordered", "questions": [{"variable_groups": [], "variables": {"ex5": {"templateType": "anything", "group": "Ungrouped variables", "definition": "precround(x5*thismany,2)", "description": "", "name": "ex5"}, "few1": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\"two\",\" \")", "description": "", "name": "few1"}, "thismany": {"templateType": "anything", "group": "Ungrouped variables", "definition": "a+b+c+d+f+t", "description": "", "name": "thismany"}, "f1": {"templateType": "anything", "group": "Ungrouped variables", "definition": "m*random(0.6..1.6#0.05)", "description": "", "name": "f1"}, "ch99": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=2,11.34,9.21)", "description": "", "name": "ch99"}, "cat": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\"categories\",\"category\")", "description": "", "name": "cat"}, "x5": {"templateType": "anything", "group": "Ungrouped variables", "definition": "precround(1-sum(x),3)", "description": "", "name": "x5"}, "pval": {"templateType": "anything", "group": "Ungrouped variables", "definition": "switch(ch<ch90,0,ch<ch95,1,ch<ch99,2,3)", "description": "", "name": "pval"}, "tol1": {"templateType": "anything", "group": "Ungrouped variables", "definition": "0.001", "description": "", "name": "tol1"}, "l": {"templateType": "anything", "group": "Ungrouped variables", "definition": "random(1.1..1.2#0.01)", "description": "", "name": "l"}, "ex": {"templateType": "anything", "group": "Ungrouped variables", "definition": "map(precround(k*thismany,2),k,x)", "description": "", "name": "ex"}, "mc": {"templateType": "anything", "group": "Ungrouped variables", "definition": "switch(pval<2,[1,0],[0,1])", "description": "", "name": "mc"}, "f4": {"templateType": "anything", "group": "Ungrouped variables", "definition": "m*random(0.6..1.4#0.05)", "description": "", "name": "f4"}, "b": {"templateType": "anything", "group": "Ungrouped variables", "definition": "round(exp(-l)*l*f2)", "description": "", "name": "b"}, "f3": {"templateType": "anything", "group": "Ungrouped variables", "definition": "m*random(0.6..1.4#0.05)", "description": "", "name": "f3"}, "d": {"templateType": "anything", "group": "Ungrouped variables", "definition": "round(exp(-l)*l^3/6*f4)", "description": "", "name": "d"}, "z": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,0,1)", "description": "", "name": "z"}, "few": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(ex[4]+ex5<5,3,2)", "description": "", "name": "few"}, "tp": {"templateType": "anything", "group": "Ungrouped variables", "definition": "ex5", "description": "", "name": "tp"}, "eq5": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\" \",ep5)", "description": "", "name": "eq5"}, "fp": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,ep5,f+t)", "description": "", "name": "fp"}, "ep4": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,ex[3]+ex[4]+ex5,ex[3])", "description": "", "name": "ep4"}, "f": {"templateType": "anything", "group": "Ungrouped variables", "definition": "max(round(exp(-l)*l^4/24*f5),random(6,7))", "description": "", "name": "f"}, "x": {"templateType": "anything", "group": "Ungrouped variables", "definition": "map(precround(y,3),y,map(exp(-v)*v^p/fact(p),p,0..4))", "description": "", "name": "x"}, "tol": {"templateType": "anything", "group": "Ungrouped variables", "definition": "0.01", "description": "", "name": "tol"}, "ch90": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=2,6.25,4.61)", "description": "", "name": "ch90"}, "v": {"templateType": "anything", "group": "Ungrouped variables", "definition": "precround((b+2*c+3*d+4*f)/thismany,2)", "description": "", "name": "v"}, "a": {"templateType": "anything", "group": "Ungrouped variables", "definition": "round(exp(-l)*f1)", "description": "", "name": "a"}, "c": {"templateType": "anything", "group": "Ungrouped variables", "definition": "round(exp(-l)*l^2/2*f3)", "description": "", "name": "c"}, "dp": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,d+f+t,d)", "description": "", "name": "dp"}, "f5": {"templateType": "anything", "group": "Ungrouped variables", "definition": "m*random(0.8..1.1#0.05)", "description": "", "name": "f5"}, "t": {"templateType": "anything", "group": "Ungrouped variables", "definition": "0", "description": "", "name": "t"}, "fq": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\" \",fp)", "description": "", "name": "fq"}, "correct": {"templateType": "anything", "group": "Ungrouped variables", "definition": "switch(pval=0,'is greater than 10%',pval=1,'lies between 5% and 10%',pval=2,'lies between 1% and 5%','is less than 1%')", "description": "", "name": "correct"}, "f2": {"templateType": "anything", "group": "Ungrouped variables", "definition": "m*random(0.6..1.6#0.05)", "description": "", "name": "f2"}, "ch95": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=2,7.82,5.99)", "description": "", "name": "ch95"}, "mm": {"templateType": "anything", "group": "Ungrouped variables", "definition": "switch(pval=0,[1,0,0,0],pval=1,[0,1,0,0],pval=2,[0,0,1,0],[0,0,0,1])", "description": "", "name": "mm"}, "ch": {"templateType": "anything", "group": "Ungrouped variables", "definition": "precround((a-ex[0])^2/ex[0]+(b-ex[1])^2/ex[1]+(c-ex[2])^2/ex[2]+(dp-ep4)^2/ep4+(fp-ep5)^2/ep5+(tp-ex5)^2/ex5,2)", "description": "", "name": "ch"}, "m": {"templateType": "anything", "group": "Ungrouped variables", "definition": "random(120..250)", "description": "", "name": "m"}, "cho": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(pval<2,'retain','reject')", "description": "", "name": "cho"}, "ep5": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,ex[4],ex[4]+ex5)", "description": "", "name": "ep5"}, "evi": {"templateType": "anything", "group": "Ungrouped variables", "definition": "['no','slight','moderate','strong']", "description": "", "name": "evi"}, "freq": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\"frequencies\",\"frequency\")", "description": "", "name": "freq"}, "sumofthe": {"templateType": "anything", "group": "Ungrouped variables", "definition": "if(few=3,\"sum of the\",\" \")", "description": "", "name": "sumofthe"}}, "ungrouped_variables": ["f1", "f2", "f3", "f4", "f5", "m", "pval", "ch", "ex", "freq", "few1", "ep4", "ep5", "tp", "cho", "few", "ex5", "tol", "x5", "correct", "sumofthe", "fp", "fq", "thismany", "ch99", "ch90", "dp", "ch95", "a", "evi", "c", "b", "d", "mc", "f", "mm", "tol1", "eq5", "l", "cat", "t", "v", "x", "z"], "question_groups": [{"pickingStrategy": "all-ordered", "questions": [], "name": "", "pickQuestions": 0}], "name": "Perform chi-squared test to see if data follows Poisson distribution", "functions": {"table1": {"type": "html", "language": "jme", "definition": "tableformat(table2(data,headers,rtot,ctot),data,c,r,rtot,ctot)", "parameters": [["data", "list"], ["headers", "list"], ["c", "boolean"], ["r", "boolean"], ["rtot", "boolean"], ["ctot", "boolean"]]}, "tableformat": {"type": "html", "language": "javascript", "definition": "\n      if(c){table.find('td').css('border-right','1px solid').css('border-left','1px solid');}\n      \n        if(r){table.find('td').css('border-bottom','1px solid');}\n        /* Put a border below the headers */\n        table.find('thead').css('border-bottom','1px solid');\n        /*if row totals, then split off via gridlines*/\n        if(rtot){table.find('tr').find('td:last').css('border-right','1px solid').css('border-left','1px solid');}\n      \n        /* put a border on the right and left of the first column, assuming there are row labels. */\n        table.find('tr').find('td:first').css('border-right','1px solid').css('border-left','1px solid'); \n        table.find('tr').find('td:last').css('border-right','1px solid'); \n        /*make sure there is a border at the bottom*/\n        table.find('tr:last').css('border-bottom','1px solid'); \n        \n        return table;\n      \n      ", "parameters": [["table", "html"], ["data", "list"], ["c", "boolean"], ["r", "boolean"], ["rtot", "boolean"], ["ctot", "boolean"]]}, "table2": {"type": "html", "language": "javascript", "definition": "\n        /* create table element */\n      var table = $('<table><thead/><tbody/></table>');\n         /* add headers */\n        for(var i=0;i<headers.length;i++) {\n        table.find('thead').append($('<th/>').html(headers[i]));\n        }\n        if(rtot){ table.find('thead').append('<th>Totals</th>');}\n        \n        /*for each record in data, add a row to the table*/\n        for(var i=0;i<data.length;i++) {\n      var row = $('<tr/>');\n      var record = data[i];\n      var s=0;\n      for(var j=0;j<record.length;j++) {\n        var cell=record[j];\n        if(typeof cell=='number')\n      cell=Numbas.math.niceNumber(cell);\n        row.append($('<td/>').html(cell));    \n      }\n       for(var j=1;j<record.length;j++) {\n        s+=record[j];    \n      }\n         if(rtot){ row.append($('<td/>').html(s));}\n      table.find('tbody').append(row);\n        }\n        \n        /* this function adds a row of totals to the bottom of the table created by the `table` function */\n        \n        /* compute the totals */\n        var row = $('<tr/>');\n        var ctotals=[];\n        for(var i=0;i<data.length;i++) {\n      for(var j=0;j<data[i].length;j++) {\n        ctotals[j] = (ctotals[j]||0)+data[i][j];\n      }\n        }\n        \n        /* create the table row element */\n      if(ctot){row.append('<td><strong>Totals</strong></td>');\n      var s=0;\n        for(var j=1;j<ctotals.length;j++) {\n      var cell = $('<td/>').html(ctotals[j]);\n      s+=ctotals[j];\n      row.append(cell);\n        }\n         if(rtot){cell= $('<td/>').html(s); row.append(cell);}\n       /* add a border to the top and bottom of the totals row */\n        row.css('border-top','1px solid');\n        row.css('border-bottom','1px solid');\n      /* add the totals row to the table */\n        table.find('tbody').append(row);\n      }\n      return table;\n      \n        \n      ", "parameters": [["data", "list"], ["headers", "list"], ["rtot", "boolean"], ["ctot", "boolean"]]}}, "showQuestionGroupNames": false, "parts": [{"type": "information", "prompt": "\n      <p><strong>Step 1: Null hypothesis</strong></p>\n      <p>$\\operatorname{H}_0$: The number of calls per minute follows a Poisson distribution.</p>\n      <p><strong>Step 2: Alternative hypothesis</strong></p>\n      <p>$\\operatorname{H}_1$:&nbsp;The number of calls per minute does not follow a Poisson distribution.</p>\n      ", "showCorrectAnswer": true, "scripts": {}, "marks": 0}, {"scripts": {}, "gaps": [{"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "v", "minValue": "v", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x[0]+tol1", "minValue": "x[0]-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x[1]+tol1", "minValue": "x[1]-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x[2]+tol1", "minValue": "x[2]-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x[3]+tol1", "minValue": "x[3]-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x[4]+tol1", "minValue": "x[4]-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "x5+tol1", "minValue": "x5-tol1", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex[0]+tol", "minValue": "ex[0]-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex[1]+tol", "minValue": "ex[1]-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex[2]+tol", "minValue": "ex[2]-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex[3]+tol", "minValue": "ex[3]-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex[4]+tol", "minValue": "ex[4]-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ex5+tol", "minValue": "ex5-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "few", "minValue": "few", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "ch+tol", "minValue": "ch-tol", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}], "type": "gapfill", "prompt": "\n      <p><strong>Step 3: Test statistic</strong></p>\n        <p>(a) Calculate the Poisson rate parameter to 2 decimal places &nbsp;</p>\n        <p>$\\lambda=\\;$?[[0]]</p>\n        <p>(b) Calculate the Poisson probabilities for each category using the value for $\\lambda$ &nbsp;you have just calculated.</p>\n        <p>Calculate all probabilities to 3 decimal places.</p>\n        <table style=\"border: 1px solid black;\">\n        <tbody>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=0)$</strong></td>\n        <td>[[1]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=1)$</strong></td>\n        <td>[[2]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=2)$</strong></td>\n        <td>[[3]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=3)$</strong></td>\n        <td>[[4]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=4)$</strong></td>\n        <td>[[5]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X \\gt 4)$</strong></td>\n        <td>[[6]]</td>\n        </tr>\n        </tbody>\n        </table>\n        <p>&nbsp;</p>\n        <p>(Calculate $P(X \\gt 4)$ as $1-P(X=0)-P(X=1)-P(X=2)-P(X=3) - P(X=4)$ &nbsp;using the probabilities you have found).</p>\n        <p>c) Calculate the expected frequencies to 2 decimal places using the probabilities you have just calculated.</p>\n        <table style=\"border: 1px solid black;\">\n        <tbody>\n        <tr>\n        <td><strong>Observed Frequencies</strong></td>\n        <td><strong>Expected Frequencies</strong></td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{a}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[7]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{b}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[8]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{c}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[9]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{d}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[10]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{f}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[11]]</td>\n        </tr>\n        <tr>\n        <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$\\var{t}$</strong></td>\n        <td style=\"border-top: 1px solid;\">[[12]]</td>\n        </tr>\n        </tbody>\n        </table>\n        <p>How many categories need to be pooled to make sure that the expected frequency for each category is $\\geq 5$ &nbsp;? &nbsp;[[13]]</p>\n        <p>Hence the test statistic is: $\\chi^2=\\;$?[[14]]</p>\n        <p>Input the test statistic to 2 decimal places.</p>\n      ", "showCorrectAnswer": true, "marks": 0}, {"scripts": {}, "gaps": [{"showCorrectAnswer": true, "allowFractions": false, "scripts": {}, "type": "numberentry", "maxValue": "5-{few}", "minValue": "5-{few}", "correctAnswerFraction": false, "marks": 1, "showPrecisionHint": false}, {"displayType": "radiogroup", "choices": ["<p>$p$ is bigger than $10 \\%$</p>", "<p>$p$ lies between $10 \\%$ and $5 \\%$</p>", "<p>$p$ lies between $5 \\%$ and $1 \\%$</p>", "<p>$p$ is less than $1 \\%$</p>"], "displayColumns": 0, "distractors": ["", "", "", ""], "shuffleChoices": false, "scripts": {}, "minMarks": 0, "type": "1_n_2", "maxMarks": 0, "showCorrectAnswer": true, "matrix": "Mm", "marks": 0}], "type": "gapfill", "prompt": "\n      <p><strong>Step 4: &nbsp;p-value range</strong></p>\n      <p>After pooling, calculate , the degrees of freedom, for this test: .&nbsp;</p>\n      <p>$\\nu =\\;$?[[0]]</p>\n      <p>Use tables to find a range for your -value. &nbsp;Choose the correct choice below.&nbsp;</p>\n      <p>[[1]]</p>\n      <p>&nbsp;</p>\n      ", "showCorrectAnswer": true, "marks": 0}, {"scripts": {}, "gaps": [{"displayType": "radiogroup", "choices": ["None", "Slight", "Moderate", "Strong"], "displayColumns": 0, "distractors": ["", "", "", ""], "shuffleChoices": false, "scripts": {}, "minMarks": 0, "type": "1_n_2", "maxMarks": 0, "showCorrectAnswer": true, "matrix": "Mm", "marks": 0}, {"displayType": "radiogroup", "choices": ["Retain $\\operatorname{H}_0$", "Reject  $\\operatorname{H}_0$"], "displayColumns": 0, "distractors": ["", ""], "shuffleChoices": false, "scripts": {}, "minMarks": 0, "type": "1_n_2", "maxMarks": 0, "showCorrectAnswer": true, "matrix": "Mc", "marks": 0}, {"displayType": "radiogroup", "choices": ["No evidence to suggest that the number of calls does not follow a Poisson distribution", "There is evidence to suggest that the number of calls does not follow a Poisson distribution"], "displayColumns": 0, "distractors": ["", ""], "shuffleChoices": false, "scripts": {}, "minMarks": 0, "type": "1_n_2", "maxMarks": 0, "showCorrectAnswer": true, "matrix": "Mc", "marks": 0}], "type": "gapfill", "prompt": "\n      <p><strong>Step 5: Conclusion</strong></p>\n      <p>&nbsp;</p>\n      <p>Given the &nbsp;$p$- value and the range you have found what is the strength of evidence against the null hypothesis?</p>\n      <p>[[0]]</p>\n      <p>Your Decision:</p>\n      <p>&nbsp;[[1]]</p>\n      <p>Conclusion:</p>\n      <p>&nbsp;[[2]]</p>\n      ", "showCorrectAnswer": true, "marks": 0}], "statement": "<p>You are employed as a business analyst for the NHS European Health Insurance Card (EHIC) division.</p>\n<p>Before launching a new automatic telephone application system, you are required to find out whether the number of calls made to the department, per minute, follows a Poisson distribution.&nbsp;</p>\n<p>Over a period of {thismany} minutes, the following information was obtained:</p>\n<p>{table1([['0',{a}],['1',{b}],['2',{c}],['3',{d}],['4',{f}],['5+',{t}]],['No. of Calls (X)','Frequency per minute'],true,true,false,false)}</p>", "tags": ["checked2015", "MAS1403"], "rulesets": {}, "preamble": {"css": "", "js": ""}, "type": "question", "metadata": {"notes": "", "licence": "Creative Commons Attribution 4.0 International", "description": "<p>Find out whether the data presented in this question follows a Poisson distribution. Uses the $\\chi^2$ test.</p>"}, "variablesTest": {"condition": "", "maxRuns": 100}, "advice": "<p><strong>Step 3.</strong></p>\n  <p>a) $\\lambda$ &nbsp;is the mean of the data i.e.</p>\n  <p>\\[\\lambda = \\frac{0 \\times \\var{a}+1\\times \\var{b}+2\\times\\var{c}+3\\times\\var{d}+4\\times\\var{f}+5\\times \\var{t}}{\\var{thismany}} = \\var{v}\\] to 2 decimal places.</p>\n  <p>b)&nbsp;This is the value of $\\lambda$ we use to calculate the probabilities, to 3 decimal places, &nbsp;assuming that the data is from a Poisson distribution with this parameter.</p>\n  <p>For example, $ \\displaystyle P(X=2)=\\frac{e^{-\\lambda}\\lambda^2}{2!}=\\frac{e^{-\\var{v}}\\times \\var{v}^2}{2}=\\var{x[2]}$</p>\n  <p>to 3 decimal places.</p>\n  <p>The next table shows the values to 3 decimal places you should have obtained:</p>\n  <p>&nbsp;</p>\n  <table style=\"border: 1px solid black;\">\n  <tbody>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=0)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x[0]}$</td>\n  </tr>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=1)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x[1]}$</td>\n  </tr>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=2)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x[2]}$</td>\n  </tr>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=3)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x[3]}$</td>\n  </tr>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X=4)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x[4]}$</td>\n  </tr>\n  <tr>\n  <td style=\"vertical-align: middle; border-right: 1px solid; border-top: 1px solid;\"><strong>$P(X \\gt 4)$</strong></td>\n  <td style=\"border-bottom: 1px solid;\">$\\var{x5}$</td>\n  </tr>\n  </tbody>\n  </table>\n  <p>c) Using this probability then the expected number of occurences of 2 calls in a minute is \\[P(X=2) \\times \\var{thismany} = \\var{x[2]}\\times \\var{thismany}=\\var{ex[2]}\\] &nbsp;to 2 decimal places.</p>\n  <p>In the same way we find all the expected frequencies assuming that it is a Poisson distribution with parameter $\\lambda=\\var{v}$.</p>\n  <p>The following table shows the actual observed frequencies and the expected frequencies, to 2 decimal places, under this assumption.</p>\n  <p>{table1([[{a},{ex[0]}],[{b},{ex[1]}],[{c},{ex[2]}],[{d},{ex[3]}],[{f},{ex[4]}],[{t},{ex5}]],['No. of Calls (X) Observed','Expected Frequency '],true,true,false,false)}</p>\n  <p>The expected frequencies in the last {few} categories need to be pooled as the {sumofthe} &nbsp;expected {freq} for the last {few1} {cat} is less than 5.</p>\n  <p>Hence we obtain the following table used to calculate the test statistic:</p>\n  <p>{table1([[{a},{ex[0]}],[{b},{ex[1]}],[{c},{ex[2]}],[{dp},{ep4}],[{fq},{eq5}]],['No. of Calls (X) Observed','Expected Frequency '],true,true,false,false)}</p>\n  <p>We now use the last table to calculate the $\\chi^2$ statistic to see if there is a reasonable match between the observed and expected frequencies.&nbsp;</p>\n  <p>We have:</p>\n  <p>\\[\\chi ^ 2 = \\simplify[all,!collectNumbers]{({a} -{ex[0]}) ^ 2 / {ex[0]} + ({b} -{ex[1]}) ^ 2 / {ex[1]} + ({c} -{ex[2]}) ^ 2 / {ex[2]} + ({dp} -{ep4}) ^ 2 / {ep4} + {z} * (({fp} -{ep5}) ^ 2 / {ep5}) = {ch}}\\] to 2 decimal places.</p>\n  <p><strong>Step 4:</strong></p>\n  <p>The degrees of freedom is given by: &nbsp;$\\nu=\\;$no. of pooled categories $- 2 =\\var{6-few+1}-2=\\var{5-few}$</p>\n  <p>(We have to take away $2$ from the number of pooled categories as we have estimated the parameter $\\lambda$ .)</p>\n  <p>The following are the critical values for $\\nu=\\var{5-few}$:</p>\n  <p>{table1([['Critical Value',{ch90},{ch95},{ch99}]],['p-Value','10%','5%','1%'],false,false,false,false)}</p>\n  <p>Comparing these values with the the test statistic we see that the &nbsp;$p$-value {Correct}.</p>\n  <p><strong>Step 5: Conclusion</strong></p>\n  <p>Hence there is {evi[pval]} evidence against and so we {cho} the null hypothesis that the number of calls per minute follows a Poisson distribution.</p>\n  <p>&nbsp;</p>\n  <p>&nbsp;</p>", "contributors": [{"name": "Newcastle University Mathematics and Statistics", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/697/"}]}]}], "contributors": [{"name": "Newcastle University Mathematics and Statistics", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/697/"}]}