Student Statistics: Creating Quizzes for Descriptive Statistics Using the Quiz command from the Grading package, it is possible to generate interactive quizzes that ask students to answer questions on topics in Statistics, such as finding the mean, median, or standard deviation of a sample of data, or specifying the interquartile range directly from a plot of a sample.

To begin with, we can declare a procedure that generates a random sample of data: InitializeData := proc() local data; randomize(); data := Vector[row](5, rand(1 .. 10)); Grading:-Quiz:-Set(`$data` = data); return data; end proc: Two key commands are used to randomly generate the data: randomize, which resets the seed for random number generation, and inside of the data vector, and the rand( ) constructor, which is a random number generator, generating in this case number between 1 and 10. In order to use this data sample in a quiz, we also need to use the Grading[Quiz][Set] command in order to send the generated data sample to the quiz creation module. Once we have created this procedure, we can simply call it in order to return a randomly generated sample: InitializeData();

LSZJJ1ZlY3Rvckc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYjSSRyb3dHRig2Iy9JJCVpZEdGKCIrJWZYInpX

In order to create our first quiz, we next create our grading procedure: GradeMean := proc() uses Grading:-Quiz; evalb( Student:-Statistics:-Mean( Get(`$data`) ) = Get(`$RESPONSE`) ); end proc: In this procedure, we compare the known value of our sample using the Student[Statistics][Mean] command with the response entered by the student. We retrieve the response using the Grading[Quiz][Get] command. To generate our quiz, we use the Quiz command, first specifying the question, then grading procedure, and finally any initialization procedures that generate our data: Grading:-Quiz( "What is the mean of the following sample: $data", GradeMean, InitializeData ); What is the mean of the following sample: Grading:-Quiz:-submit(["MCInputParam_$data", "MathContainerANS", "PlotInputParam_$data", "Label0", "StateArea0"])Grading:-Quiz:-tryanother(["MCInputParam_$data", "MathContainerANS", "PlotInputParam_$data", "Label0", "StateArea0"]) By entering a value in the above text box and clicking 'Check Answer', students will receive a notification on whether or not their response is correct.

Similar to the example for finding the Mean, since we have already created a procedure for initializing our data, we can start by creating the grading procedure for comparing the known Median value with the entered response. The evalb command is used to determine if these two match, returning either a true or false answer. GradeMedian := proc() uses Grading:-Quiz; evalb( Student:-Statistics:-Median( Get(`$data`) ) = Get(`$RESPONSE`) ); end proc: Grading:-Quiz( "What is the median of the following sample: $data", GradeMedian, InitializeData ); What is the median of the following sample: Grading:-Quiz:-submit(["MCInputParam_$data1", "MathContainerANS1", "PlotInputParam_$data1", "Label1", "StateArea1"])Grading:-Quiz:-tryanother(["MCInputParam_$data1", "MathContainerANS1", "PlotInputParam_$data1", "Label1", "StateArea1"])

It is also important to note that all of the created quizzes can be regenerated using the 'Try Another' button in the created quiz. GradeStandardDeviation := proc() uses Grading:-Quiz; evalb( Student:-Statistics:-StandardDeviation( Get(`$data`) ) = Get(`$RESPONSE`) ); end proc: Grading:-Quiz( "What is the standard deviation of the following sample: $data", GradeStandardDeviation, InitializeData ); What is the standard deviation of the following sample: Grading:-Quiz:-submit(["MCInputParam_$data2", "MathContainerANS2", "PlotInputParam_$data2", "Label2", "StateArea2"])Grading:-Quiz:-tryanother(["MCInputParam_$data2", "MathContainerANS2", "PlotInputParam_$data2", "Label2", "StateArea2"])

