View of /tags/rel-1-9-02/rochester_problib/setStatistics1Data/ur_stt_1_1.pg

    1 ##DESCRIPTION
    2 ##KEYWORDS('statistics', 'introduction', 'concepts')
    3 ##
    4 ##ENDDESCRIPTION
    5 
    6 DOCUMENT();        # This should be the first executable line in the problem.
    7 
    8 loadMacros(
    9 "PG.pl",
   10 "PGbasicmacros.pl",
   11 "PGchoicemacros.pl",
   12 "PGanswermacros.pl"
   13 );
   14 
   15 TEXT(beginproblem());
   16 $showPartialCorrectAnswers = 1;
   17 
   18 
   19 @event = ("Your college GPA.",
   20     "The amount of bacteria on a piece of moldy bread.",
   21     "The marital status of your coworkers.",
   22     "The occupation of your neighbors.",
   23     "The time it takes for your car to get an oil change.",
   24     "How long it takes you to run a mile.",
   25     "The condition of a used car you're thinking about purchasing.");
   26 @ans = ("QUANTITATIVE", "QUANTITATIVE", "QUALITATIVE", "QUALITATIVE", "QUANTITATIVE", "QUANTITATIVE",
   27   "QUALITATIVE");
   28 
   29 @slice = NchooseK(4,4);
   30 @sevent = (@event[@slice]);
   31 @sans = (@ans[@slice]);
   32 
   33 BEGIN_TEXT
   34 
   35 Determine whether the following examples of data are quantitative or qualitative.
   36 Write "QUANTITATIVE" for quantitative and "QUALITATIVE" for qualitative.  (without quotations) $PAR
   37 (a) \( \) $sevent[0] $BR
   38 answer: \{ans_rule(20)\} $PAR
   39 (b) \( \) $sevent[1] $BR
   40 answer: \{ans_rule(20)\} $PAR
   41 (c) \( \) $sevent[2] $BR
   42 answer: \{ans_rule(20)\} $PAR
   43 (d) \( \) $sevent[3] $BR
   44 answer: \{ans_rule(20)\}
   45 
   46 END_TEXT
   47 ANS(std_str_cmp($sans[0]));
   48 ANS(std_str_cmp($sans[1]));
   49 ANS(std_str_cmp($sans[2]));
   50 ANS(std_str_cmp($sans[3]));
   51 
   52 
   53 ENDDOCUMENT();       # This should be the last executable line in the problem.