// Numbas version: exam_results_page_options {"name": "Harry's copy of Confidence Interval Doctor's Surgery", "extensions": ["stats"], "custom_part_types": [], "resources": [], "navigation": {"allowregen": true, "showfrontpage": false, "preventleave": false, "typeendtoleave": false}, "question_groups": [{"pickingStrategy": "all-ordered", "questions": [{"tags": [], "statement": "

The ages of a random sample of patients coming into a doctor's surgery during the school holidays are noted down on each Monday and Friday thoughout August.

\n

{table([['Monday']+mon,['Friday']+fri],[])}

", "advice": "

a)

\n

The mean of the sample of patients visiting on Mondays is 

\n

\\[ \\bar{x} = \\frac{1}{n}(\\sum x_i) = \\var{precround(monday_mean,2)} \\text{ (to 2 d.p.)} \\]

\n

The standard deviation is

\n

\\[ s = \\sqrt{\\frac{1}{n-1}\\sum \\left(x_i-\\bar{x}\\right)^2} = \\var{precround(monday_sd,2)} \\text{ (to 2 d.p.)} \\]

\n

b)

\n

The sample mean $\\mu_m$ follows a $t$-distribution with $n-1 = \\var{num_monday-1}$ degrees of freedom centred on the population mean, with a standard error of $\\frac{s}{\\sqrt{n}} = \\simplify{{precround(monday_sd,2)}/sqrt({num_monday})} = \\var{precround(monday_se,2)}$.

\n

That means that the 95% confidence interval for the population mean is as follows:

\n

\\begin{array}{lrcl}
&\\left[ \\bar{x} - s \\times t_{\\var{num_monday-1},0.975} \\right. \\kern{-0.5em}&,&\\kern{-0.5em} \\left. \\bar{x} + s \\times t_{\\var{num_monday-1},0.975} \\right] \\\\
= & \\left[ \\simplify[]{{precround(monday_mean,2)} - {precround(monday_se,2)}*{precround(monday_t,2)}} \\right. \\kern{-0.5em}&,&\\kern{-0.5em} \\left. \\simplify[]{{precround(monday_mean,2)} + {precround(monday_se,2)}*{precround(monday_t,2)}} \\right] \\\\
= & \\left[ \\var{precround(monday_low,2)} \\right. \\kern{-0.5em}&,&\\kern{-0.5em} \\left. \\var{precround(monday_high,2)} \\right]
\\end{array}

\n

", "parts": [{"scripts": {}, "type": "gapfill", "variableReplacementStrategy": "originalfirst", "showCorrectAnswer": true, "unitTests": [], "showFeedbackIcon": true, "customMarkingAlgorithm": "", "prompt": "

Calculate the mean and standard deviation of the sample of patients visiting on Mondays.

\n

Enter your answers to 2 decimal places.

\n

Mean: [[0]]

\n

Standard Deviation: [[1]]

", "extendBaseMarkingAlgorithm": true, "marks": 0, "variableReplacements": [], "sortAnswers": false, "gaps": [{"scripts": {}, "variableReplacementStrategy": "originalfirst", "precision": "2", "type": "numberentry", "notationStyles": ["plain", "en", "si-en"], "showCorrectAnswer": true, "mustBeReducedPC": 0, "showFeedbackIcon": true, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "maxValue": "monday_mean", "correctAnswerFraction": false, "correctAnswerStyle": "plain", "strictPrecision": false, "allowFractions": false, "precisionMessage": "You have not given your answer to the correct precision.", "precisionType": "dp", "minValue": "monday_mean", "mustBeReduced": false, "unitTests": [], "precisionPartialCredit": 0, "showPrecisionHint": false, "variableReplacements": [], "marks": 1}, {"scripts": {}, "variableReplacementStrategy": "originalfirst", "precision": "2", "type": "numberentry", "notationStyles": ["plain", "en", "si-en"], "showCorrectAnswer": true, "mustBeReducedPC": 0, "showFeedbackIcon": true, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "maxValue": "monday_sd", "correctAnswerFraction": false, "correctAnswerStyle": "plain", "strictPrecision": false, "allowFractions": false, "precisionMessage": "You have not given your answer to the correct precision.", "precisionType": "dp", "minValue": "monday_sd", "mustBeReduced": false, "unitTests": [], "precisionPartialCredit": 0, "showPrecisionHint": false, "variableReplacements": [], "marks": 1}]}, {"scripts": {}, "type": "gapfill", "variableReplacementStrategy": "originalfirst", "showCorrectAnswer": true, "unitTests": [], "showFeedbackIcon": true, "customMarkingAlgorithm": "", "prompt": "

Find the 95% confidence interval for the population mean $\\mu_m$ of the age of patients visiting on Monday, using the $t$-distribution with $\\var{num_monday-1}$ degrees of freedom.

\n

Enter your answers to 2 decimal places.

\n

Lower limit: [[0]]

\n

Upper limit: [[1]] 

