In NUstat/ISDStutorials: Tutorial Lessons for Introduction to Statistics and Data Science

library(learnr)
library(tidyverse)
library(tutorialExtras)
library(gradethis)

gradethis_setup()
knitr::opts_chunk$set(echo = FALSE)

grade_server("grade")

question_text("Name:",
              answer_fn(function(value){
                              if(length(value) >= 1 ) {
                                return(mark_as(TRUE))
                                }
                              return(mark_as(FALSE) )
                              }),
              correct = "submitted",
              allow_retry = FALSE )

grade_button_ui(id = "grade")

Instructions

Complete this tutorial while reading Chapter 8 of the textbook. Each question allows 3 'free' attempts. After the third attempt a 10% deduction occurs per attempt.

You can click the "View Grade" button as many times as you would like to see your current grade and the number of attempts you are on. Before submitting make sure your grade is as expected.

Goals

• Understand the difference between population parameters and sample estimators.
• Be able to identify the different types of sampling.
• Describe the difference between random sampling and random assignment, and know the appropriate conclusions that can be drawn from each.
• Be able to determine the extent to which a study's results can be generalized.

Reading Quiz

quiz(caption = NULL,
  # Q1
    question_wordbank("Q1) Match each statistic with its corresponding population parameter.", 
           choices = c("\\(\\pi\\)", "\\(\\sigma\\)",
                       "\\(\\beta_1\\)", "\\(\\mu\\)", 
                        "\\(\\rho\\)", "\\(\\beta_0\\)"),
           wordbank = c("proportion", "standard deviation",
                        "regression slope", "mean",
                        "correlation", "regression intercept"),
           answer(c("proportion", "standard deviation",
                    "regression slope", "mean", 
                    "correlation", "regression intercept"), correct = TRUE),
           allow_retry = TRUE), 
    # Q2
  question_wordbank("Q2) Match each statistic with its corresponding sample estimator.", 
           choices = c("\\(r\\)", "\\(b_0\\)",
           "\\(\\hat{\\pi}\\)", "\\(\\bar{x}\\)",
           "\\(b_1\\)", "\\(s\\)"),
           wordbank = c("proportion", "standard deviation", "regression slope", "mean", "correlation", "regression intercept"),
           answer(c("correlation", "regression intercept",
                    "proportion", "mean", "regression slope",
                    "standard deviation"), correct = TRUE),
           allow_retry = TRUE), 
     # Q3
  question_wordbank("Q3) Match each of the following terms with whether they correspond to a sample or a population.", 
           choices = c("point estimate", "Roman letters", "census", "parameter", "hat notation", "Greek letters"),
           wordbank = c("sample", "population"),
           answer(c("sample", "sample", "population", "population", "sample", "population"), correct = TRUE),
           allow_retry = TRUE), 
          # Q4
  question_wordbank("Q4) Match each of the following steps in the sampling process with the appropriate order they should be conducted.", 
           choices = c("1st step", "2nd step", "3rd step", "4th step", "5th step"),
           wordbank = c("Define your population of interest", "Develop a population frame", "Develop a sampling plan", "Obtain your sample", "Collect data on your sample"),
           answer(c("Define your population of interest", "Develop a population frame", "Develop a sampling plan", "Obtain your sample", "Collect data on your sample"), correct = TRUE),
           allow_retry = TRUE), 
  #Q5
    question("Q5) Which of the following are TRUE about $\\bar{x}$? Select all that apply.",
           answer("It is an estimator for 
$\\sigma$"),
           answer("It is a measure of 'spread'"),
           answer("It is a point estimate", correct = TRUE),
           answer("It is a measure of 'center'", correct = TRUE),
           answer("It is a population parameter"),
           allow_retry = TRUE,
           random_answer_order = TRUE),  
    # Q6
 question_wordbank("Q6) Imagine you are conducting a survey among the Northwestern student body. You decide to sample 200 students. Match each of the following scenarios with the corresponding sampling procedures. ", 
           choices = c("50 students are randomly selected from each of the four classes (i.e. freshman, sophomores, juniors, seniors)", "200 students are randomly selected from a list of all NetIDs", "20 courses are randomly selected, and then 10 students are randomly selected from each course"),
           wordbank = c("stratified sampling", 
                        "simple random sampling", 
                        "cluster sampling"),
           answer(c("stratified sampling", 
                        "simple random sampling", 
                        "cluster sampling"), correct = TRUE),
           allow_retry = TRUE), 
    # Q7
    question("Q7) Which of the following statements are TRUE about random sampling? Select all that apply.",
           answer("Every unit in the population must have an equal probability of being selected"),
           answer("Every unit in the population must have a non-zero probability of being selected", correct = TRUE),
           answer("Individuals or units must be selected via a random process", correct = TRUE),
           answer("It enables us to generalize to the population we sampled from", correct = TRUE),
           answer("It requires a population frame to be developed or obtained in advance", correct = TRUE),
           allow_retry = TRUE,
           random_answer_order = TRUE),   
    question_wordbank("Q8) Match each of the following study types with the appropriate conclusions that can be drawn from them.", 
           choices = c("Random assignment", "Neither random sampling nor random assignment", "Random sampling", "Random sampling + random assignment"),
           wordbank = c("Causal claim within your sample only", 
                        "Associational claim within your sample only", "Associational claim, generalized to the whole population", "Causal claim, generalized to the whole population"),
           answer(c("Causal claim within your sample only", 
                        "Associational claim within your sample only", "Associational claim, generalized to the whole population", "Causal claim, generalized to the whole population"), correct = TRUE),
           allow_retry = TRUE)
)

Submit

Once you are finished:

• Click the 'Download Grade' button below. This will download an html document of your grade summary.
• Make sure your grade is correct and as expected!
• Submit the downloaded html to Canvas.

grade_print_ui("grade")

NUstat/ISDStutorials documentation built on April 17, 2025, 6:15 p.m.