// Numbas version: exam_results_page_options
{"name": "Query file with random data in R ", "extensions": [], "custom_part_types": [], "resources": [], "navigation": {"allowregen": true, "showfrontpage": false, "preventleave": false, "typeendtoleave": false}, "question_groups": [{"pickingStrategy": "all-ordered", "questions": [{"name": "Query file with random data in R ", "tags": [], "metadata": {"description": "<p>Download&nbsp;a file and scan the values into R to obtain a numeric vector of values. Then use R to explore your numeric vector in order to find the answers to these questions.</p>", "licence": "Creative Commons Attribution 4.0 International"}, "statement": "<p>Follow the below steps to download a&nbsp;file of numeric values and to read it into R</p>\n<ol>\n<li>{download_values(list(tumbleVector(seed,vec_length,-99999,99999)/1000))}.&nbsp;The downloaded file should be called <em>numeric.txt</em>&nbsp;and contains a list of numbers, with one number on each line of the file. Save or move the file somewhere sensible, for example into a folder called \"Practical 1\", within your \"MAS1802\" folder</li>\n<li>Now make sure&nbsp;that&nbsp;RStudio is in the same working directory as the file you have just saved. You can change the working directory by going to<em> Session</em> in the menu,&nbsp;<em>Set Working Directory</em> and then <em>Choose Directory...</em></li>\n<li>Use the following command&nbsp;to store the data in a numeric vector&nbsp;<code>v</code>.</li>\n</ol>\n<pre>v = scan(\"numeric.txt\")</pre>\n<p>Before you begin,&nbsp;check that the first few values of <code><span face=\"monospace\">v</span></code> match the first few rows in the file.</p>\n<p>When giving the values of vector elements, do not round your answers.</p>", "advice": "<p>Solutions/feedback will be given in classes after the assessment period.</p>", "rulesets": {}, "extensions": [], "variables": {"seed": {"name": "seed", "group": "Ungrouped variables", "definition": "random(1..1000)", "description": "", "templateType": "anything"}, "pos2_smallest": {"name": "pos2_smallest", "group": "Ungrouped variables", "definition": "sort(list(tumbleVector(seed,vec_length,-99999,99999)/1000))[pos2-1]", "description": "<p>the pos2<sup>th</sup> smallest value in x1</p>", "templateType": "anything"}, "smallest_x1": {"name": "smallest_x1", "group": "Ungrouped variables", "definition": "min(list(tumbleVector(seed,vec_length,-99999,99999)/1000))", "description": "", "templateType": "anything"}, "random_value": {"name": "random_value", "group": "Ungrouped variables", "definition": "list(tumbleVector(seed,vec_length,-99999,99999)/1000)[pos-1]", "description": "", "templateType": "anything"}, "lims": {"name": "lims", "group": "Ungrouped variables", "definition": "sort(repeat(random(-4000..4000) / 100, 4))", "description": "<p>4 limits to be used in range based questions.&nbsp; These values are sorted into ascending order.</p>", "templateType": "anything"}, "range1": {"name": "range1", "group": "Ungrouped variables", "definition": "len(filter(x > lims[1] and x < lims[2], x, list(tumbleVector(seed,vec_length,-99999,99999)/1000)))", "description": "<p>Number of values inside an exclusively-bounded range</p>", "templateType": "anything"}, "pos": {"name": "pos", "group": "Ungrouped variables", "definition": "random(1000..(vec_length-1000))", "description": "<p>A randomly selected position in the vector</p>", "templateType": "anything"}, "pos2": {"name": "pos2", "group": "Ungrouped variables", "definition": "random(400..1000)", "description": "", "templateType": "anything"}, "vec_length": {"name": "vec_length", "group": "Ungrouped variables", "definition": "random(3000 .. 4000#1)", "description": "<p>The length of the numeric vector that will be created.</p>", "templateType": "randrange"}, "final_value": {"name": "final_value", "group": "Ungrouped variables", "definition": "list(tumbleVector(seed,vec_length,-99999,99999)/1000)[vec_length-1]", "description": "", "templateType": "anything"}, "range2": {"name": "range2", "group": "Ungrouped variables", "definition": "len(filter(x >= lims[0] and x <= lims[3], x, list(tumbleVector(seed,vec_length,-99999,99999)/1000)))", "description": "<p>Number of values inside an inclusively-bounded range</p>", "templateType": "anything"}}, "variablesTest": {"condition": "", "maxRuns": 100}, "ungrouped_variables": ["vec_length", "pos", "pos2", "lims", "range1", "range2", "smallest_x1", "pos2_smallest", "seed", "random_value", "final_value"], "variable_groups": [], "functions": {"tumblevector": {"parameters": [["a", "number"], ["length", "number"], ["minint", "number"], ["maxint", "number"]], "type": "vector", "language": "javascript", "definition": "var v=Array();\nfor (var i=0;i<length;i++){\n  a = (a*1664525 + 1013904223)%4294967296;\n  v.push(minint+a%(maxint-minint));\n}\nreturn v;"}, "download_values": {"parameters": [["x1", "list"]], "type": "html", "language": "javascript", "definition": "var csvString = x1.join(\"%0A\");\n\nvar a = document.createElement('a');\na.href     = 'data:attachment/txt,' + csvString;\na.target   ='_blank';\na.download = 'numeric.txt';\na.innerHTML = \"Download this file of data\";\nreturn a;"}}, "preamble": {"js": "", "css": ""}, "parts": [{"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>What is the length of&nbsp;the vector <code>v</code>?</p>", "minValue": "vec_length", "maxValue": "vec_length", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>What is the value&nbsp;of the element in&nbsp;position {pos} of the vector <code>v</code>?</p>", "minValue": "random_value", "maxValue": "random_value", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>What is the final element in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>", "minValue": "final_value", "maxValue": "final_value", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>What is the smallest value in the vector&nbsp;<span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>", "minValue": "smallest_x1", "maxValue": "smallest_x1", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>How many values in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>&nbsp;are greater than {lims[1]} and also less than {lims[2]}?</p>", "minValue": "range1", "maxValue": "range1", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": 1, "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<p>How many values in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>&nbsp;are in the range $[\\var{lims[0]}, \\var{lims[3]}]$?</p>\n<p>(Note: this range includes the values $\\var{lims[0]}$ and $\\var{lims[3]}$)</p>", "minValue": "range2", "maxValue": "range2", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}, {"type": "numberentry", "useCustomName": false, "customName": "", "marks": "1", "showCorrectAnswer": true, "showFeedbackIcon": true, "scripts": {}, "variableReplacements": [], "variableReplacementStrategy": "originalfirst", "adaptiveMarkingPenalty": 0, "customMarkingAlgorithm": "", "extendBaseMarkingAlgorithm": true, "unitTests": [], "prompt": "<div data-jme-visible=\"mod(pos2,10)=1\">\n<p>What is the {pos2}<sup>st</sup> smallest number in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>\n</div>\n<div data-jme-visible=\"mod(pos2,10)=2\">\n<p>What is the {pos2}<sup>nd</sup> smallest number in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>\n</div>\n<div data-jme-visible=\"mod(pos2,10)=3\">\n<p>What is the {pos2}<sup>rd</sup> smallest number in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>\n</div>\n<div data-jme-visible=\"mod(pos2,10)&gt;3 or mod(pos2,10)=0\">\n<p>What is the {pos2}<sup>th</sup> smallest number in the vector <span face=\"monospace\" style=\"font-family: monospace;\">v</span>?</p>\n</div>", "minValue": "pos2_smallest", "maxValue": "pos2_smallest", "correctAnswerFraction": false, "allowFractions": false, "mustBeReduced": false, "mustBeReducedPC": 0, "showFractionHint": true, "notationStyles": ["plain", "en", "si-en"], "correctAnswerStyle": "plain"}], "contributors": [{"name": "Chris Graham", "profile_url": "https://numbas-editor.mas.ncl.ac.uk/accounts/profile/73/"}, {"name": "Keith Newman", "profile_url": "https://numbas-editor.mas.ncl.ac.uk/accounts/profile/126/"}, {"name": "Chris Graham", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/369/"}]}]}], "contributors": [{"name": "Chris Graham", "profile_url": "https://numbas-editor.mas.ncl.ac.uk/accounts/profile/73/"}, {"name": "Keith Newman", "profile_url": "https://numbas-editor.mas.ncl.ac.uk/accounts/profile/126/"}, {"name": "Chris Graham", "profile_url": "https://numbas.mathcentre.ac.uk/accounts/profile/369/"}]}