The Quiz command can also be used to create questions using plots. In the following example, we start by creating a new initialization procedure that creates a random sample of data and in addition, a plot of this data. Both of these are set to variable names that are then send to the quiz module using the Quiz[Set] command. InitPlot := proc() local data, qplot; randomize(); data := Vector[row](5, rand(1 .. 10)); Grading:-Quiz:-Set(`$data` = data); qplot := Student:-Statistics:-InterquartileRange(data, output = plot); Grading:-Quiz:-Set(`$plot` = qplot); return NULL; end proc: Similar to the above examples, the grading procedure for the plot question compares a response with the calculated value from routines in Student[Statistics]: GradeIQR := proc() uses Grading:-Quiz; evalb( Student:-Statistics:-InterquartileRange( Get(`$data`) ) = Get(`$RESPONSE`) ); end proc: In this case, we can also add more options to the quiz command, such as specifying the size of the plot: Grading:-Quiz( "Using the following graph, calculate the interquartile range: $plot", GradeIQR, InitPlot, plotsize=[400,400] ); Using the following graph, calculate the interquartile range: NjItJSlQT0xZR09OU0c2KDcmNyQkIiNdISIiJCIjdiEiJDckJCIjXSEiIiQhI3YhIiQ3JCQiI0UhIiIkISN2ISIkNyQkIiNFISIiJCIjdiEiJDclNyQkIiNFISIiJCEjOiEiIzckJCIjPyEiIiQiIiEhIiI3JCQiI0UhIiIkIiM6ISIjLSUnTEVHRU5ERzYjLSUpX1RZUEVTRVRHNiMtSSVtcm93RzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjUtSSNtc0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjYjUTRpbnRlcnF1YXJ0aWxlfnJhbmdlNiIvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW42Ii8lJXNpemVHUSMxMjYiLyUlYm9sZEdRJmZhbHNlNiIvJSdpdGFsaWNHUSZmYWxzZTYiLyUqdW5kZXJsaW5lR1EmZmFsc2U2Ii8lKnN1YnNjcmlwdEdRJmZhbHNlNiIvJSxzdXBlcnNjcmlwdEdRJmZhbHNlNiIvJStmb3JlZ3JvdW5kR1EoWzAsMCwwXTYiLyUrYmFja2dyb3VuZEdRLlsyNTUsMjU1LDI1NV02Ii8lJ29wYXF1ZUdRJmZhbHNlNiIvJStleGVjdXRhYmxlR1EmZmFsc2U2Ii8lKXJlYWRvbmx5R1EmZmFsc2U2Ii8lKWNvbXBvc2VkR1EmZmFsc2U2Ii8lKmNvbnZlcnRlZEdRJmZhbHNlNiIvJStpbXNlbGVjdGVkR1EmZmFsc2U2Ii8lLHBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lNnNlbGVjdGlvbi1wbGFjZWhvbGRlckdRJmZhbHNlNiIvJSxtYXRodmFyaWFudEdRJ25vcm1hbDYiLSUmQ09MT1JHNiYlJFJHQkckIihoPiFIISIoJCIpQyllcSUhIikkIiIhISIiLSUtVFJBTlNQQVJFTkNZRzYjJCIoLyk0RCEiKC0lJlNUWUxFRzYjJSxQQVRDSE5PR1JJREctJSdDVVJWRVNHNiM3KjckJCIjXSEiIiQiI3YhIiQ3JCQiI10hIiIkISN2ISIkNyQkIiNFISIiJCEjdiEiJDckJCIjRSEiIiQhIzohIiM3JCQiIz8hIiIkIiIhISIiNyQkIiNFISIiJCIjOiEiIzckJCIjRSEiIiQiI3YhIiQ3JCQiI10hIiIkIiN2ISIkLSUpUE9MWUdPTlNHNic3JjckJCIjXSEiIiQhI3YhIiQ3JCQiI10hIiIkIiN2ISIkNyQkIiN1ISIiJCIjdiEiJDckJCIjdSEiIiQhI3YhIiQ3JTckJCIjdSEiIiQiIzohIiM3JCQiIyEpISIiJCIiISEiIjckJCIjdSEiIiQhIzohIiMtJSZDT0xPUkc2JiUkUkdCRyQiKGg+IUghIigkIilDKWVxJSEiKSQiIiEhIiItJS1UUkFOU1BBUkVOQ1lHNiMkIigvKTREISIoLSUmU1RZTEVHNiMlLFBBVENITk9HUklERy0lJ0NVUlZFU0c2IzcqNyQkIiNdISIiJCEjdiEiJDckJCIjXSEiIiQiI3YhIiQ3JCQiI3UhIiIkIiN2ISIkNyQkIiN1ISIiJCIjOiEiIzckJCIjISkhIiIkIiIhISIiNyQkIiN1ISIiJCEjOiEiIzckJCIjdSEiIiQhI3YhIiQ3JCQiI10hIiIkISN2ISIkLSUnQ1VSVkVTRzYmNyQ3JCQiIzUhIiIkIiIhISIiNyQkIiM1ISIiJCIjNSEiIjckNyQkIiM/ISIiJCIiISEiIjckJCIjPyEiIiQiIzUhIiI3JDckJCIjISkhIiIkIiIhISIiNyQkIiMhKSEiIiQiI0khIiItJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIignPiFcJiEiKSQiKUMpZXElISIpLSUnQ1VSVkVTRzYmNyQ3JCQiIz8hIiIkIiIhISIiNyQkIiM/ISIiJCIjSSEiIi0lJkNPTE9SRzYmJSRSR0JHJCIoQyllcSEiKCQiKEFSISkqISIpJCIpeDYlSCIhIiktJSpMSU5FU1RZTEVHNiMiIiQtJSpUSElDS05FU1NHNiMiIiYtJSdDVVJWRVNHNiY3JDckJCIjISkhIiIkIiIhISIiNyQkIiMhKSEiIiQiI0khIiItJSZDT0xPUkc2JiUkUkdCRyQiKEMpZXEhIigkIihBUiEpKiEiKSQiKXg2JUgiISIpLSUqTElORVNUWUxFRzYjIiIkLSUqVEhJQ0tORVNTRzYjIiImLSUnQ1VSVkVTRzYlNyM3JCQiI1ghIiIkIiM6ISIiLSUnTEVHRU5ERzYjLSUpX1RZUEVTRVRHNiMtSSVtcm93RzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjUtSSNtc0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjYjUS0xc3R+cXVhcnRpbGU2Ii8lJ2ZhbWlseUdRMFRpbWVzfk5ld35Sb21hbjYiLyUlc2l6ZUdRIzEyNiIvJSVib2xkR1EmZmFsc2U2Ii8lJ2l0YWxpY0dRJmZhbHNlNiIvJSp1bmRlcmxpbmVHUSZmYWxzZTYiLyUqc3Vic2NyaXB0R1EmZmFsc2U2Ii8lLHN1cGVyc2NyaXB0R1EmZmFsc2U2Ii8lK2ZvcmVncm91bmRHUShbMCwwLDBdNiIvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XTYiLyUnb3BhcXVlR1EmZmFsc2U2Ii8lK2V4ZWN1dGFibGVHUSZmYWxzZTYiLyUpcmVhZG9ubHlHUSZmYWxzZTYiLyUpY29tcG9zZWRHUSZmYWxzZTYiLyUqY29udmVydGVkR1EmZmFsc2U2Ii8lK2ltc2VsZWN0ZWRHUSZmYWxzZTYiLyUscGxhY2Vob2xkZXJHUSZmYWxzZTYiLyU2c2VsZWN0aW9uLXBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lLG1hdGh2YXJpYW50R1Enbm9ybWFsNiItJSZDT0xPUkc2JiUkUkdCRyQiKEMpZXEhIigkIihBUiEpKiEiKSQiKXg2JUgiISIpLSUnQ1VSVkVTRzYlNyM3JCQiI1ghIiIkIiM6ISIiLSUnTEVHRU5ERzYjLSUpX1RZUEVTRVRHNiMtSSVtcm93RzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjUtSSNtc0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkc2IjYjUS0zcmR+cXVhcnRpbGU2Ii8lJ2ZhbWlseUdRMFRpbWVzfk5ld35Sb21hbjYiLyUlc2l6ZUdRIzEyNiIvJSVib2xkR1EmZmFsc2U2Ii8lJ2l0YWxpY0dRJmZhbHNlNiIvJSp1bmRlcmxpbmVHUSZmYWxzZTYiLyUqc3Vic2NyaXB0R1EmZmFsc2U2Ii8lLHN1cGVyc2NyaXB0R1EmZmFsc2U2Ii8lK2ZvcmVncm91bmRHUShbMCwwLDBdNiIvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XTYiLyUnb3BhcXVlR1EmZmFsc2U2Ii8lK2V4ZWN1dGFibGVHUSZmYWxzZTYiLyUpcmVhZG9ubHlHUSZmYWxzZTYiLyUpY29tcG9zZWRHUSZmYWxzZTYiLyUqY29udmVydGVkR1EmZmFsc2U2Ii8lK2ltc2VsZWN0ZWRHUSZmYWxzZTYiLyUscGxhY2Vob2xkZXJHUSZmYWxzZTYiLyU2c2VsZWN0aW9uLXBsYWNlaG9sZGVyR1EmZmFsc2U2Ii8lLG1hdGh2YXJpYW50R1Enbm9ybWFsNiItJSZDT0xPUkc2JiUkUkdCRyQiKEMpZXEhIigkIihBUiEpKiEiKSQiKXg2JUgiISIpLSUlVklFV0c2JDskIiM1ISIiJCIjISkhIiI7JCEjOiEiIyQiI0khIiItJiUmX0FYSVNHNiMiIiI2Jy0lK19HUklETElORVNHNictJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiIhISIiJCIiISEiIi0lKkxJTkVTVFlMRUc2IyIiIS0lKlRISUNLTkVTU0c2IyIiIS0lLVRSQU5TUEFSRU5DWUc2IyQiIiEhIiItJSlfVklTSUJMRUc2IyIiIS0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0mJSZfQVhJU0c2IyIiIzYnLSUrX0dSSURMSU5FU0c2Jy0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0lKV9WSVNJQkxFRzYjIiIhLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUrQVhFU0xBQkVMU0c2JVEhNiJRITYiLSUlRk9OVEc2JSUoREVGQVVMVEclKERFRkFVTFRHIiM3LSUpX1ZJU0lCTEVHNiMiIiItJSVST09URzYnLSUpQk9VTkRTX1hHNiMkIiQhSCEiIi0lKUJPVU5EU19ZRzYjJCIkSSIhIiItJS1CT1VORFNfV0lEVEhHNiMkIiVnTiEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiVnSyEiIi0lKUNISUxEUkVORzYiLSUrQU5OT1RBVElPTkc2Jy0lKUJPVU5EU19YRzYjJCIiISEiIi0lKUJPVU5EU19ZRzYjJCIiISEiIi0lLUJPVU5EU19XSURUSEc2IyQiJStTISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJStTISIiLSUpQ0hJTERSRU5HNiI=NiI= Grading:-Quiz:-submit(["MCInputParam_$plot", "MathContainerANS3", "PlotInputParam_$plot", "Label3", "StateArea3"])Grading:-Quiz:-tryanother(["MCInputParam_$plot", "MathContainerANS3", "PlotInputParam_$plot", "Label3", "StateArea3"])

Student, Student[Statistics], Grading[Quiz], Student[Statistics][Mean], Student[Statistics][Median], Student[Statistics][StandardDeviation], Student[Statistics][InterquartileRange], examples,Quiz

Legal Notice: \302\251 Maplesoft, a division of Waterloo Maple Inc. 2014. Maplesoft and Maple are trademarks of Waterloo Maple Inc. This application may contain errors and Maplesoft is not liable for any damages resulting from the use of this material. This application is intended for non-commercial, non-profit use only. Contact Maplesoft for permission if you wish to use this application in for-profit activities.TTdSMApJN1JUQUJMRV9TQVZFLzQ0NzkxNDU1OTRYKiUpYW55dGhpbmdHNiI2IltnbCEkJSEhISImIiYiIiMiIipGKCIiJCIiJkYl