", "extendBaseMarkingAlgorithm": true, "marks": 0, "variableReplacements": [], "sortAnswers": false, "gaps": [{"scripts": {}, "variableReplacementStrategy": "originalfirst", "precision": "2", "type": "numberentry", "notationStyles": ["plain", "en", "si-en"], "showCorrectAnswer": true, "mustBeReducedPC": 0, "showFeedbackIcon": true, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "maxValue": "monday_low", "correctAnswerFraction": false, "correctAnswerStyle": "plain", "strictPrecision": false, "allowFractions": false, "precisionMessage": "You have not given your answer to the correct precision.", "precisionType": "dp", "minValue": "monday_low", "mustBeReduced": false, "unitTests": [], "precisionPartialCredit": 0, "showPrecisionHint": false, "variableReplacements": [], "marks": 1}, {"scripts": {}, "variableReplacementStrategy": "originalfirst", "precision": "2", "type": "numberentry", "notationStyles": ["plain", "en", "si-en"], "showCorrectAnswer": true, "mustBeReducedPC": 0, "showFeedbackIcon": true, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "maxValue": "monday_high", "correctAnswerFraction": false, "correctAnswerStyle": "plain", "strictPrecision": false, "allowFractions": false, "precisionMessage": "You have not given your answer to the correct precision.", "precisionType": "dp", "minValue": "monday_high", "mustBeReduced": false, "unitTests": [], "precisionPartialCredit": 0, "showPrecisionHint": false, "variableReplacements": [], "marks": 1}]}], "ungrouped_variables": ["num_monday", "monday_pop_mean", "monday_pop_range", "mon", "num_friday", "friday_pop_mean", "friday_pop_range", "fri", "monday_mean", "monday_sd", "monday_se", "monday_t", "monday_low", "monday_high", "t", "friday_mean", "friday_se", "friday_t", "friday_low", "friday_high", "no_overlap"], "rulesets": {}, "functions": {}, "metadata": {"description": "

Compute a 95% confidence interval for the population mean given a small sample, and compare it with a confidence interval for a different population.

", "licence": "Creative Commons Attribution 4.0 International"}, "preamble": {"css": "", "js": ""}, "variablesTest": {"maxRuns": 100, "condition": ""}, "variable_groups": [], "extensions": ["stats"], "variables": {"friday_pop_range": {"templateType": "anything", "definition": "20", "description": "", "group": "Ungrouped variables", "name": "friday_pop_range"}, "num_monday": {"templateType": "anything", "definition": "12", "description": "", "group": "Ungrouped variables", "name": "num_monday"}, "no_overlap": {"templateType": "anything", "definition": "friday_low > monday_high or friday_high < monday_low", "description": "", "group": "Ungrouped variables", "name": "no_overlap"}, "friday_high": {"templateType": "anything", "definition": "friday_mean+friday_t*friday_se", "description": "", "group": "Ungrouped variables", "name": "friday_high"}, "monday_pop_range": {"templateType": "anything", "definition": "20", "description": "", "group": "Ungrouped variables", "name": "monday_pop_range"}, "fri": {"templateType": "anything", "definition": "repeat(friday_pop_mean+random(-friday_pop_range..friday_pop_range),num_monday)", "description": "

Data for Friday

", "group": "Ungrouped variables", "name": "fri"}, "monday_high": {"templateType": "anything", "definition": "monday_mean+monday_t*monday_se", "description": "", "group": "Ungrouped variables", "name": "monday_high"}, "friday_se": {"templateType": "anything", "definition": "stdev(fri,true)/sqrt(num_friday)", "description": "", "group": "Ungrouped variables", "name": "friday_se"}, "monday_mean": {"templateType": "anything", "definition": "mean(mon)", "description": "", "group": "Ungrouped variables", "name": "monday_mean"}, "t": {"templateType": "anything", "definition": "studenttinv(0.975,11)", "description": "", "group": "Ungrouped variables", "name": "t"}, "num_friday": {"templateType": "anything", "definition": "random(12..16)", "description": "", "group": "Ungrouped variables", "name": "num_friday"}, "mon": {"templateType": "anything", "definition": "repeat(monday_pop_mean+random(-monday_pop_range..monday_pop_range),num_monday)", "description": "

Data for Monday

", "group": "Ungrouped variables", "name": "mon"}, "friday_low": {"templateType": "anything", "definition": "friday_mean-friday_t*friday_se", "description": "", "group": "Ungrouped variables", "name": "friday_low"}, "friday_pop_mean": {"templateType": "anything", "definition": "random(20..70)", "description": "", "group": "Ungrouped variables", "name": "friday_pop_mean"}, "friday_t": {"templateType": "anything", "definition": "studenttinv(0.975,num_friday-1)", "description": "", "group": "Ungrouped variables", "name": "friday_t"}, "monday_t": {"templateType": "anything", "definition": "studenttinv(0.975,num_monday-1)", "description": "", "group": "Ungrouped variables", "name": "monday_t"}, "monday_pop_mean": {"templateType": "anything", "definition": "random(20..70)", "description": "", "group": "Ungrouped variables", "name": "monday_pop_mean"}, "monday_sd": {"templateType": "anything", "definition": "stdev(mon, true)", "description": "", "group": "Ungrouped variables", "name": "monday_sd"}, "monday_low": {"templateType": "anything", "definition": "monday_mean-monday_t*monday_se", "description": "

Lower end of the confidence interval for Monday's mean

", "group": "Ungrouped variables", "name": "monday_low"}, "friday_mean": {"templateType": "anything", "definition": "mean(fri)", "description": "", "group": "Ungrouped variables", "name": "friday_mean"}, "monday_se": {"templateType": "anything", "definition": "monday_sd/sqrt(num_monday)", "description": "", "group": "Ungrouped variables", "name": "monday_se"}}, "name": "Harry's copy of Confidence Interval Doctor's Surgery", "type": "question", "contributors": [{"name": "Christian Lawson-Perfect", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/7/"}, {"name": "Catherine Palmer", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/423/"}, {"name": "Hayley Moore", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/495/"}, {"name": "Harry Flynn", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/976/"}]}]}], "contributors": [{"name": "Christian Lawson-Perfect", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/7/"}, {"name": "Catherine Palmer", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/423/"}, {"name": "Hayley Moore", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/495/"}, {"name": "Harry Flynn", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/976/"}]}